[align=left]现在网上流行的小偷程序比较多，有新闻类小偷，音乐小偷，下载小偷，那么它们是如何做的呢，下面我来做个简单介绍，希望对各位站长有所帮助。 [br] （一）原理 [br] 小偷程序实际上是通过了xml中的xmlhttp组件调用其它[url=http://gougou.com/search?search=网站;&id=24304]网站[/url]上的[url=http://gougou.com/search?search=网页;&id=24304]网页[/url]。比如新闻小偷程序，很多都是调用了sina的新闻[url=http://gougou.com/search?search=网页;&id=24304]网页[/url]，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用小偷程序的优点有：无须维护[url=http://gougou.com/search?search=网站;&id=24304]网站[/url]，因为小偷程序中的数据来自其他[url=http://gougou.com/search?search=网站;&id=24304]网站[/url]，它将随着该[url=http://gougou.com/search?search=网站;&id=24304]网站[/url]的更新而更新；可以节省[url=http://gougou.com/search?search=服务器;&id=24304]服务器[/url]资源，一般小偷程序就几个文件，所有[url=http://gougou.com/search?search=网页;&id=24304]网页[/url]内容都是来自其他[url=http://gougou.com/search?search=网站;&id=24304]网站[/url]。缺点有：不稳定，如果目标[url=http://gougou.com/search?search=网站;&id=24304]网站[/url]出错，程序也会出错，而且，如果目标[url=http://gougou.com/search?search=网站;&id=24304]网站[/url]进行升级维护，那么小偷程序也要进行相应修改；速度，因为是远程调用，速度和在本地[url=http://gougou.com/search?search=服务器;&id=24304]服务器[/url]上读取数据比起来，肯定要慢一些。 [br] （二）事例 [br] [br] 下面就xmlhttp在asp中的应用做个简单说明 [br] [br] <-% [br] '常用函数 [br] [br] '1、输入url目标[url=http://gougou.com/search?search=网页;&id=24304]网页[/url]地址，返回值gethttppage是目标[url=http://gougou.com/search?search=网页;&id=24304]网页[/url]的html[url=http://gougou.com/search?search=代码;&id=24304]代码[/url] [br] function gethttppage(url) [br] dim http [br] set http=server.createobject("msxml2.xmlhttp") [br] http.open "get",url,false [br] http.send() [br] if http.readystate<>4 then [br] exit function [br] end if [br] gethttppage=bytestobstr(http.responsebody,"gb2312") [br] set http=nothing [br] if err.number<>0 then err.clear [br] end function [br] [br] '2、转换乱玛，直接用xmlhttp调用有中文字符的[url=http://gougou.com/search?search=网页;&id=24304]网页[/url]得到的将是乱玛，可以通过adodb.stream组件进行转换 [br] function bytestobstr(body,cset) [br] dim objstream [br] set objstream = server.createobject("adodb.stream") [br] objstream.type = 1 [br] objstream.mode =3 [br] objstream.open [br] objstream.write body [br] objstream.position = 0 [br] objstream.type = 2 [br] objstream.charset = cset [br] bytestobstr = objstream.readtext [br] objstream.close [br] set objstream = nothing [br] end function [br] [br] [br] [br] [br] '下面试着调用http://3doing.com/earticle/的html内容 [br] dim url,html [br] url="http://3doing.com/earticle/" [br] html = gethttppage(url) [br] response.write html [br] %-> [/align]