ScriptHtml function asp code for filtering html tags

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

'Function name: ScriptHtml

'Effect: filter html tags

'Arguments: 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

Articles that may be of interest to you:

Filter UBB and Html tags asp in ASP. Regularly implement the function code to clear html text format asp CutStrX string intercept function (filter all HTML tags) ASP.NET filter HTML string method summary ASP.NET filter HTML tags only retain new lines and spaces. Functions to clear html in asp