Artikel ini memberi tahu beberapa metode untuk ASP untuk menghasilkan HTML. Teman yang membutuhkannya dapat merujuk pada detail konten di bawah ini.
Metode 1: FSO
Set FS = CreateObject ("Scripting.FilesystemObject")
Newfile = server.mappath ("/asp/chap06/at/newfile.html")
'Buat file baru/newfile.html, jika file sudah ada, timpa
Set a = fs.createTextFile (newfile, true)
Response.write "File baru telah dibuat!"
A.close
File = server.mappath ("newfile.html")
Setel txt = fs.opentextFile (file, 8, true) 'terbuka untuk file yang dapat menulis data di akhir
data1 = "Kalimat ini ditulis menggunakan metode WriteLine! ~~"
TXT.WriteLine Data1
data2 = "Kalimat ini ditulis menggunakan metode tulis! ~~"
txt.write data2
txt.close
Metode 2: xmlhttp
Setel xml = server.CreateObject ("microsoft.xmlhttp")
'Ganti alamat berikut dengan alamat file beranda Anda. Pastikan untuk menggunakan jalur absolut yang dimulai dengan http: //, dan Anda tidak dapat menulis jalur relatif.
xml.open "get", "http://www.phpup.com", false
xml.send
BodyText = xml.responseBody
BodyText = bytestoBstr (bodyText, "gb2312")
Atur xml = tidak ada
Redup fso, myfile
Atur fso = createObject ("Scripting.filesystemObject")
Set myfile = fso.createTextFile (server.mappath ("aa.htm"), true)
Myfile.writeLine (BodyText)
Myfile.close
lainnya:
1
Contoh berikut adalah tiga dinamika: index.asp? Id = 1/index.asp? Id = 2/index.asp? Id = 3/
Halaman menghasilkan ndex1.htm, index2.htm, index3.htm masing -masing dan terletak di direktori root:
Dim strurl, item_classid, id, nama file, filepath, do_url, html_temp
Html_temp = "
Untuk i = 1 hingga 3
Html_temp = html_temp & "
Item_classid = i
FileName = "index" & item_classid & ". Htm"
Filepath = server.mappath ("/") & "/" & filename html_temp = html_temp & filepath & "
Do_url = "http: //"
Do_url = do_url & request.serverVariable ("server_name") & "/main/index.asp"
Do_url = do_url & "? Item_classid =" & item_classid
strurl = do_url
redup objxmlhttp
Setel objxmlhttp = server.CreateObject ("microsoft.xmlhttp")
objxmlhttp.open "get", strurl, false
objxmlhttp.send ()
Redup binfiledata
binfiledata = objxmlhttp.responseBody
Redup objadostream
Setel objadoStream = server.CreateObject ("adodb.stream")
objadostream.type = 1
objadostream.open ()
Objadostream.write (Binfiledata)
Objadostream.savetofile Filepath, 2
objadostream.close ()
Berikutnya
Html_temp = html_temp & "
%>
Response.write ("File yang berhasil dihasilkan dengan sukses:")
Response.write ("
")
Response.write html_temp
%>
Fungsi bytestoBstr (body, cset)
redup objstream
Set 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
atur objstream = tidak ada
Fungsi akhir
%>
2
TemplateFile Publik, TMPData
sub ofile () 'Buka file dan masukkan konten file ke dalam tmpData
pada kesalahan resume berikutnya
tmpData = ""
Setel astream = server.CreateObject ("adodb.stream")
Asstream.type = 2'file Type Text
Asstream.mode = 3 'baca dan tulis
Asstream.open
Asstream.charset = "gb2312" 'set karakter
Asstream.loadFromFile (TempelateFile) 'Muat dari file
Assp = astream.size
Jika err.number0 lalu
xz = -18
Response.Write TemplateFile & "
"
err.clear
tmpData = ""
kalau tidak
tmpdata = astream.readtext (assp)
akhiri jika
akhir sub
sub save_file ()
ofile ()
RecFilen = server.mappath (DTS)
Asstream.flush
Asstream.close
Asstream.type = 2
Asstream.mode = 3
Asstream.open
Asstream.charset = "GB2312"
Asstream.position = 0
Asstream.writetext tmpData, 1'write data untuk streaming
Asstream.savetofile recfilen, 2'save to are
akhir sub
fungsi dts () 'menghasilkan nama file acak
jika len (bulan (sekarang ()))> 1 lalu
mm = bulan (sekarang ())
kalau tidak
mm = "0" & bulan (sekarang ())
akhiri jika
jika len (hari (sekarang ()))> 1 lalu
d = hari (sekarang ())
kalau tidak
D = "0" & Day (Now ())
akhiri jika
jika len (jam (sekarang ()))> 1 lalu
h = jam (sekarang ())
kalau tidak
h = "0" & jam (sekarang ())
akhiri jika
jika len (menit (sekarang ()))> 1 lalu
m = menit (sekarang ())
kalau tidak
m = "0" & menit (sekarang ())
akhiri jika
Jika len (kedua (sekarang ()))> 1 lalu
s = kedua (sekarang ())
kalau tidak
s = "0" & kedua (sekarang ())
akhiri jika
Mengacak
Upperbound = 9999
Lowerbound = 1000
rds = int ((atasan - lowerbound + 1) * rnd + lowerbound)
dts = "htm/" & tahun (sekarang ()) & mm & d & h & m & s & rds & ". htm"
fungsi akhir
title = request.form ("title")
konten = request.form ("konten")
tmpData = ganti (tmpData, "
tmpData = ganti (tmpData, "
templateFile = server.mappath ("tempelate/1.htm") 'file template
save_file ()
%>
Di atas adalah beberapa metode menghasilkan HTML oleh ASP. Saya yakin Anda telah mempelajarinya. Untuk konten terkait lebih lanjut, silakan terus perhatikan saluran teknologi Wuxin.