Obwohl Script House bereits relevante Codes veröffentlicht hat, sind einige spezielle Websites nicht perfekt. Ich habe kürzlich Kunden geholfen, das System zu ändern, und fand, dass dieser Code ziemlich gut ist, also habe ich ihn für die Benutzerfreundlichkeit extrahiert.
Kopieren Sie den Codecode wie folgt:
<%
webfolder="/"
host="index_cn.asp"'dynamische Adresse der Rezeption
Ordner="/"'Ordner
filename="index_cn.html"'Statischen Dateinamen generieren
Fso_info Host, Ordner, Dateiname
Response.write „Generierung von statischem HTML für die chinesische Homepage der Website abschließen.<br />“
'HTML generieren
Funktion Fso_info(host,folder,filename)
host="http://"+Request.ServerVariables("HTTP_HOST")&webfolder&host
if SaveFile(""&folder&filename&"",""&host&"") then
Response.Write „&Ordner&Dateiname&“ wurde erfolgreich generiert. <br />“
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
.Öffnen Sie „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
%>