<%
'如何过滤图片的函数 function find_img(strtemp) '测试时间 2006-7-7 下午(没有风扇的情况下-_-!!通过测试) strtemp="ssss<img alt=""sss"" src=""http://www./test.jpg"" /><img alt=""sss"" src=""http://www./test.png"" /><img alt=""sss"" src=""http://www./test.bmp"" /><img alt=""sss"" src=""http://www./test.gif"" />ddddddddddssss<img src=""http://www./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 %>
|
|