Rufen Sie Webseiten auf anderen Websites über die XMLHTTP-Komponente in XML auf und fangen Sie dann die Originalinformationen stapelweise ab, konvertieren Sie sie in Variablen und speichern Sie sie dann einzeln in der Datenbank. Der Hauptvorteil besteht darin, dass keine große Menge an Informationen manuell hinzugefügt werden muss. Sie können das Abfangen von Informationen von einer bestimmten Station stapelweise eingeben, was Zeit und Aufwand spart. Der Unterschied zu seinem reinen ASP-Diebprogramm besteht darin, dass es nicht mehr auf die Zielwebsite angewiesen ist.
Referenzcode:
Kopieren Sie den Codecode wie folgt:
<%
'Deklariert eine Funktion zum Erhalten von Zielinformationen, implementiert durch XML-Komponenten.
Funktion Geturl(/blog/url)
Set Retrieval = CreateObject(Microsoft.XMLHTTP)
Mit Abruf
.Öffnen Sie GET, URL, False
.Schicken
GetURL = bytes2bstr(.responsebody)
„Überprüfen Sie die erhaltenen Informationen. Wenn die Länge der Informationen weniger als 100 beträgt, schlägt das Abfangen fehl.“
wenn len(.responsebody)<100 dann
Response.write konnte die Remote-Datei <a href=&url& target=_blank>&url&</a> nicht abrufen.
Antwort.Ende
Ende wenn
Ende mit
Abruf festlegen = Nichts
Funktion beenden
' Binär in String umwandeln, andernfalls werden verstümmelte Zeichen angezeigt!
Funktion bytes2bstr(vin)
strreturn =
für i = 1 bis lenb(vin)
thischarcode = ascb(midb(vin,i,1))
Wenn dieser Zeichencode < &h80 ist, dann
strreturn = strreturn & chr(thischarcode)
anders
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
ich = ich + 1
Ende wenn
nächste
bytes2bstr = strreturn
Endfunktion
'Deklarieren Sie das Abfangformat, beginnend mit Start und endend mit Last
Funktion GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
Funktion beenden
Dimmen Sie Softid, URL, HTML, Titel
'Rufen Sie die ID der Seite ab, die Sie abrufen möchten
SoftId=Anfrage(ID)
URL=http://www3.skycn.com/soft/&SoftId&.html
Html = Geturl(/blog/Url)
„Nehmen Sie als Beispiel den Namen der Software zum Abfangen des Himmels.“
Title = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
„Öffnen Sie die Datenbank und bereiten Sie die Speicherung vor.“
dimmen Sie connstr,conn,rs,sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};
set conn=server.createobject(ADODB.CONNECTION)
conn.open connstr
set rs=server.createobject(adodb.recordset)
sql=wählen Sie [Spaltenname] aus [Tabellenname] aus, wobei [Spaltenname]='&Titel&' ist.
rs.open sql,conn,3,3
wenn rs.eof und rs.bof dann
rs(Spaltenname)=Titel
rs.update
setze rs=nichts
Ende wenn
setze rs=nichts
Response.Write-Sammlung abgeschlossen!
%>