asp去除所有html函數

'=================================================
'過程名：RemoveHTML( strText )
'作  用：去處HTML
'參  數：strText:操作對象
'=================================================
Public Function RemoveHTML( strText )
        Dim RegEx

        Set RegEx = New RegExp

         RegEx.Pattern = "<[^>]*>"
         RegEx.Global = True

         RemoveHTML = RegEx.Replace(strText, "")
End Function

function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
 fString = Replace(fString, "&lt;sup&gt;", "^{")
 fString = Replace(fString, "&lt;/sup&gt;", "}")
    HTMLEncode = fString
end if
end function
function encodeToTxt(fString)
 if not isnull(fString) then
 fString = replace(fString,"&gt;", ">")
    fString = replace(fString, "&lt;","<")
    fString = Replace(fString, "&amp;nbsp;",CHR(9))
    fString = Replace(fString, "&amp;nbsp；",CHR(9))
    fString = Replace(fString, "&quot;",CHR(34))
    fString = Replace(fString, "&#39;",CHR(39))
    fString = Replace(fString, "",CHR(13))
    fString = Replace(fString, "</P><P>",CHR(10) & CHR(10))
    'fString = Replace(fString, "<BR>",CHR(10))
 fString = Replace(fString, "^{","&lt;sup&gt;")
 fString = Replace(fString, "}","&lt;/sup&gt;")
 end if
 encodeToTxt = fString
end function
function encodeToText(fString)
 if not isnull(fString) then
 fString = replace(fString,"&gt;", ">")
    fString = replace(fString, "&lt;","<")
    fString = Replace(fString, "&amp;nbsp;",CHR(9))
    fString = Replace(fString, "&amp;nbsp；",CHR(9))
    fString = Replace(fString, "&quot;",CHR(34))
    fString = Replace(fString, "&#39;",CHR(39))
    fString = Replace(fString, "",CHR(13))
    fString = Replace(fString, "</P><P>",CHR(10) & CHR(10))
    fString = Replace(fString, "<BR>",CHR(10))
 fString = Replace(fString, "^{","&lt;sup&gt;")
 fString = Replace(fString, "}","&lt;/sup&gt;")
 end if
 encodeToText = fString
end function