<%
'如何過濾圖片的函數 function find_img(strtemp)
'測試時間 2006-7-7 下午(沒有風扇的情況下-_-!!通過測試)
strtemp="ssss<img alt=""sss"" src=""" src="" ?
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
%>
