ScriptHtml 函数之过滤html标记的asp代码
摘要：'=================================================='函数名：ScriptHtml'作用：...
'==================================================
'函数名：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
【ScriptHtml 函数之过滤html标记的asp代码】相关文章：
★ ASP模板类代码
★ 在asp中通过getrows实现数据库记录分页的一段代码