最近、いくつかのコレクションプログラムがインターネットで人気があります。より多くの人々がこれらのものをオンラインで販売しています。あまり知らない多くの人々は、それらのプログラムにうらやましいです。実際、ASPを理解し、自動収集プログラムの原則を理解している場合、自動化を実装するのはとても簡単であると感じるでしょう。
原則と利点：XMLのXMLHTTPコンポーネントを介して、他のWebサイトのWebページが呼び出され、元の情報をバッチインターセプトまたは交換して、変数に変換され、データベースに1つずつ保存されます。その主な利点は、大量の情報を手動で追加する必要がないことです。特定のサイト情報とバッチ入力の傍受を指定して、時間と労力を節約する目的を達成できます。純粋にASP泥棒プログラムとは異なり、ターゲットWebサイトに依存していません。
簡単な例：
<％
'関数を宣言して、ターゲット情報を取得し、XMLコンポーネントを介して実装します。
geturl（/blog/url）
setretrieval = createObject（ "microsoft.xmlhttp"）
withretrieval
「get」、url、falseを開きます
送信
geturl = bytes2bstr（.responsebody）
'取得した情報を確認します。情報の長さが100未満の場合、傍受が失敗したことを意味します
iflen（.responsebody）<100then
response.write "リモートファイルを取得できませんでした<ahref ="/blog/"＆url＆" target = _blank> "＆url＆" </a>。 「
Response.End
endif
終わりに
setretrieval =何もない
終わり
'バイナリを文字列にめくり、それ以外の場合はargledが表示されます！
bytes2bstr（vin）
strreturn = ""
fori = 1tolenb（vin）
thischarcode = ascb（midb（vin、i、1））
ifthischarcode <＆h80then
strreturn = strreturn＆chr（thischarcode）
それ以外
NextCharcode = ascb（midb（vin、i+1,1））
strreturn = strreturn＆chr（clng（thischarcode）*＆h100+cint（nextcharcode）））
i = i+1
endif
次
bytes2bstr = strreturn
終わり
「インターセプトされた形式を宣言し、最初から開始から開始し、最後に終了します
getKey（html、start、last）
filearray = split（html、start）
filearray2 = split（filearray（1）、last）
getKey = filearray2（0）
終わり
dimsoftid、url、html、タイトル
'ページのIDを取得します
softid = request（ "id"）
url = "http://www3.skycn.com/soft/"＆softid＆ ".html"
html = geturl（/blog/url）
'インターセプトするスカイソフトウェアのソフトウェア名を例として取ります
title = getKey（html、 "<fontcolor = '＃004fc6'size =' 3 '>"、 "</font> </b> </td> </tr>"）
「データベースを開き、データベースに入力する準備をします
Dimconnstr、Conn、RS、SQL
connstr = "dbq ="+server.mappath（ "db1.mdb"）+"; defaultdir =; driver = {microsoft accessdriver（*。mdb）};"
setConn = server.createObject（ "adodb.connection"）
conn.openconnstr
setrs = server.createObject（ "adodb.recordset"）
sql = "[列名]から[列名]を選択しますwhere [列名] = '"＆title＆ "'"
rs.opensql、conn、3,3
ifrs.eofandrs.bofthen
rs（ "列名"）=タイトル
rs.update
setrs =何もない
endif
setrs =何もない
Response.Write「コレクションは完了です！」
％>
