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

来源：百度知道 编辑：UC知道 时间：2024/05/29 09:44:03
是这样的:读取文章前200字应该是先用正则去掉HTML标签,然后再用Left(Str,200)&"……" 可是这样的话可能会把文字截断.我的目的是:如果到了200字,但这一段文字还没有完,也就是还没到<br />标签, 就让它一直到下一个<br />标签再加入固定文字信息. 还有一个问题:如果说上都OK了,怎么自动插入文字信息呢?

'===========================By Cloud.L
'函数名：RemoveHtml
'作用：移除HTML｜Iframe｜有害字符
'参数：OriginStr(需要处理的字符串)
' RemoveLevel(移除等级 0:全部移除｜1:只移除Iframe｜2:移除Iframe和JS｜3:移除有害字符)
'===========================
Public Function RemoveHTML(ByVal OriginStr,ByVal RemoveLevel)
Dim Str,Reg
Str=OriginStr
On Error Resume Next
Set Reg=New RegExp
Reg.IgnoreCase=True
Reg.Global=True
Select Case RemoveLevel
Case 0
Reg.Pattern = "<(.[^>]*)>"
Str = Reg.Replace(Str, "")
Case 1
Reg.Pattern = "(<iframe(.+?)<\/iframe>)"
Str = Reg.Replace(Str,"")
Case 2
Reg.Pattern = "(<s+cript(.+?)<\/s+cript>)"
Str = Reg.Replace(Str, "")
Reg.Pattern = "(<iframe(.+?)<\/iframe>)"
Str = Reg.Replace(Str,"