Sprechen Sie über automatische Sammelverfahren und Lagerhäuser

<%

'Anweisung Die Funktion zum Erhalten der Zielinformationen und implementieren Sie sie über die XML -Komponente.

Funktion geturl (URL)

SetRieval = createObject ("microsoft.xmlhttp")

Mit Abruf

.Open "GET", URL, falsch

.Schicken

Geturl = bytes2bstr (.responseBody)

'Überprüfen Sie die Informationen, wenn die Informationslänge weniger als 100 beträgt, bedeutet dies, dass das Abfangen fehlschlägt

Wenn Len (.responsekody) <100 das

Response.write "Remote -Datei erhalten <a href =" & url & "target = _blank>" & url & "</a> fehler". "

Antwort.end

Ende wenn

Enden mit

SetRieval = nichts

Endfunktion

'Dual -to -Making -Schnur, sonst wird es verstümmelt!

Funktion bytes2bstr (vin)

Streturn = "" ""

für i = 1 bis lenb (vin)

thischarcode = ascb (Midb (vin, i, 1))

Wenn thischarcode <& h80 dann

Streturn = Streturn & chrt (thisharcode)

anders

NextChode = ASCB (Midb (Vin, I 1,1)))

Streturn = Streturn & chrt (clng (thischarcode) * & h100 cint (NextCharcode))

i = i 1

Ende wenn

nächste

bytes2bstr = Streturn

Endfunktion

Geben Sie das Format des Abfangens an, beginnend von Anfang bis Ende des letzten Jahres

Funktion getKey (HTML, Start, letztes)

filearray = split (html, start)

filearray2 = split (filearray (1), zuletzt)

GetKey = filearray2 (0)

Endfunktion

Dim Softid, URL, HTML, Titel

'Holen Sie sich die ID der Seite

SoftID = Request ("ID")

Url = "http://www3.skycn.com/soft/" & softid & ".html"

Html = geturl (URL)

'Nehmen Sie den Softwarenamen der Sky -Software als Beispiel

Title = getKey (html, "<font color = '#004fc6' size = '3'>", "</font> </td> </tr>)

'Öffnen Sie die Datenbank und bereiten Sie sich auf die Eingabe der Bibliothek vor

Dim Connstr, Conn, RS, SQL

connstr = "dbq =" server.mappath ("db1.mdb") "" ";

Setzen Sie conn = server.createObject ("adodb.Connection").

Conn.open Connstr

Setzen Sie rs = server.createObject ("adodb.oldset")

SQL = "Wählen Sie [Spaltenname] aus [Watch Name] wobei [Spaltenname] = '& title &"' ""

Rs.oopen SQL, Conn, 3,3

Wenn rs.eof und rs.Bof dann dann

RS ("" "Listing") = Titel

Rs.Update

Setzen Sie Rs = nichts

Ende wenn

Setzen Sie Rs = nichts

Antwort.Write "gesammelt!"

%>