Verwenden Sie ASP, um die angegebenen Inhalte der Remote -Webseite zu erhalten, Sie können leicht einige der angegebenen Inhalte der Webseite von anderen erhalten.
Der Code ist wie folgt:
<%
'Verwenden Sie ASP, um den angegebenen Inhalt der Remote -Zielwebseite zu erhalten. Der Code wird von der Guangzhou -Website bereitgestellt, um http://www.vevb.com zu erstellen
Bei der nächsten Fehleraufnahme als nächstes
Server.scripttimeout = 99999999
Funktion Gethttppage (Pfad)
T = Getbody (Pfad)
Getttppage = byTestObstr (t, gb2312)
Endfunktion
Funktion Newstring (WSTR, STRNG)
NewString = Instr (Lase (WSTR), Lase (strng))
Wenn NewString <= 0 dann NewString = len (WSTR)
Endfunktion
Funktion byTestObstr (Körper, cset)
Dimer Objstream
Setzen Sie objstream = server.createObject (adodb.stream)
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write?
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
objstream einstellen = nichts
Endfunktion
Funktion Getbody (URL)
Bei der nächsten Fehleraufnahme als nächstes
Set Retrieval = createObject (microsoft.xmlhttp)
Mit Abruf
.Opeen bekommen, url, falsch ,,,,,,,
.Schicken
Getbody = .ResponseBody
Enden mit
SetRieval = nichts
Endfunktion
'ASP erhält den angegebenen Inhalt des Starts der Remote -Webseite mit dem Start
Dim WSTR, Str, URL, Start, Over, Time
A = Inhalt starten 'ASP erhalten Sie den Ziel -Webseite und beginnen Sie mit dem Markieren
B = Endinhalte 'ASP, um das Web -Inhaltsendezeichen zu erhalten
url = http://sc.vevb.com/
WSTR = Gethttppage (URL)
Start = Newsstring (WSTR, A)
Over = Newsstring (WSTR, B)
Body = Mid (WSTR, Start, Überstart)
Antwort.Write & Body & 'Ausgabe erhaltener Webseite Inhalt
'ASP erhalten Sie den angegebenen Inhalt der Remote -Webseite endet
%>
Der obige Code kann den Inhalt der angegebenen Webseite abrufen.
Kerncode:
'ASP erhält den angegebenen Inhalt des Starts der Remote -Webseite mit dem Start
Dim WSTR, Str, URL, Start, Over, Time
url = http://sc.vevb.com/
WSTR = Gethttppage (URL)
Body = wstr