ASPで泥棒プログラムを実現する原理と簡単な例

以前はネットで流行っていた泥棒のプログラムが多いです.新聞類の泥棒や音楽泥棒がいます.どうやって泥棒をダウンロードしますか?
(一)原理
泥棒プログラムは実際にXMLのXMLHTTPコンポーネントを通して他のサイトのページを呼び出します.例えば、ニュース泥棒プログラムの多くはsinaのニュースページを呼び出して、その中のhtmlをいくつか変えました.同時に広告もフィルタリングしました.泥棒プログラムを使う利点はあります.ウェブサイトを守る必要がないです.泥棒プログラムのデータは他のサイトから来ています.このウェブサイトの更新に伴って更新されます.サーバーの資源を節約できます.一般的には泥棒プログラムはいくつかのファイルがあります.すべてのページの内容は他のサイトから来ています.欠点はあります:不安定で、もし目標のウェブサイトが間違いをするならば、プログラムも間違いができて、その上、もし目標のウェブサイトは進級して維持するならば、それでは泥棒のプログラムも相応して改正を行います.速度は、リモート起動なので、ローカルサーバでデータを読み込むよりも遅くなります.
(二)事例
XMLHTTPのASPでのアプリケーションについて簡単に説明します.＜%
'
'1、 url ， getHTTPPage html
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate＜＞4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number＜＞0 then err.Clear
end function
'2、 ， xmlhttp ， adodb.stream
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
' http://www.3doing.com/earticle/ html
Dim Url,Html
Url="http://www.3doing.com/earticle/"
Html = getHTTPPage(Url)
Response.write Html
%＞