Baru -baru ini, ada beberapa prosedur pengumpulan di internet. Program, Anda akan merasa seperti Anda akan merasa sangat mudah untuk mengimplementasikan otomatisasi.
Prinsip dan Keuntungan: Hubungi halaman web di situs web lain melalui komponen XMLHTTP di XML, dan kemudian mencegat atau mengganti informasi asli dalam batch untuk mengubahnya menjadi variabel dan menyimpannya dalam database satu per satu. Keuntungan utamanya adalah bahwa tidak perlu menambahkan banyak informasi untuk tangannya. Berbeda dari program Pencuri ASP sederhana: tidak lagi bergantung pada situs web targetnya.
Contoh sederhana:
| Berikut ini adalah fragmen kode: <% 'Pernyataan fungsi mendapatkan informasi target dan mengimplementasikannya melalui komponen XML. Function getUrl (url) Setrieval = createObject ("microsoft.xmlhttp") Dengan pengambilan .Open "get", url, false .Mengirim GetUrl = bytes2bstr (.responseBody) 'Verifikasi informasi, jika panjang informasi kurang dari 100, itu berarti intersepsi gagal Jika len (.responseBody) <100 itu Response.write "Dapatkan file jarak jauh <a href =" & url & "target = _blank>" & url & "</a> kegagalan." respons.end akhiri jika Berakhir dengan Setrieval = tidak ada Fungsi akhir 'Ganda -To -making String, jika tidak akan kacau! Fungsi bytes2btr (VIN) strreturn = "" " untuk i = 1 ke lenb (vin) Kode ini = ASCB (midb (vin, i, 1)) Jika kode ini <& H80 maka Strreturn = Strreturn & CHR (Kode ini) kalau tidak nextCharcode = ascb (midb (vin, i 1,1)))) Strreturn = Strreturn & Chr (Clng (ThisCharcode) * & H100 Cint (NextCharCode)) i = i 1 akhiri jika Berikutnya BYTES2BSTR = Strreturn fungsi akhir 'Nyatakan format intersepsi, mulai dari awal hingga akhir terakhir Fungsi getkey (html, start, last) fileArray = split (html, mulai) fileArray2 = split (fileArray (1), terakhir) GetKey = fileArray2 (0) Fungsi akhir Redup softid, url, html, judul 'Dapatkan ID halaman Softid = request ("id") Url = "http://www3.skycn.com/soft/" & softid & ".html" Html = getUrl (url) 'Mengambil nama perangkat lunak perangkat lunak Sky sebagai contoh Title = getKey (html, "<font color = '#004fc6' size = '3'>", "</font> </td> </tr>) 'Buka database dan bersiaplah untuk memasuki perpustakaan Connstr, Conn, RS, SQL connstr = "dbq =" server.mappath ("db1.mdb") "" "; Set Conn = Server.CreateObject ("AdodB.Connection") Conn.open Connstr Set RS = Server.CreateObject ("ADODB.OldSet") sql = "pilih [nama kolom] dari [name watch] di mana [nama kolom] = '& title &"' " Rs.oopen Sql, Conn, 3,3 Jika rs.eof dan rs.bof maka Rs ("" listing ") = judul rs.update Setel RS = Tidak Ada akhiri jika Setel RS = Tidak Ada Response.write "Dikumpulkan!" %> |
Mari kita beri nama dia getkey.asp untuk saat ini, mari kita uji hasil yang dicegat dengan mesin ini (ambil http://www3.skycn.com/soft/771.html sebagai contoh).
Http://127.0.0.1/getkey.asp?id=771