asp中過濾掉html代碼

方法一

<%
Function RemoveHTML(strHTML)    '過濾HTML代碼的函數包括過濾CSS和JS

StrHtml = Replace(StrHtml,vbCrLf,"")
StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")
StrHtml = Replace(StrHtml,Chr(13),"")
StrHtml = Replace(StrHtml,Chr(10),"")
StrHtml = Replace(StrHtml," ","")
StrHtml = Replace(StrHtml,"    ","")

Dim objRegExp, Match, Matches  
Set objRegExp = New Regexp
  
objRegExp.IgnoreCase = True
objRegExp.Global = True

'取閉合的<>
objRegExp.Pattern = "<style(.+?)/style>"
'進行匹配
Set Matches = objRegExp.Execute(strHTML)
  
' 遍曆匹配集合，並替換掉匹配的項目
For Each Match in Matches  
strHtml=Replace(strHTML,Match.Value,"")
Next

  '取閉合的<>
objRegExp.Pattern = "<script(.+?)/script>"
'進行匹配
Set Matches = objRegExp.Execute(strHTML)
  
' 遍曆匹配集合，並替換掉匹配的項目
For Each Match in Matches  
strHtml=Replace(strHTML,Match.Value,"")
Next

  '取閉合的<>
objRegExp.Pattern = "<.+?>"
'進行匹配
Set Matches = objRegExp.Execute(strHTML)
  
' 遍曆匹配集合，並替換掉匹配的項目
For Each Match in Matches  
strHtml=Replace(strHTML,Match.Value,"")
Next

RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
%>

方法二

Public Function ReplaceHTML(Textstr)
    Dim sStr, regEx
    sStr = Textstr
    Set regEx = New RegExp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Multiline = True
    regEx.Pattern = "<script[\s\S]*?</script>"
    sStr = regEx.Replace(sStr, "")
    regEx.Pattern = "<style[\s\S]*?</style>"
    sStr = regEx.Replace(sStr, "")
    regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
    sStr = regEx.Replace(sStr, "")
    regEx.Pattern = "<(.[^>]*)>"
    sStr = regEx.Replace(sStr, "")
    Set regEx = Nothing
    ReplaceHTML = sStr
End Function
%>