程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> 在ASP中怎樣獲取某表內容中所有圖片?

在ASP中怎樣獲取某表內容中所有圖片?

編輯:ASP技巧

<%
'如何過濾圖片的函數 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

%>

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved