ScriptHtml 函数之过滤html标记的asp代码
2018-09-06 12:23
==================================================
函数名: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代码
文章链接:http://soscw.com/index.php/essay/10268.html