其它 媒体动画 电脑基础 硬件教程 网络安全
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来偷东西哈!
防盗链接ASP函数
用xmlhttp编写web采集程序
如何写ASP入库小偷程序
XML相关技术资料
asp下利用XMLHTTP 从其他页面获取数据的代码
小偷程序2
图片自动保存到本地并利用aspjpeg为图片加水印
ASP采集入库生成本地文件的几个函数
Asp定时执行操作 Asp定时读取数据库(网页定时操作详解)
最新评论