정규 표현 식 으로 쓴 HTML 분리 함수

.asp 파일 로 저장 하고 실행 합 니 다.ASPHTTP 로 내용 을 잡 을 때 이 걸 사용 하면 시원 합 니 다.물론 스스로 개선 해 야 합 니 다<%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 %> Enter an HTML String:
<%=Request("txtHTML")%>

<% 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 %>