时间:2021-05-18
函数:
复制代码 代码如下:
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:///UpFile/CarImages/0092/S_b_20051241127326f6uew1s.jpg"'图片
downimg(imgurl)
imgurl="HTTP://login.zydn.net/news.asp"'文字页面
downimg(imgurl)
把代码保存为vbs文件,不需要iis就可以运行~
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
利用MSXML2.XmlHttp和Adodb.Stream复制代码代码如下:ASP采集图片测试
一、VBS下载者:复制代码代码如下:SetPost=CreateObject("Msxml2.XMLHTTP")SetShell=CreateObject("W
说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码:iLocal=LCase(Wscript.Arguments(1))iRemot
通过xmlHttp和ASP的结合,我们可以轻松完成网页的异步调用。代码如下:1.新建Display.asp(这是前台显示页面)注意xmlhttp.readySt
以下代码保存成hta文件,可生成js和vbs下载者复制代码代码如下:SubWindow_onLoadwindow.resizeToscreen.width/1.