1. Laden Sie die folgende Textdatei herunter und ändern Sie .txt in remote.asp. Es gibt bestimmte Einstellungsmethoden.
Die Codekopie lautet wie folgt:
<%
'Ob beim Hinzufügen von Ressourcen Remote -Bilder speichern
ConstSsSaveFileSelect = true
'Remote Image Save -Verzeichnis, bitte fügen Sie am Ende nicht hinzu "/"
Constsssavefilepath = "/bilder/news"
'Remote -Bildsparenentyp
ConstsFileext = "jpg | gif | bmp | png"
'///////////////////////////////////////////////////////////////////////////////////////.
'Funktion: Ersetzen Sie die Remotedatei in der Zeichenfolge als lokale Datei und speichern Sie die Remotedatei
'Parameter:
'shtml: String zu ersetzen
'ssavepath: Der Weg zum Speichern der Datei
'Sext: Ersatzerweiterung ausführen
FunktionReplaceremoteurl (SHTML, SSAVEFILEPATH, SFILEEXT)
Dims_Content
s_content = shtml
Ifisobjinstalled ("microsoft.xmlhttp") = falsethen
Ersatzeremoteurl = S_Content
Ausgangsfunktion
Endif
Dimre, RemoteFile, RemoteFileurl, SaveFileName, SaveFileType, arrsavefileNames, arrsavefileName, ssavefilepaths
Setre = newRegexp
re.Innorecase = true
re.global = true
re.Pattern = "((http | https | ftp | rtsp | mms): (//////////) {1} ((/w)+[.]) {1,} (n et | com | cn | org | cc | tv | [0-9] {1,3}) (/s*//) ((/s)+[.] {1} ("& sFileext &")) ")"
SetRemoteFile = re.execute (s_content)
ForeachremoteFileURLINREMOTEFILE
SaveFiletype = Ersetzen (ersetzen (remoteFileurl, "/", "a"), ":", "a")
arrsavefileName = rechts (SaveFiletype, 12)
ssavefilepaths = ssavefilepath & "/"
SaveFileName = ssavefilepaths & arrsavefileName
CallSaveremoteFile (SaveFileName, RemoteFileurl)
s_content = ersetzen (s_content, remoteFileurl, SaveFileName)
Nächste
Ersatzeremoteurl = S_Content
Endfunktion
'///////////////////////////////////////////////////////
'Funktion: Speichern Sie Remotedateien in lokal
'Parameter: LocalFileName ------ lokale Dateiname