正则表达式过滤HTML代码的例子
正则表达式有很多值得学习的地方,你对正则表达式是否熟悉,爱站技术频道的小编今天将给您讲述的是正则表达式过滤HTML代码的例子,需要的朋友可以参考下其中的内容详情。
代码例子如下:
<%
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
%>
<% if Len(Request("txtHTML")) > 0 then %>
View of string with no HTML stripping:
%=request("txthtml")%>
View of string with HTML stripping:
<%=StripHTML(Request("txtHTML"))%>
<% End If %>
以上就是正则表达式过滤HTML代码的例子,想必都已有了一定的了解,更多关于正则表达式的内容请继续关注爱站技术频道。
上一篇:常遇到的正则表达式语法示例