Panggil halaman web di situs web lain melalui komponen XMLHTTP dalam XML, lalu potong atau ganti informasi asli secara batch untuk mengubahnya menjadi variabel dan kemudian menyimpannya satu per satu di database. Keuntungan utamanya adalah tidak perlu menambahkan informasi dalam jumlah besar secara manual. Anda dapat menentukan intersepsi informasi dari stasiun tertentu untuk dimasukkan secara berkelompok, sehingga menghemat waktu dan tenaga. Bedanya dengan program pencuri ASP murni adalah tidak lagi bergantung pada website targetnya.
Kode referensi:
Copy kode kodenya sebagai berikut:
<%
'Mendeklarasikan fungsi untuk memperoleh informasi target, diimplementasikan melalui komponen XML.
Fungsi Geturl(/blog/url)
Setel Pengambilan = Buat Objek (Microsoft.XMLHTTP)
Dengan Pengambilan
.Buka GET, url, Salah
.Mengirim
GetURL = bytes2bstr(.responsebody)
'Verifikasi informasi yang diperoleh. Jika panjang informasi kurang dari 100, intersepsi gagal.
jika len(.responsebody)<100 maka
respon.write gagal mendapatkan file jarak jauh <a href=&url& target=_blank>&url&</a>.
respon.akhir
berakhir jika
Akhiri Dengan
Atur Pengambilan = Tidak Ada
Fungsi Akhir
' Ubah biner menjadi string, jika tidak, karakter kacau akan muncul!
fungsi byte2bstr(vin)
strreturn =
untuk i = 1 sampai lenb(vin)
kode karakter ini = ascb(midb(vin,i,1))
jika kode karakter ini < &h80 maka
strreturn = strreturn & chr(kode karakter ini)
kalau tidak
kode karakter berikutnya = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(kode karakter ini) * &h100 + cint(kode karakter berikutnya))
saya = saya + 1
berakhir jika
Berikutnya
bytes2bstr = strkembali
fungsi akhir
'Nyatakan format intersepsi, dimulai dari Awal dan diakhiri dengan Terakhir
Fungsi GetKey(HTML,Mulai,Terakhir)
filearray=split(HTML,Mulai)
filearray2=split(filearray(1),Terakhir)
DapatkanKey=filearray2(0)
Fungsi Akhir
Redupkan Softid,Url,Html,Judul
'Dapatkan ID halaman yang ingin Anda ambil
SoftId=Permintaan(Id)
Url=http://www3.skycn.com/soft/&SoftId&.html
Html = Geturl(/blog/Url)
'Ambil contoh nama perangkat lunak pencegat langit
Judul = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'Buka database dan bersiap untuk menyimpannya
koneksi redup, samb, rs, sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};
setel koneksi=server.buat objek(ADODB.CONNECTION)
koneksi.buka koneksi
set rs=server.createobject(adodb.recordset)
sql=pilih [nama kolom] dari [nama tabel] di mana [nama kolom]='&Judul&'
rs.open sql,sambungan,3,3
jika rs.eof dan rs.bof maka
rs(nama kolom)=Judul
rs.update
atur rs=tidak ada
berakhir jika
atur rs=tidak ada
Respons.Penulisan koleksi selesai!
%>