Baru -baru ini, beberapa program koleksi populer di internet. Lebih banyak orang menjual barang -barang ini secara online. Banyak orang yang tidak tahu banyak iri dengan program -program itu. Bahkan, jika Anda memahami beberapa ASP dan memahami prinsip -prinsip program pengumpulan otomatis, Anda akan merasa sangat mudah untuk mengimplementasikan otomatisasi.
Prinsip dan Keuntungan: Melalui komponen XMLHTTP di XML, halaman web di situs web lain dipanggil, dan kemudian batch mencegat atau mengganti informasi asli sehingga dikonversi menjadi variabel dan kemudian disimpan dalam database satu per satu. Keuntungan utamanya adalah tidak perlu secara manual menambahkan sejumlah besar informasi. Anda dapat menentukan intersepsi informasi situs tertentu dan input batch untuk mencapai tujuan menghemat waktu dan upaya. Tidak seperti Program Pencuri ASP murni: tidak lagi bergantung pada situs web targetnya.
Contoh sederhana:
Salinan kode adalah sebagai berikut:
<%
'Deklarasikan fungsi untuk mendapatkan informasi target dan mengimplementasikannya melalui komponen XML.
GetUrl (/blog/url)
SetRetrieval = createObject ("microsoft.xmlhttp")
Tanpa retrieval
Buka "Get", URL, salah
Mengirim
GetUrl = bytes2bstr (.responseBody)
'Verifikasi informasi yang diperoleh. Jika panjang informasi kurang dari 100, itu berarti intersepsi gagal
iflen (.responseBody) <100then
response.write "Gagal mendapatkan file jarak jauh <ahref ="/blog/"& url &" target = _blank> "& url &" </a>. "
respons.end
endif
Endwith
SetRetrieval = tidak ada
Akhir
'Turn Binary ke String, jika tidak kacau akan muncul!
bytes2btr (VIN)
strreturn = ""
fori = 1TolenB (VIN)
Kode ini = ASCB (midb (vin, i, 1))
ifthischarcode <& H80then
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
endif
Berikutnya
BYTES2BSTR = Strreturn
akhir
'Deklarasikan format yang dicegat, mulai dari awal dan akhirnya
Getkey (html, mulai, terakhir)
fileArray = split (html, mulai)
fileArray2 = split (fileArray (1), terakhir)
GetKey = fileArray2 (0)
Akhir
Dimsoftid, url, html, judul
'Dapatkan ID halaman untuk diambil
Softid = request ("id")
Url = "http://www3.skycn.com/soft/" & softid & ".html"
Html = getUrl (/blog/url)
'Ambil nama perangkat lunak perangkat lunak Sky yang mencegat sebagai contoh
Title = getKey (html, "<fontcolor = '#004fc6'size =' 3 '>", "</font> </b> </td> </tr>")
'Buka database dan bersiaplah untuk memasukkan database
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 = "pilih [nama kolom] dari [nama tabel] di mana [nama kolom] = '" & title & "'"
rs.opensql, Conn, 3,3
ifrs.eofandrs.bofthen
RS ("Nama kolom") = Judul
rs.update
setRs = tidak ada
endif
setRs = tidak ada
Koleksi Response.write "Lengkap!"
%>