用正则表达式过滤html代码

也想出现在这里？点击联系我~

代码例子如下：

1. <%
2. OptionExplicit
4. FunctionstripHTML(strHTML)
5. 'StripstheHTMLtagsfromstrHTML
7. DimobjRegExp,strOutput
8. SetobjRegExp=NewRegexp
10. objRegExp.IgnoreCase=True
11. objRegExp.Global=True
12. objRegExp.Pattern="<.+?>"
14. 'ReplaceallHTMLtagmatcheswiththeemptystring
15. strOutput=objRegExp.Replace(strHTML,"")
17. 'Replaceall<and>with&lt;and&gt;
18. strOutput=Replace(strOutput,"<","&lt;")
19. strOutput=Replace(strOutput,">","&gt;")
21. stripHTML=strOutput'ReturnthevalueofstrOutput
23. SetobjRegExp=Nothing
24. EndFunction
25. %>
27. <formmethod="post"id=form1name=form1>
28. <b>EnteranHTMLString:</b><br>
29. <textareaname="txtHTML"cols="50"rows="8"wrap="virtual"><%=Request("txtHTML")%></textarea>
30. <p>
31. <inputtype="submit"value="StripHTMLTags!"id=submit1name=submit1>
32. </form>
34. <%ifLen(Request("txtHTML"))>0then%>
35. <p><hr><p>
36. <b><u>Viewofstring<i>withno</i>HTMLstripping:</u></b><br>
37. <xmp>
38. <%=Request("txtHTML")%>
39. </xmp><p>
40. <b><u>Viewofstring<i>with</i>HTMLstripping:</u></b><br>
41. <pre>
42. <%=StripHTML(Request("txtHTML"))%>
43. </pre>
44. <%EndIf%>