两种小偷程序的比较第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-09-09
也谈采集入库的技术
[红色]也谈采集入库的技术...
2006-07-07
独孤剑写的马克斯迅雷片库采集插件1.4 官方最新版提供下载了
非常不错的采集迅雷插件，经本人测试非常不错，而且作者很热心，是个好人，希望大家支持下，不要拿去卖了。
2008-01-01
如何写ASP入库小偷程序
如何写ASP入库小偷程序...
2007-06-06
vbs或asp采集文章时网页编码问题
研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码
2008-07-07
asp下用ADODB.Stream代替FSO读取文本文件
在ASP中，我们常用Scripting.FileSystemObject组件来读写文本文件，但它有一个缺点是对编码支持不足，比如我们想读写一个utf-8文本文件，FSO就很难办到了，这时我们就需要使用Adodb.Stream组件来代替它。
2007-08-08
asp下利用XMLHTTP 从其他页面获取数据的代码
asp下利用XMLHTTP 从其他页面获取数据的代码...
2007-11-11
蓝色空间天气小偷
蓝色空间天气小偷...
2006-08-08
XML相关技术资料
XML相关技术资料...
2006-07-07
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码...
2007-03-03

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

相关文章

最新评论

大家感兴趣的内容

最近更新的内容

常用在线小工具