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 = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 設定模式引號中的是正則表示式，用來找出html標籤

    strOutput = objRegExp.Replace(strHtml, "") '將html標籤去掉
    strOutput = Replace(strOutput, "<", "<") '防止非html標籤不顯示
    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) '擷取字串