asp移除UBB标记

Function RemoveUBB(byval strContent)
 Dim objReg ,strTmp
 If strContent="" or ISNull(strContent) Then Exit Function
 Set objReg=new RegExp
 objReg.IgnoreCase =True
 objReg.Global=True
 objReg.Pattern="[.+?]"
 strTmp=objReg.replace(strContent, "")
 Set objReg=Nothing
 RemoveUBB=strTmp
 strTmp=""
End Function

上一篇: asp移除html标记
下一篇: 301转向代码函数
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp
相关日志: