网络编程 
首页 > 网络编程 > 浏览文章

asp CutStrX字符串截取函数(过滤全部HTML标记)

(编辑:jimmy 日期: 2024/11/27 浏览:3 次 )
复制代码 代码如下:
Function CutStrX(ByVal Str,ByVal StrLen)
Dim l,t,c,i,r

'过滤全部HTML标记
Set r=New RegExp
r.Global=True
r.MultiLine=True
r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)"
str=r.Replace(str," ")
Set r=Nothing

l=Len(str)
t=0
For i=1 To l
c=AscW(Mid(str,i,1))
If c<0 Or c>255 Then t=t+2 Else t=t+1
IF t>=StrLen Then
CutStrX=Left(Str,i)&"..."
Exit For
Else
CutStrX=Str
End If
Next
End Function
上一篇:ASP Eval、Execute、ExecuteGlobal区别分析
下一篇:从一个网站扒下的asp生成静态页面的代码 脚本之家特供版
友情链接:杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网 网站地图 SiteMap