用ASP VBS xmlhttp adodbstream下載和儲存圖片的代碼

函數：

複製代碼 代碼如下:function saveFile(data,recfilen)
set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream")
fxt=mid(recfilen,InStrRev(recfilen,".")+1)
txt=false
if fxt="asp" or fxt="xml" or fxt="aspx" or fxt="php" or fxt="txt" or fxt="jsp" then
txt=true
end if
if txt then
Astream.type=2 '1 bin,2 txt
else
Astream.type=1 '1 bin,2 txt
end if
Astream.Mode = 3' adModeRead　=1
'　　adModeReadWrite =3
'　　adModeRecursive =4194304
'　　adModeShareDenyNone =16
'　　adModeShareDenyRead =4
'　　adModeShareDenyWrite =8
'　　adModeShareExclusive =12
'　　adModeUnknown　=0
'　　adModeWrite　=2
Astream.open
'Astream.CharSet = "GB2312"
'Astream.LoadFromFile(recfilen) '裝載檔案
'Assp=Astream.size
Astream.Position =0 '裝載檔案時設定為Assp
'Astream.Writetext tmpstr00,1
if txt then
data=bytes2bstr(data)
Astream.Writetext data,1
else
Astream.Write data
end if

Astream.SaveToFile recfilen,2
Astream.close
end function
'Server.

function downimg(url)
set oXMLHTTP =CreateObject("Microsoft.XMLHTTP")'asp Server.CreateObject("Microsoft.XMLHTTP")
data_got=""
oXMLHTTP.open "GET",url, false
oXMLHTTP.setRequestHeader "Accept-Encoding"," gzip, deflate"
oXMLHTTP.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 2.0.50727)"
oXMLHTTP.send
rtstatus=oXMLHTTP.status
data_got=oXMLHTTP.responsebody
filename=mid(url,InStrRev(url,"/")+1)
if rtstatus=200 then
data_got=oXMLHTTP.responsebody
saveFile data_got,filename
else
data_got=""
end if
set oXMLHTTP =nothing
end function
function bytes2bstr(vin) '二進位轉化為漢字
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function

使用方法： 複製代碼 代碼如下:imgurl="http://www.163car.com/UpFile/CarImages/0092/S_b_20051241127326f6uew1s.jpg" '圖片
downimg(imgurl)
imgurl="HTTP://login.zydn.net/news.asp" '文字頁面
downimg(imgurl)

把代碼儲存為vbs檔案，不需要iis就可以運行~