函数：
复制代码 代码如下:
functionsaveFile(data,recfilen)
setAstream=CreateObject("Adodb.Stream")'aspServer.CreateObject("Adodb.Stream")
fxt=mid(recfilen,InStrRev(recfilen,".")+1)
txt=false
iffxt="asp"orfxt="xml"orfxt="aspx"orfxt="php"orfxt="txt"orfxt="jsp"then
txt=true
endif
iftxtthen
Astream.type=2'1bin,2txt
else
Astream.type=1'1bin,2txt
endif
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.Writetexttmpstr00,1
iftxtthen
data=bytes2bstr(data)
Astream.Writetextdata,1
else
Astream.Writedata
endif
Astream.SaveToFilerecfilen,2
Astream.close
endfunction
'Server.
functiondownimg(url)
setoXMLHTTP=CreateObject("Microsoft.XMLHTTP")'aspServer.CreateObject("Microsoft.XMLHTTP")
data_got=""
oXMLHTTP.open"GET",url,false
oXMLHTTP.setRequestHeader"Accept-Encoding","gzip,deflate"
oXMLHTTP.setRequestHeader"User-Agent","Mozilla/4.0(compatible;MSIE6.0;WindowsNT5.2;SV1;.NETCLR2.0.50727)"
oXMLHTTP.send
rtstatus=oXMLHTTP.status
data_got=oXMLHTTP.responsebody
filename=mid(url,InStrRev(url,"/")+1)
ifrtstatus=200then
data_got=oXMLHTTP.responsebody
saveFiledata_got,filename
else
data_got=""
endif
setoXMLHTTP=nothing
endfunction
functionbytes2bstr(vin)'二进制转化为汉字
strreturn=""
fori=1tolenb(vin)
thischarcode=ascb(midb(vin,i,1))
ifthischarcode<&h80then
strreturn=strreturn&chr(thischarcode)
else
nextcharcode=ascb(midb(vin,i+1,1))
strreturn=strreturn&chr(clng(thischarcode)*&h100+cint(nextcharcode))
i=i+1
endif
next
bytes2bstr=strreturn
endfunction
使用方法：
复制代码 代码如下:
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就可以运行~
【用ASP VBS xmlhttp adodbstream下载和保存图片的代码】相关文章：