下面是一個去掉超鏈接的例子,改變一下,可以去掉其他的,如script、div、span等Html代碼
<p><a href='1.Html'>11111</a></p><p>2222</p> <p>
<a href='2.Html'>3333</a></p><p>44444</p>
想得到的結果是:
<p>11111</p><p>2222</p><p>3333</p><p>4444</p>
<%
Function regExReplace(sSource,patrn, replStr)
Dim regEx, str1
str1 = sSource
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
regExReplace = regEx.Replace(str1, replStr)
End Function
dim c1,c2
c1="<p><a href='1.Html'>11111</a></p><p>2222</p> <p>
<a href='2.Html'>3333</a></p><p>44444</p> "
c2=regExReplace(c1,"<a.*?>|</a>","")
response.Write(c2)
%>