<%
'----------Rufen Sie den Inhalt aus der Ferne ab und speichern Sie ihn auf dem lokalen Computer, einschließlich aller Dateien! ----------
'--------------Verwendung von xmlhttp und adodb.stream-----------------
„Bei Fehler Weiter fortsetzen.“
'----------------------------------Ausgabeformat definieren------------ ------ ---------------
path=Anfrage(Pfad)
wenn Pfad = dann
path=http://pcqc.86516.com/index.asp
„Die hier definierte URL ist Baidu. Bitte beachten Sie, dass ein Dateisuffix vorhanden sein muss.“
Ende wenn
sPath = Pfad
if left(lcase(path),7) <> http:// then
'-------------Wenn kein http davor steht, handelt es sich um eine lokale Datei und wird zur Verarbeitung an LocalFile übergeben------------
LocalFile(Pfad)
anders
'-----------Andernfalls handelt es sich um eine Remote-Datei und wird von RemoteFile verarbeitet---------- --------
RemoteFile(Pfad)
Ende wenn
'Response.Write err.Description
'-------------Verarbeitungsfunktion----------
subLocalFile(Pfad)
'------------------Wenn es sich um eine lokale Datei handelt, springen Sie einfach zur Seite-------------------
'Antwort.Umleitungspfad
In Response.write ist ein Fehler aufgetreten!
Sub beenden
SubRemoteFile(sPath)
'---------------------------------Remote-Dateiverarbeitungsfunktion------------ ----------------- ----------
FileName = GetFileName(sPath)
'-------------GetFileName ist der Prozess der Konvertierung einer Adresse in einen qualifizierten Dateinamen-------------
FileName = Server.MapPath(Cache/ & FileName)
Setze objFso = Server.CreateObject(Scripting.FileSystemObject)
'Response.Write fileName
if objFso.FileExists(FileName) Then
'-------------Überprüfen Sie, ob auf die Datei zugegriffen wurde. Wenn ja, springen Sie einfach -------
Response.Redirect Cache/ & GetFileName(Pfad)
Anders
'-------------Andernfalls verwenden Sie die GetBody-Funktion, um es zuerst zu lesen---------------------
'Response.Write Path
t = GetBody(Pfad)
'-----------------Verwenden Sie die Binärmethode, um in den Browser zu schreiben----------------------- -------- --
Response.BinaryWrite t
Response.Flush
'-----------------Ausgabepufferung--------------- --- ----------
SaveFile t,GetFileName(path)
'------------------Speichern Sie den Dateiinhalt für den nächsten Zugriff in einem lokalen Pfad ----------
Ende wenn
Setze objFso = Nichts
Sub beenden
Funktion GetBody(url)
'----------------------Diese Funktion ist eine Funktion zum Fernabruf von Inhalten----------------- ---
'Bei Fehler als nächstes fortfahren
'Response.Write-URL
Set Retrieval = CreateObject(Microsoft.XMLHTTP)
'--------XMLHTTP-Objekt erstellen----------------------- -----
Mit Abruf
.Open Get, URL, False, ,
'-----------------Senden mit Get, asynchrone Methode----------------------
.Schicken
'GetBody = .ResponseText
GetBody = .ResponseBody
'-----------------Funktion gibt den erhaltenen Inhalt zurück------------------------
Ende mit
Abruf festlegen = Nichts
'response.Write err.Description
Funktion beenden
Funktion GetFileName(str)
'-----------Diese Funktion ist eine qualifizierte Dateinamensfunktion-------------- - ---
str = Ersetzen(lcase(str),http://,)
str = Ersetzen(lcase(str),//,/)
str = Ersetzen(str,?,)
str = Ersetzen(str,&,)
str = Ersetzen(str,/,)
str = ersetzen(str,vbcrlf,)
GetFileName = str
Funktion beenden
sub SaveFile(str,fName)
'-----------Diese Funktion ist eine Funktion, die den Stream-Inhalt speichert------------- - ----
'Bei Fehler als nächstes fortfahren
Setze objStream = Server.CreateObject(ADODB.Stream)
'-------------Um ein ADODB.Stream-Objekt zu erstellen, ist ADO Version 2.5 oder höher erforderlich---------
'objStream.Type = adTypeBinary
objStream.Type = 1
'------------Im Binärmodus öffnen-------------------------------- -----
objStream.Open
objstream.write str
'------------Schreiben Sie den String-Inhalt in den Puffer----------------- ---------- ----
'response.Write fname
'Pfad Aufmerksamkeit
objstream.SaveToFile E:/webroot/pcqc/vip/UploadFile/cache/&fName,2
'objstream.SaveToFile d:/cache/ & fName,adSaveCreateOverWrite
'------------Gepufferten Inhalt in Datei schreiben------------------ -------- ----
'response.BinaryWrite objstream.Read
objstream.Close()
set objstream = nichts
'----------------------Schließen Sie das Objekt und geben Sie Ressourcen frei-------------------- - ----
'response.Write err.Description
Sub beenden
Funktion saveimage(from,tofile)
dim geturl,objStream,imgs
geturl=trimmen(von)
imgs=gethttppage(geturl)'Der Prozess zum Abrufen des spezifischen Inhalts des Bildes
Set objStream = Server.CreateObject(ADODB.Stream)' Zum Erstellen eines ADODB.Stream-Objekts ist ADO 2.5 oder höher erforderlich
objStream.Type =1'Im Binärmodus öffnen
objStream.Open
objstream.write imgs' schreibt den String-Inhalt in den Puffer
objstream.SaveToFile server.mappath(tofile),2'-schreibt den gepufferten Inhalt in die Datei
objstream.Close()'Schließe das Objekt
setze objstream=nichts
Endfunktion
%>