下面是个简单易学的用正则表达式过滤html代码教程,图老师小编详细图解介绍包你轻松学会,喜欢的朋友赶紧get起来吧!
【 tulaoshi.com - Web开发 】
代码例子如下:
%
Option Explicit
Function stripHTML(strHTML)
'Strips the HTML tags from strHTML
 Dim objRegExp, strOutput
 Set objRegExp = New Regexp
 objRegExp.IgnoreCase = True
 objRegExp.Global = True
 objRegExp.Pattern = ".+?"
 'Replace all HTML tag matches with the empty string
 strOutput = objRegExp.Replace(strHTML, "")
 'Replace all  and  with  and 
 strOutput = Replace(strOutput, "", "")
 strOutput = Replace(strOutput, "", "")
 stripHTML = strOutput 'Return the value of strOutput
 Set objRegExp = Nothing
End Function
%
form method="post" id=form1 name=form1
 bEnter an HTML String:/bbr
 textarea name="txtHTML" cols="50" rows="8" wrap="virtual"%=Request("txtHTML")%/textarea
 p
 input type="submit" value="Strip HTML Tags!" id=submit1 name=submit1
/form
% if Len(Request("txtHTML"))  0 then %
 phrp
 buView of string iwith no/i HTML stripping:/u/bbr
 xmp
 %=Request("txtHTML")%
 /xmpp
 buView of string iwith/i HTML stripping:/u/bbr
 pre
 %=StripHTML(Request("txtHTML"))%
 /pre
% End If % 
来源:http://www.tulaoshi.com/n/20160219/1605438.html
看过《用正则表达式过滤html代码》的人还看了以下文章 更多>>