Bicara tentang prosedur dan gudang pengumpulan otomatis

<%

'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!"

%>