asp CutStrX字符串截取函数(过滤全部HTML标记)
2018-09-06 10:56
阅读：511
复制代码 代码如下:
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 CutStrX字符串截取函数(过滤全部HTML标记)
文章链接：http://soscw.com/index.php/essay/8863.html
文章标题：asp CutStrX字符串截取函数(过滤全部HTML标记)
文章链接：http://soscw.com/index.php/essay/8863.html
评论
亲，登录后才可以留言！