<%
'如何过滤图片的函数 function find_img(strtemp)
'测试时间 2006-7-7 下午(没有风扇的情况下-_-!!通过测试)
strtemp="ssss<img alt=""sss"" src=""http://www.test.com/test.jpg"" /><img alt=""sss"" src=""http://www.test.com/test.png"" /><img alt=""sss"" src=""http://www.test.com/test.bmp"" /><img alt=""sss"" src=""http://www.test.com/test.gif"" />ddddddddddssss<img src=""http://www.test.com/test2.gif"" alt=""sss"" />dddddddddd"
find_img(strtemp)
function find_img(strtemp)
dim arrtemp
dim i,url_gif,num_gif,url_jpg,num_jpg,url_png,num_png,url_other,num_other
arrtemp=split(strtemp,"<img")
if Ubound(arrtemp)<=0 then response.Write "没有检测到图片标识" : exit function
response.Write "一共检测到图片标识数量:"&Ubound(arrtemp)&"<br>"
for i=1 to Ubound(arrtemp)
temp=cutstr(cutstr(cutstr(arrtemp(i),"right"," />"),"left","src="""),"right","""")
ext=Ucase(right(temp,4))
select case ext
case ".GIF"
url_gif = url_gif&"|"&temp
num_gif = num_gif + 1
case ".JPG"
url_jpg = url_jpg&"|"&temp
num_jpg = num_jpg + 1
case ".PNG"
url_png = url_png&"|"&temp
num_png = num_png + 1
case else
url_other = url_other&"|"&temp
num_other = num_other + 1
end select
next
response.Write "<font color=green>返回统计:</font><br>"
response.Write "<hr><font color=blue>1)过滤GIF格式图片共"&num_gif&"张</font><br>"&replace(url_gif,"|","<br>")
response.Write "<hr><font color=blue>2)过滤JPG格式图片共"&num_jpg&"张</font><br>"&replace(url_jpg,"|","<br>")
response.Write "<hr><font color=blue>3)过滤PNG格式图片共"&num_png&"张</font><br>"&replace(url_png,"|","<br>")
response.Write "<hr><font color=blue>4)其他格式图片(BMP格式等)共"&num_other&"张</font><br>"&replace(url_other,"|","<br>")
end function
function cutstr(temp,direct,str)
if direct="right" then '剪去标识符右边的内容(包括标识符)
cutstr = left(temp,instr(temp,str)-1)
else '剪去标识符左边的内容(包括标识符)
cutstr = right(temp,len(temp)-instr(temp,str)-len(str)+1)
end if
end function
%>