Deskripsi parameter
'Templat yang digunakan oleh nama iblis [../demo/*.html]
'savename simpan lokasi dan nama [../demo/*.html]
'strflag Bendera akan diganti [$aaa$,$bbb$]
'strcontent Konten pengganti setiap tag [aaa$bbb]
' ===== =============
Sub halaman make (nama demo, nama simpan, strflag, strkonten)
Redupkan fso,htmltulis
Redupkan strOut
'//Buat objek sistem file Set fso=Server.CreateObject(Scripting.FileSystemObject)
'//Buka file templat halaman web dan baca konten templat
Setel htmlwrite=fso.OpenTextFile(Server.MapPath(nama demo))
strOut=htmltulis.BacaSemua
htmltulis.tutup
' ===== =============
strflag=berpisah(strflag,,)
untuk i = 0 hingga ubound(strflag)
strcont=split(strkonten,$)
strOut=Ganti(strOut,strflag(i),strcont(i))
'respons.tulis strflag(i)&=&[&strcont(i)&]
Berikutnya
'// Ganti tag di template dengan konten asli
' ===== =============
'//Buat halaman statis yang akan dibuat
Setel htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'//Menulis konten halaman web
htmlwrite.WriteLine strOut
htmltulis.tutup
Respon. Tulis
'// Lepaskan objek sistem file
sethtmlwrite=Tidak ada
atur fso=Tidak ada
sub akhir
--------------------------------------------------- --------------------------------------------------- ----------------------------------------
Contoh penggunaan:
'Ganti tandanya
commentFlag=$nama panas$,$kata kunci web$,$deskripsi web$,$judul web$,$logo$
'Ganti nilai yang sesuai dengan label
Hostname=Request.ServerVariables(SERVER_NAME)'Dapatkan nama domain saat ini
setel rs=conn.execute(pilih webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner dari [WebConfig])
commenttr=Nama Host&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
rs.tutup
atur rs=tidak ada
'Panggil subrutin
panggilan makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)