Obwohl Wulin.com www.vevb.com bereits relevante Codes veröffentlicht hat, sind einige spezielle Websites nicht perfekt. Kürzlich habe ich einem Kunden bei der Änderung des Systems geholfen und festgestellt, dass dieser Code ziemlich gut ist, also habe ich ihn für alle extrahiert Bequemlichkeit. Kopieren Sie den Codecode wie folgt:
<%
webfolder=/
host=index_cn.asp'dynamische Adresse der Rezeption
Ordner=/'Ordner
filename=index_cn.html'Generieren Sie einen statischen Dateinamen
Fso_info Host, Ordner, Dateiname
Response.write generiert statisches HTML für die chinesische Homepage der Website.<br />
'HTML generieren
Funktion Fso_info(host,folder,filename)
host=http://+Request.ServerVariables(HTTP_HOST)&webfolder&host
if SaveFile(&folder&filename&,&host&) then
Antwort.Write &folder&filename& erfolgreich generiert
anders
Response.write &folder&filename& konnte <font color='#FF0000'></font> nicht generieren. Möglicherweise enthält Ihr Dateiname Sonderzeichen.<br />
Ende wenn
Funktion beenden
'Datei generieren
Funktion SaveFile(LocalFileName,RemoteFileUrl)
Anzeigen, Abruf, GetRemoteData dimmen
Bei Fehler Weiter fortsetzen
Set Retrieval = Server.CreateObject(Microso & ft.XM & LHTTP) '//Teilen Sie die Wörter auf, um ein versehentliches Töten durch Antivirensoftware zu verhindern
Mit Abruf
.Open Get, RemoteFileUrl, False, ,
.Schicken
GetRemoteData = .ResponseBody
Ende mit
Abruf festlegen = Nichts
Set Ads = Server.CreateObject(Ado & db.Str & eam) '//Teilen Sie die Wörter auf, um ein versehentliches Töten durch Antivirensoftware zu verhindern
Mit Werbung
.Typ = 1
.Offen
.GetRemoteData schreiben
.SaveToFile Server.MapPath(LocalFileName), 2
.Stornieren()
.Schließen()
Ende mit
Legen Sie „Anzeigen=nichts“ fest
wenn err <> 0 dann
SaveFile = false
irr.klar
anders
SaveFile = true
Ende wenn
Funktion beenden
%>