XML の XMLHTTP コンポーネントを介して他の Web サイトの Web ページを呼び出し、元の情報を一括で取得または置換して変数に変換し、1 つずつデータベースに格納します。その主な利点は、大量の情報を手動で追加する必要がないことです。特定の局からの情報の受信を一括で指定できるため、時間と労力を節約できます。純粋な ASP 窃盗プログラムとの違いは、ターゲット Web サイトに依存しなくなったことです。
参照コード:
次のようにコードをコピーします。
<%
'XML コンポーネントを通じて実装される、ターゲット情報を取得する関数を宣言します。
関数 Geturl(/blog/url)
取得 = CreateObject(Microsoft.XMLHTTP) を設定します
検索あり
.Open GET、URL、False
。送信
GetURL = bytes2bstr(.responsebody)
' 取得した情報を確認します。情報の長さが 100 未満の場合、傍受は失敗します。
len(.responsebody)<100 の場合
response.write はリモート ファイル <a href=&url& target=_blank>&url&</a> を取得できませんでした。
応答.終了
終了する場合
で終わる
取得 = なしを設定します
終了機能
' バイナリを文字列に変換しないと文字化けが発生します!
関数 bytes2bstr(vin)
strreturn =
for i = 1 から lenb(vin)
thischarcode = ascb(midb(vin,i,1))
この文字コード < &h80 の場合
strreturn = strreturn & chr(この文字コード)
それ以外
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
終了する場合
次
bytes2bstr = strreturn
終了関数
'Start から始まり Last で終わるインターセプト形式を宣言します。
関数 GetKey(HTML,Start,Last)
filearray=split(HTML,開始)
filearray2=split(filearray(1),Last)
GetKey=ファイル配列2(0)
終了機能
Dim Softid、URL、HTML、タイトル
'取得したいページのIDを取得します
SoftId=リクエスト(ID)
URL=http://www3.skycn.com/soft/&SoftId&.html
Html = Geturl(/ブログ/URL)
「空のソフトウェアを傍受するソフトウェア名を例に挙げます」
タイトル = GetKey(HTML,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'データベースを開いて保存する準備をします
dim connstr、conn、rs、sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};
set conn=server.createobject(ADODB.CONNECTION)
conn.open connstr
set rs=server.createobject(adodb.recordset)
sql=select [列名] from [テーブル名] where [列名]='&Title&'
rs.open SQL,conn,3,3
rs.eof と rs.bof の場合
rs(列名)=タイトル
rs.アップデート
rs=何も設定しない
終了する場合
rs=何も設定しない
Response.書き込み収集完了！
%>