其它 媒体动画 电脑基础 硬件教程 网络安全
function gethttppage(url)dim httpset http=createobject("MICROSOFT.XMLHTTP")http.open "GET",url,falsehttp.send()if http.readystate<>4 thenexit functionend ifgethttppage=bytestostr(http.responseBody,"GB2312")if err.number<>0 then err.clearend function
function bytestostr(body,cset)dim objstreamset objstream=createobject("adodb.stream")objstream.type=1objstream.mode=3objstream.openobjstream.write bodyobjstream.position=0objstream.type=2objstream.charset=csetbytestostr=objstream.readtextobjstream.closeset objstream=nothingend function
function savetofile(bodyall,filename)dim objstream1set objstream1=createobject("adodb.stream")objstream1.type=2objstream1.openobjstream1.position=objstream1.sizeobjstream1.writetext bodyallobjstream1.savetofile filename,2objstream1.closeset objstream1=nothingend function
dim url,httpurl="http://www.86516.com"html=gethttppage(url)'msgbox htmlsavefilename="index1.htm"savetofile html,savefilename
XMLHTTP批量抓取远程资料
也谈采集入库的技术
独孤剑写的马克斯迅雷片库采集插件1.4 官方最新版提供下载了
如何写ASP入库小偷程序
vbs或asp采集文章时网页编码问题
asp下用ADODB.Stream代替FSO读取文本文件
asp下利用XMLHTTP 从其他页面获取数据的代码
蓝色空间 天气小偷
XML相关技术资料
asp读取远程文件并保存到本地代码
最新评论