ASP小偷(远程数据获取)程序入门教程

发布时间:2022-04-17 发布网站:脚本宝典
脚本宝典收集整理的这篇文章主要介绍了ASP小偷(远程数据获取)程序入门教程脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
这里所说的“小偷”指的是在asp中运用XMl中的xMLhttp组件提供的强大功能,把远程网站上的数据(图片,网页及其他文件)抓取到本地,经过各种处理后显示到页面上或者存储进数据库的一类程序。你可以通过这种小偷程序,完成过去一些似乎完全不可能实现的任务,比如说把某个站的页面偷梁换柱后变成自己的页面,或者把某个站的一些数据(文章,图片)保存到本地数据库中加以利用。“小偷”的优点有:无须维护网站,因为小偷程序中的数据来自其他网站,它将随着该网站的更新而更新;可以节省大量的服务器,一般小偷程序就几个文件,所有网页内容都是来自其他网站。缺点在于:不稳定,如果目标网站出错,程序也会出错,而且,如果目标网站进行升级维护,那么小偷程序也要进行相应修改;速度,因为是远程调用,速度和在本地服务器上读取数据比起来,肯定要慢一些。怎么样,听起来很神奇吧?我们现在就开始来学习一些“小偷”程序的入门知识吧!

    我们拿个简单点的东西来研究一下吧,QQ网站上的天气预报程序

    代码如下:

 1 <%
 2 On Error Resume Next
 3 Server.Scripttimeout=9999999
 4 Function Gethttppage(Path)
 5 = Getbody(Path)
 6 Gethttppage=Bytestobstr(T,"Gb2312")
 7 End Function
 8
 9 ' 首先,进行小偷程序的一些初始化设置,以上代码的作用分别是忽略掉所有非致命性错误,把小偷程序的运行超时时间设置得很长(这样不会出现运行超时的错误),转换原来默认的utf-8编码转换成gb2312编码,否则直接用xmlhttp组件调用有中文字符的网页得到的将是乱码。
10
11 Function Getbody(Url) 
12 On Error Resume Next
13 Set Retrieval = Createobject("Microsoft.Xmlhttp"
14 WITh Retrieval 
15 .OPE"Get", Url, False"""" 
16 .Send 
17 Getbody = .Responsebody
18 End With 
19 Set Retrieval = Nothing 
20 End Function
21
22 '然后调用xmlhttp组件创建一个对象并进行初始化设置。
23
24 Function Bytestobstr(Body,Cset)
25 Dim Objstream
26 Set Objstream = Server.Createobject("Adodb.Stream")
27 Objstream.Type = 1
28 Objstream.Mode =3
29 Objstream.Open
30 Objstream.Write Body
31 Objstream.Position = 0
32 Objstream.Type = 2
33 Objstream.Charset = Cset
34 Bytestobstr = Objstream.Readtext 
35 Objstream.Close
36 Set Objstream = Nothing
37 End Function
38
39 Function Newstring(Wstr,Strng)
40 Newstring=Instr(Lcase(Wstr),Lcase(Strng))
41 If Newstring<=0 Then Newstring=Len(Wstr)
42 End Function
43
44 '处理抓取回来的数据需要调用adodb.Stream组件并进行初始化设置。%>

脚本宝典总结

以上是脚本宝典为你收集整理的ASP小偷(远程数据获取)程序入门教程全部内容,希望文章能够帮你解决ASP小偷(远程数据获取)程序入门教程所遇到的问题。

如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。
标签: