asp去除html中的属性,ASP去除所有html标签

ASP去除所有html标签

function nohtml(str)

dim re

Set re=new RegExp

re.IgnoreCase =true

re.Global=True

re.Pattern="(\<.>)"

str=re.replace(str," ")

re.Pattern="(\)"

str=re.replace(str," ")

nohtml=str

set re=nothing

end function

Function delHtml(strHtml) '做了一个函数名叫delhtml

Dim objRegExp, strOutput

Set objRegExp = New Regexp ' 建立正则表达式

objRegExp.IgnoreCase = True ' 设置是否区分大小写

objRegExp.Global = True '是匹配所有字符串还是只是第一个

objRegExp.Pattern = "()|()" ' 设置模式引号中的是正则表达式，用来找出html标签

strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉

strOutput = Replace(strOutput, "

strOutput = Replace(strOutput, ">", ">")

delHtml = strOutput

Set objRegExp = Nothing

End Function

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

str="你好fsdgoijut%%$015$%%fefw%#$fw"

chkstartstr = "%%$" '前边的标示字符串

chkendstr = "$%%" '后边的标示字符串

startstr = InStr(str,chkstartstr) + len(chkstartstr) '找到开始位置

endstr = InStr(str,chkendstr) '找到结束位置

censtr = Mid(str,startstr,endstr - startstr) '截取字符串