您现在的位置是：网站首页> 编程资料编程资料
asp中格式化HTML函数代码 SDCMS加强版_应用技巧_
2023-05-25
269人已围观
简介 asp中格式化HTML函数代码 SDCMS加强版_应用技巧_
复制代码 代码如下:
'==============================
'格式化HTML，SDCMS加强版
'==============================
Function Nohtml(ByVal t0)
IF Len(t0)=0 Or IsNull(t0) Then
Nohtml=""
Exit Function
End IF
Dim Regs,Matches,Match
Set Regs=New Regexp
Regs.Ignorecase=True
Regs.Global=True
'过滤掉JS,Iframe
Regs.pattern ="
t0=Regs.Replace(t0,"")
Regs.pattern ="
t0=Regs.Replace(t0,"")
'再过滤其他
Regs.Pattern="<.+?>"
Set Matches=Regs.Execute(t0)
IF Matches.Count>0 Then
For Each Match In Matches
t0=Replace(t0,Match.value,"")
Next
End IF
t0=Replace(t0," ","")
t0=Replace(t0,vbCrLf,"")
t0=Replace(t0," ","")
t0=Replace(t0," ","")
t0=Replace(t0,CHR(9),"")
t0=Replace(t0,CHR(13),"")
t0=Replace(t0,CHR(10),"")
t0=Replace(t0,CHR(22),"")
Set Regs=Nothing
Nohtml=t0
End Function
相关内容
- asp中常用的字符串安全处理函数集合(过滤特殊字符等)_应用技巧_
- Asp中通过简单的例子理解下ByVal和ByRef的用法_应用技巧_
- asp中获取内容中所有图片与获取内容中第一个图片的代码_应用技巧_
- 获取一个数字的个位、十位、百位的函数代码_应用技巧_
- ASP同一站点下gb2312和utf-8页面传递参数乱码的终极解决方法_应用技巧_
- ASP中使用Set ors=oConn.Execute()时获取记录数的方法_应用技巧_
- ASP的URLDecode函数URLEncode解码函数_应用技巧_
- asp空间判断jmail组件是否安装或支持的代码_应用技巧_
- asp中判断服务器是否安装了某种组件的函数_应用技巧_
- asp 页面允许CACHE的方法_应用技巧_
