ScriptHtml 函數之過濾html標記的asp代碼

'==================================================

'函數名：ScriptHtml

'作用：過濾html標記

'參數：ConStr------要過濾的字符串

'==================================================

FunctionScriptHtml(ByvalConStr,TagName,FType)

DimRe

SetRe=newRegExp

Re.IgnoreCase=true

Re.Global=True

SelectCaseFType

Case1

Re.Pattern="<"&TagName&"([^>])*>"

ConStr=Re.Replace(ConStr,"")

Case2

Re.Pattern="<"&TagName&"([^>])*>.*?</"&TagName&"([^>])*>"

ConStr=Re.Replace(ConStr,"")

Case3

Re.Pattern="<"&TagName&"([^>])*>"

ConStr=Re.Replace(ConStr,"")

Re.Pattern="</"&TagName&"([^>])*>"

ConStr=Re.Replace(ConStr,"")

EndSelect

ScriptHtml=ConStr

SetRe=Nothing

EndFunction

您可能感興趣的文章: