Question

asp怎样读取文章前200字 然后自动加入固定文字信息

必须去除插入图片路径。还有HTML代码！

Answer 1

如果你能确定你的文章内容只有<br />这个标签倒还好办，先按标签做分隔符把文章内容放到数组里，再检查字数。

加文字信息直接就可以这样呀：
response.write Left(Str,200)&"要加的文字信息"

不知道是不是这样？
<%
dim txt
txt="一个SQL表达式是一个字符串，构成了一个SQL语句的全部或部分。<br>例如，FindFirst法在Recordset对象上使用了一个由SQLWHERE 子句中发现的选择准则构成的SQL表达式。Microsoft Jet 数据库引擎利用Visual Basic  for Applications（VBA）的表达式服务来执行简单的算术和函数计算。<br>所有用于Microsoft Jet SQL 表达式（除了 Between, In，和Like）的运算符由VBA表达式服务定义。<br>另外，VBA表达式服务提供了100个以上、可用在SQL表达式中的VBA函数。<br>例如，可以用这些VBA函数在Microsoft Access查询Design view中构造查询，还可以把这些函数用于DAO OpenRecordset法，Microsoft Visual C++,Microsoft Visual Basic,and Microsoft Excel编码中。Microsoft Visual Basic和Microsoft        Excel代码。"

text=replace(txt,"<br>","|") '用"|"替换<br>,作为分隔符
text=replace(replace(replace(replace(text," "," "),""",chr(34)),">",">"),"<","<") '替换掉文本内的HTML代码。
arr=split(text,"|") '将文本按"|"分隔后，放入数组arr中。
for i=0 to UBound(arr) '遍历arr数组，数组第一个数为arr(0)
s=replace(replace(replace(replace(arr(i)," "," "),chr(34),"""),">",">"),"<","<")&"<font color=""#ff0000"">要加入的信息</font>" '还原被替换的HTML代码，并加入信息
response.write s&"<br>" '输出内容。
next
%>
是否可以解决您的问题？

追问

这个答案我在百度里也有找到过，测试也用不了。