精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产aⅴ一区二区三区

[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]