Methode 1
<%
'Häufig verwendete Funktionen
'1. Geben Sie die URL der Zielwebseite ein und der Rückgabewert getHTTPPage ist der HTML-Code der Zielwebseite.
Funktion getHTTPage(url)
dimHttp
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open „GET“,url,false
Http.send()
wenn Http.readystate<>4 dann
Exit-Funktion
Ende wenn
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
setze http=nichts
Wenn err.number<>0, dann err.Clear
Endfunktion
'2. Verwenden Sie xmlhttp, um Webseiten mit chinesischen Zeichen aufzurufen. Sie können es über die Komponente adodb.stream konvertieren.
Funktion BytesToBstr(body,Cset)
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 = Cset
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Funktion beenden
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Dateiname="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true' bedeutet, dass es nicht existiert und von selbst erstellt wird
openFile.writeline(sText)
Legen Sie OpenFile=nothing
%>
fest
<Skript>
Alert("Generierung der statischen Webseite abgeschlossen");
History.back();
</script>
Methode 2:
resourcesfile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
Setze html = Server.CreateObject("CDO.Message")
html.CreateMHTMLBody-Ressourcendatei,31
indexcode=html.HTMLBody
Setze html = Nichts
if instr(indexcode,"</BODY></HTML>")<=0 then
Response.Write("Homepage-Generierung fehlgeschlagen")
Antwort.End()
anders
Setze oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Setzen Sie outfile=oFileSys.CreateTextFile(targetfile)
outfile.WriteLine-Indexcode
outfile.close
Setze outfile=nothing
setze oFileSys=nichts
Response.Write("Homepage generiert!")
Ende wenn