小偷程序原理和簡單示例

現在網上流行的小偷程序比較多，有新聞類小偷，音樂小偷，下載小偷，那麼它們是如何做的呢，下面我來做個簡單介紹，希望對各位站長有所幫助。
（一）原理
小偷程序實際上是通過了XML中的XMLHTTP組件調用其它網站上的網頁。比如新聞小偷程序，很多都是調用了sina的新聞網頁，並且對其中的html進行了一些替換，同時對廣告也進行了過濾。用小偷程序的優點有：無須維護網站，因為小偷程序中的數據來自其他網站，它將隨著該網站的更新而更新；可以節省服務器資源，一般小偷程序就幾個文件，所有網頁內容都是來自其他網站。缺點有：不穩定，如果目標網站出錯，程序也會出錯，而且，如果目標網站進行升級維護，那麼小偷程序也要進行相應修改；速度，因為是遠程調用，速度和在本地服務器上讀取數據比起來，肯定要慢一些。
0 ^* |  D" f5 @! W1 V（二）事例

下面就XMLHTTP在ASP中的應用做個簡單說明
: m7 ]6 l* H, E) I0 ~# ^
2 Z  B0 m. {  ?1 [9 C& u. J8 n7 l<%
9 N* x# P- K) _2 g5 d'常用函數

'1、輸入url目標網頁地址，返回值getHTTPPage是目標網頁的html代碼
% F6 g* ^! o+ v1 Z4 _  o$ B4 zfunction getHTTPPage(url)
dim Http
& _& y- G& @% {) f6 Jset Http=server.createobject("MSXML2.XMLHTTP")
1 P1 e/ s3 q$ d; E# K3 D8 wHttp.open "GET",url,false
; L- I+ I' K7 t. E  [: G2 lHttp.send()
% q1 p& v7 a3 {: E7 c( P7 _0 fif Http.readystate<>4 then
exit function
end if
6 r  a: b7 n# O- Z# o3 HgetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
6 \4 n: [8 F/ ]5 S' dset http=nothing
3 i( [  N2 i* e+ A: F5 w7 Q0 Fif err.number<>0 then err.Clear
# k5 ^, ~5 V& W" B5 Vend function

4 e5 b9 W9 e2 f4 P2 L& M  ~* G* V  S'2、轉換亂瑪，直接用xmlhttp調用有中文字符的網頁得到的將是亂瑪，可以通過adodb.stream組件進行轉換
' G4 C7 }$ g  \* @) eFunction BytesToBstr(body,Cset)
2 a% F- J/ ^8 p) N6 i/ N) n# n5 Ldim objstream
: u5 `6 j. l! a4 P9 |4 y  K, {set objstream = Server.CreateObject("adodb.stream")
3 t+ R# P8 B, G  ?- Xobjstream.Type = 1
objstream.Mode =3
& o6 g  G, d$ ~' ^  Q: }( D! f$ dobjstream.Open
- B# h  O* ]" ]3 `objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
. j- [$ |0 ~; e# c0 A; rBytesToBstr = objstream.ReadText
* [, y. T" X* {% B6 |8 ~objstream.Close
, M# x& X! X) l1 Zset objstream = nothing
" W1 R. P/ j% X" ~0 V' t/ jEnd Function


  U! z6 z: K/ J: H8 n5 ]
, [+ d* g% ?' [
, b- H# x# l" x! B0 y7 ^'下面試著調用http://www.3doing.com/earticle/的html內容
Dim Url,Html
8 {+ _6 m2 z/ c. m4 b1 y* e9 V/ WUrl="http://www.3doing.com/earticle/";
6 Y, t. C4 H* mHtml = getHTTPPage(Url)
Response.write Html
%>