服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - ASP教程 - ScriptHtml 函数之过滤html标记的asp代码

ScriptHtml 函数之过滤html标记的asp代码

2019-10-09 14:15asp代码网 ASP教程

ScriptHtml 函数之过滤html标记的asp代码

  1. '==================================================  
  2. '函数名:ScriptHtml  
  3. '作  用:过滤html标记  
  4. '参  数:ConStr ------ 要过滤的字符串  
  5. '==================================================  
  6. Function ScriptHtml(Byval ConStr,TagName,FType)  
  7.     Dim Re  
  8.     Set Re=new RegExp  
  9.     Re.IgnoreCase =true  
  10.     Re.Global=True  
  11.     Select Case FType  
  12.     Case 1  
  13.        Re.Pattern="<" & TagName & "([^>])*>"  
  14.        ConStr=Re.Replace(ConStr,"")  
  15.     Case 2  
  16.        Re.Pattern="<" & TagName & "([^>])*>.*?</" & TagName & "([^>])*>"  
  17.        ConStr=Re.Replace(ConStr,"")   
  18.     Case 3  
  19.        Re.Pattern="<" & TagName & "([^>])*>"  
  20.        ConStr=Re.Replace(ConStr,"")  
  21.        Re.Pattern="</" & TagName & "([^>])*>"  
  22.        ConStr=Re.Replace(ConStr,"")  
  23.     End Select  
  24.     ScriptHtml=ConStr  
  25.     Set Re=Nothing  
  26. End Function 

延伸 · 阅读

精彩推荐