asp去除html的函數程式碼分析附實例說明

asp去除html的函數程式碼分析附實例說明，經腳本之家程式測試確實好用。

下面這段程式碼，不會取代ld<sad中間的<，所以內容還是正常的

代碼如下:

<%

function nohtml(str)

dim re

Set re=new RegExp

re.IgnoreCase =true

re.Global=True

re.Pattern=(/<.[^/<]*/>)

str=re.replace(str, )

re.Pattern=(/<//[^/<]*/>)

str=re.replace(str, )

str=replace(str, ,)

str=replace(str, ,)

nohtml=str

set re=nothing

end function

str=<title>sadjksjdl腳本之家歡迎你sajdljsald<sadsadsad<br> '這裡是測試

response.write nohtml(str)

%>

結果為：

代碼如下:

sadjksjdl腳本之家歡迎你sajdljsald<sadsadsad

不過下面的程式碼是不問的，直接看到<就忘後面無限制的匹配

代碼如下:

<%

Function dropHtml(Byval strHTML)

Dim objRegExp, Match, Matches

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

'取閉合的<>

objRegExp.Pattern = <.+?>

'進行匹配

Set Matches = objRegExp.Execute(strHTML)

' 遍歷匹配集合，並替換掉匹配的項目

For Each Match in Matches

strHtml=Replace(strHTML,Match.Value,)

Next

dropHtml=strHTML

Set objRegExp = Nothing

End Function

str=<title>sadjksjdl腳本之家歡迎你sajdljsald<sadsadsad<br> '這裡是測試

response.write dropHtml(str)

%>

結果為：

代碼如下:

sadjksjdl腳本之家歡迎你sajdljsald