In letzter Zeit sind einige Sammelprogramme im Internet beliebt. Mehr Menschen verkaufen diese Dinge online. Viele Menschen, die nicht viel wissen, sind neidisch auf diese Programme. Wenn Sie einige ASP verstehen und die Prinzipien der automatischen Sammelprogramme verstehen, werden Sie das Gefühl haben, dass es so einfach ist, Automatisierung zu implementieren.
Prinzip und Vorteile: Durch die XMLHTTP -Komponente in XML werden die Webseiten auf anderen Websites aufgerufen und dann die ursprünglichen Informationen abfangen oder ersetzen, damit sie in Variablen konvertiert und dann einzeln in der Datenbank gespeichert werden. Sein Hauptvorteil besteht darin, dass es nicht erforderlich ist, eine große Menge an Informationen manuell hinzuzufügen. Sie können das Abfangen einer bestimmten Standortinformationen und Stapeleingaben angeben, um den Zweck des Speicherns von Zeit und Aufwand zu erreichen. Im Gegensatz zu seinem rein ASP Thief -Programm: Es stützt sich nicht mehr auf seine Zielwebsite.
Einfache Beispiele:
Die Codekopie lautet wie folgt:
<%
„Deklarieren Sie die Funktion, um die Zielinformationen zu erhalten, und implementieren Sie sie über XML -Komponenten.
Geturl (/Blog/URL)
SetRevalal = createObject ("microsoft.xmlhttp")
Withrieval
Öffnen Sie "Get", URL, falsch
Schicken
Geturl = bytes2bstr (.responseBody)
»Überprüfen Sie die erhaltenen Informationen. Wenn die Informationslänge weniger als 100 beträgt, bedeutet dies, dass das Abfangen fehlgeschlagen ist
iflen (.responsebody) <100Then
Antwort.Write "Die Remotedatei nicht erhalten <Ahref ="/blog/"& url &" target = _blank> "& url &" </a>. "
Antwort.end
Endif
Endwith
SetReval = nichts
Ende
'Binär zu String, ansonsten wird verstümmelt!
bytes2bstr (vin)
Streturn = ""
fei = 1tolenb (vin)
thischarcode = ascb (Midb (vin, i, 1))
IFTHISCHARCODE <& H80Then
Streturn = Streturn & chrt (thisharcode)
anders
NextCharcode = ASCB (Midb (Vin, I+1,1))
Streturn = Streturn & chrt (clng (thischarcode)*& h100+cint (NextCharCode))
i = i+1
Endif
nächste
bytes2bstr = Streturn
Ende
'Deklarieren Sie das abgefangene Format, beginnen Sie endlich von Anfang und Ende
GetKey (HTML, Start, zuletzt)
filearray = split (html, start)
filearray2 = split (filearray (1), zuletzt)
GetKey = filearray2 (0)
Ende
Dimsoftid, URL, HTML, Titel
'Holen Sie sich die ID der Seite ab, die abgerufen werden soll
SoftID = Request ("ID")
Url = "http://www3.skycn.com/soft/" & softid & ".html"
Html = geturl (/blog/url)
»Nehmen Sie den Softwarenamen der Abfangen von Sky Software als Beispiel
Title = getKey (html, "<fontcolor = '#004fc6'size =' 3 '>", "</font> </b> </td> </tr>"))
'Öffnen Sie die Datenbank und bereiten Sie die Eingabe der Datenbank vor
Dimconnstr, Conn, RS, SQL
connStr = "dbq ="+server.mappath ("db1.mdb")+"; defaultDir =; triver = {microsoft accessDriver (*. Mdb)};"
setConn = server.createObject ("adodb.Connection")
Conn.openconnstr
setrs = server.createObject ("adodb.recordset")
SQL = "SELECT [Spaltenname] aus [Tabellenname] wobei [Spaltenname] = '" & title & "'" "
Rs.opensql, Conn, 3,3
ifrs.eofandrs.Bofthen
RS ("Spaltenname") = Titel
Rs.Update
setrs = nichts
Endif
setrs = nichts
Antwort.Write "Sammlung ist vollständig!"
%>
