服务器之家

服务器之家 > 正文

用正则表达式过滤html代码

时间:2020-07-06 15:39     来源/作者:正则表达式教程

代码例子如下:

  1. <% 
  2. Option Explicit 
  3.  
  4. Function stripHTML(strHTML) 
  5. 'Strips the HTML tags from strHTML 
  6.  
  7.  Dim objRegExp, strOutput 
  8.  Set objRegExp = New Regexp 
  9.  
  10.  objRegExp.IgnoreCase = True 
  11.  objRegExp.Global = True 
  12.  objRegExp.Pattern = "<.+?>" 
  13.  
  14.  'Replace all HTML tag matches with the empty string 
  15.  strOutput = objRegExp.Replace(strHTML, ""
  16.  
  17.  'Replace all < and > with &lt; and &gt; 
  18.  strOutput = Replace(strOutput, "<""&lt;"
  19.  strOutput = Replace(strOutput, ">""&gt;"
  20.  
  21.  stripHTML = strOutput 'Return the value of strOutput 
  22.  
  23.  Set objRegExp = Nothing 
  24. End Function 
  25. %> 
  26.  
  27. <form method="post" id=form1 name=form1> 
  28.  <b>Enter an HTML String:</b><br> 
  29.  <textarea name="txtHTML" cols="50" rows="8" wrap="virtual"><%=Request("txtHTML")%></textarea> 
  30.  <p> 
  31.  <input type="submit" value="Strip HTML Tags!" id=submit1 name=submit1> 
  32. </form> 
  33.  
  34. <% if Len(Request("txtHTML")) > 0 then %> 
  35.  <p><hr><p> 
  36.  <b><u>View of string <i>with no</i> HTML stripping:</u></b><br> 
  37.  <xmp> 
  38.  <%=Request("txtHTML")%> 
  39.  </xmp><p> 
  40.  <b><u>View of string <i>with</i> HTML stripping:</u></b><br> 
  41.  <pre> 
  42.  <%=StripHTML(Request("txtHTML"))%> 
  43.  </pre> 
  44. <% End If %>  

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部