代碼例子如下：

<%

Option Explicit

Function stripHTML(strHTML)

'Strips the HTML tags from strHTML

Dim objRegExp, strOutput

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>"

'Replace all HTML tag matches with the empty string

strOutput = objRegExp.Replace(strHTML, "")



'Replace all < and > with < and >

strOutput = Replace(strOutput, "<", "<")

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

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。