(因为数据库中有图片保存的路径,所以调出时会把图片显示出来。因为这个原因所以我才想要把图片路径给屏蔽掉。)
请给个方法吧~!~
<% Function cutStr(str) '去掉所有HTML标记 Dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<img(.[^>]*)>" str=re.Replace(str,"") set re=Nothing Dim l,t,c,i l=Len(str) t=0 For i=1 to l c=Abs(Asc(Mid(str,i,1))) If c>255 Then t=t+2 Else t=t+1 End If
cutStr=str
Next cutStr=Replace(cutStr,chr(10),"") cutStr=Replace(cutStr,chr(13),"") End Function %>
<% '这个是过滤了<img ****>的 =cutStr("<p><center><img src=http://www.no1edu.com/bbs/images/logo.gif><font size=5 color=red><a href=http://www.no1edu.com/bbs/index.asp target=_blank>第一教育论坛</a></font></center></p>") %> <% '这个是没有过滤的 Response.Write("<p><center><img src=http://www.no1edu.com/bbs/images/logo.gif><font size=5 color=red><a href=http://www.no1edu.com/bbs/index.asp target=_blank>第一教育论坛</a></font><img src=http://www.no1edu.com/bbs/images/logo.gif></center></p>") %>