asp移除html标记
作者:admin 日期:2007-11-07
Function RemoveHtml(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
RemoveHtml=strTmp
strTmp=""
End Function
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
RemoveHtml=strTmp
strTmp=""
End Function
评论: 0 | 引用: 0 | 查看次数: 2676
发表评论
广告位