Vor einiger Zeit gab es eine ASP-Seite, die sehr langsam ausgeführt wurde, viele Besucher hatte und nicht oft geändert wurde. Ich war zu faul, sie direkt vom Server herunterzuladen, um sie zu ändern Daher musste ich einen Weg finden, die ASP-Seite in eine statische HTM-Seite umzuwandeln. . .
Ich habe solche Artikel schon einmal gesehen, aber ich habe nicht viel darauf geachtet. Es war schwierig, einen geeigneten zu finden, als ich ihn wirklich verwenden wollte, also habe ich lange im Internet gesucht und schließlich einen passenderen gefunden Code hinzugefügt und meine eigenen Änderungen wie folgt hinzugefügt:
<%
Funktion GetPage(URL)
'Dateiinhalt abrufen
dunkler Abruf
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
Mit Abruf
.Öffnen Sie „Get“, url, False ', „“, „“
.Schicken
GetPage = BytesToBstr(.ResponseBody)
Ende mit
Abruf festlegen = Nichts
Endfunktion
Funktion BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Öffnen
objstream.Text schreiben
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Funktion
bei Fehler beenden und als Nächstes fortsetzen
Url=" http://www.sina.com.cn"' Die zu lesende Seitenadresse
Response.write „Starten Sie mit der Aktualisierung der Homepage …“
wstr = GetPage(Url)
'response.write(wstr)
Setze fs=Server.CreateObject("Scripting.FileSystemObject")
'if not MyFile.FolderExists(server.MapPath("/html/")) then
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
'Die zu speichernde Seitenadresse
dizhi=server.MapPath("index.htm")
Wenn (fs.FileExists(dizhi)) Dann
fs.DeleteFile(dizhi)
End If
Set CrFi=fs.CreateTextFile(dizhi)
Crfi.Writeline(wstr)
setCrFi=nichts
setze fs=nichts
Response.write „...<font color=red>Update abgeschlossen!</font>“
%>
Der Code ist am einfachsten. Er kann direkt in einer ASP-Datei gespeichert werden. Legen Sie einfach die URL (die zu konvertierende ASP-Adresse) und die zu speichernde HTML-Adresse fest. Nur dann können wir sicherstellen, dass Bilder, CSS und JS funktionieren.
Ich hoffe, dass es für diejenigen Freunde nützlich sein wird, die nach asp->htm suchen.