In diesem Artikel werden verschiedene Methoden für ASP angewiesen, HTML zu generieren. Freunde, die es brauchen, können sich auf die Details des folgenden Inhalts beziehen.
Methode 1: FSO
Setzen Sie fs = createObject ("scripting.filesystemObject").
NewFile = server.mappath ("/ASP/CHAP06/AT/newfile.html")
'Erstellen Sie eine neue Datei/newfile.html, wenn die Datei bereits vorhanden ist, überschreiben Sie sie
Setzen Sie a = fs.createTextfile (newfile, true)
Antwort.Write "Neue Datei wurde erstellt!"
A.CLOSE
Datei = Server.Mappath ("newfile.html"))
Setzen Sie txt = fs.opentextFile (Datei, 8, true) 'Öffnen Sie eine Datei, mit der Daten am Ende schreiben können
Data1 = "Dieser Satz wird mit der Writeline -Methode geschrieben! ~~"
TXT.WriteLine Data1
Data2 = "Dieser Satz wird mit der Schreibmethode geschrieben! ~~"
txt.write Data2
txt.close
Methode 2: xmlhttp
Setzen Sie xml = server.createObject ("microsoft.xmlhttp").
'Ersetzen Sie die folgende Adresse durch die Dateiadresse Ihrer Homepage. Verwenden Sie unbedingt den absoluten Pfad, beginnend mit http: //, und Sie können den relativen Pfad nicht schreiben.
xml.open "get", ", http://www.phpup.com", falsch
xml.send
BodyText = xml.responsebody
BodyText = byTestObstr (bodyText, "gb2312")
Setzen Sie xml = nichts
Dim fso, myfile
Setzen Sie fso = createObject ("scripting.filesystemObject").
Setzen Sie myFile = fso.createTextFile (server.mappath ("aa.htm"), true)
MyFile.WriteLine (BodyText)
Myfile.close
andere:
1
Die folgenden Beispiele sind drei Dynamik: index.asp? Id = 1/index.asp? Id = 2/index.asp? Id = 3/
Die Seiten generieren ndex1.htm, index2.htm, index3.htm und befinden sich im Stammverzeichnis:
Dim StRURL, item_classsid, id, fileName, filepath, do_url, html_temp
Html_temp = "
Für i = 1 bis 3
Html_temp = html_temp & "
Item_classid = i
Dateiname = "Index" & item_classid & ". HTM"
Filepath = server.mappath ("/") & "/" & fileName html_temp = html_temp & filepath & "
Do_url = "http: //"
Do_url = do_url & request.servervariables ("server_name") & "/main/index.asp"
Do_url = do_url & "? Item_classid =" & item_classid
stRURL = do_url
Dimer objxmlhttp
Setzen Sie objxmlhttp = server.createObject ("microsoft.xmlhttp")
objxmlhttp.open "Get", StRURL, Falsch
objxmlhttp.send ())
Dim Binfiledata
binfiledata = objxmlhttp.ResponseBody
Dimer Objadostream
Setzen Sie objadostream = server.createObject ("adodb.stream")
objadostream.type = 1
objadostream.open ()
Objadostream.write (Binfiledata)
Objadostream.Savetofile Filepath, 2
objadostream.close ()
Nächste
Html_temp = html_temp & "
%>
Response.write ("erfolgreich generierte Datei:")
Response.write ("
"))
Response.write html_temp
%>
Funktion byTestObstr (Körper, cset)
Dimer Objstream
Setzen Sie objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
objstream einstellen = nichts
Endfunktion
%>
2
öffentliche Vorlagenfile, TMPData
Sub Ofile () 'Öffnen Sie die Datei und geben Sie den Dateiinhalt in TMPData ein
Bei der nächsten Fehleraufnahme als nächstes
tmpdata = ""
Setzen Sie assTream = server.createObject ("adodb.stream")
AssTream.Type = 2'File Typ Text
AssTream.mode = 3 'lesen und schreiben
Asstream.open
AssTream.charset = "GB2312" 'Zeichensatz
AssTream.loadfromFile (tempelateFile) 'laden aus der Datei
ASSP = Astrame.Size
Wenn err.number0 dann
xz = -18
response.write templatefile & "
"
err.clear
tmpdata = ""
anders
tmpdata = astream.readText (ASSP)
Ende wenn
Ende sub
sub Save_file ()
OFILE ()
recFilen = server.mappath (dts)
Assream.flush
Assream.close
AssTream.Type = 2
AssTream.mode = 3
Asstream.open
AssTream.charset = "gb2312"
AssTream.position = 0
AssTream.Writetext TMPData, 1'Write -Daten zu Stream
AssTream.Savetofile Recafilen, 2'Save to File
Ende sub
Funktion DTS () 'generiert zufälligen Dateinamen
Wenn Len (Monat (jetzt ())> 1 dann
mm = Monat (jetzt ())
anders
mm = "0" & monat (jetzt ())
Ende wenn
Wenn Len (Tag (jetzt ())> 1 dann
D = Tag (jetzt ())
anders
d = "0" & tag (jetzt ())
Ende wenn
Wenn Len (Stunde (jetzt ())> 1 dann
H = Stunde (jetzt ())
anders
H = "0" & stündlich (jetzt ())
Ende wenn
Wenn Len (Minute (jetzt ())> 1 dann
M = Minute (jetzt ())
anders
m = "0" & minute (jetzt ())
Ende wenn
Wenn Len (zweiter (jetzt ())> 1 dann
s = zweiter (jetzt ())
anders
S = "0" & Sekunde (jetzt ())
Ende wenn
Randomisieren
ober- und 9999
untergebound = 1000
rds = int ((oberer Geböste - untergebound + 1) * Rnd + untergebunden)
DTS = "HTM/" & YEAR (NOW () & MM & D & H & M & S & RDS & ". HTM"
Endfunktion
title = request.form ("title")
content = request.form ("content")
tmpdata = ersetzen (tmpdata, ","
tmpdata = ersetzen (tmpdata, ","
templateFile = server.mappath ("tempelate/1.htm") 'Vorlagendatei
save_file ()
%>
Die oben genannten sind verschiedene Methoden zur Erzeugung von HTML durch ASP. Ich glaube, Sie haben davon gelernt. Für mehr verwandte Inhalte achten Sie weiterhin auf den Wuxin -Technologiekanal.