两种小偷程序的比较第1/2页

更新时间：2006年06月25日 00:00:00 作者：

Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bstr(.responsebody)'对取得信息进行验证，如果信息长度小于100则说明截取失败if len(.responsebody)<100 thenresponse.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"response.endend ifEnd With Set Retrieval = 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 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'声明截取的格式，从Start开始截取，到Last为结束Function GetKey(HTML,Start,Last)filearray=split(HTML,Start)filearray2=split(filearray(1),Last)GetKey=filearray2(0)End Functionurl="http://www.86516.com"Html = GetURL(Url)savetofile html,"ce.htm"

[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

12 下一页阅读全文

两种小偷程序的比较

用XMLHTTP来偷东西哈！
用XMLHTTP来偷东西哈！...
2006-06-06
防盗链接ASP函数
由于很多手机铃声网站都有一个自己的防盗链程序，但此程序也就一个“防君子，不防小偷”的功能。
2009-11-11
用xmlhttp编写web采集程序
用xmlhttp编写web采集程序...
2006-12-12
如何写ASP入库小偷程序
如何写ASP入库小偷程序...
2007-06-06
XML相关技术资料
XML相关技术资料...
2006-07-07
asp下利用XMLHTTP 从其他页面获取数据的代码
asp下利用XMLHTTP 从其他页面获取数据的代码...
2007-11-11
小偷程序2
小偷程序2...
2006-12-12
图片自动保存到本地并利用aspjpeg为图片加水印
图片自动保存到本地并利用aspjpeg为图片加水印...
2006-07-07
ASP采集入库生成本地文件的几个函数
ASP采集入库生成本地文件的几个函数...
2006-06-06
Asp定时执行操作 Asp定时读取数据库(网页定时操作详解)
由于目前部分网页语言的限制，在定时操作上有一定的困难，但是经过我多次的求证，发现第四种方法无疑是效果最好的，最省心的。
2009-10-10

两种小偷程序的比较第1/2页

相关文章

最新评论

大家感兴趣的内容

最近更新的内容

常用在线小工具