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/essay/10268.html