asp CutStrX字符串截取函数(过滤全部HTML标记)
2011-07-05 00:00
916 查看
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标记)
- asp从字符串里截取N个带HTML的字符的函数
- asp从字符串里截取N个带HTML的字符的函数
- asp.net 截取带有html标签的字符串(先过滤html,再截取)的方法
- ScriptHtml 函数之过滤html标记的asp代码
- 帝国 标签模板 使用程序代码 去除html标记 并 截取字符串
- php自动截取中文字符串 和 取出html、css、js格式函数
- asp 经常用的过滤html正则表达式 及函数
- asp可用下列函数截取字符串
- Asp过滤指定html标签函数
- asp.net过滤HTML标签的几个函数
- asp.net过滤HTML标签的几个函数
- php对包含html标签的字符串进行截取的函数分享
- asp.net过滤HTML标签的几个函数
- ASP.NET过滤HTML字符串方法总结
- 【叶子函数分享一】去除字符串中的html标记及标记中的内容
- asp.net的sql防注入 和去除html标记的函数
- ASP.NET中过滤HTML字符串的两个方法
- 过滤html标记的函数
- asp.net过滤HTML标签的几个函数