Cara sederhana untuk menghasilkan asp statis. Hari ini saya melihat kode di alat kamus. Relatif sederhana. BuatHtml
Semua artikel dihasilkan, sumber daya yang mudah digunakan
Metode pertama:
Copy kode kodenya sebagai berikut:
'Mulai mode pembuatan HTML
Setel Rs=Server.Buatobjek(Adodb.Recordset)
Sql=Pilih KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record Dari KQIQI_CY Pesan Berdasarkan KQIQI_ID Desc
Rs.Open Sql, Conn,1,3
Datanum=Rs.Recordcount
Untuk i= 1 Ke Datanum
Judul=Ganti(Ganti(Rs(1),Chr(13),),Chr(10),)
'Mulai buat file idiom
Setel Fso=Buatobjek(Scripting.FilesyStemobject)
Setel KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))
KQIQI_Ce=KQIQI_MB.baca semuanya
KQIQI_MB.tutup
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Judul},&Judul&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Pinyin},&Rs(2)&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Jelaskan},&Rs(3)&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Konten},&Rs(4)&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Rekam},&Rs(5)&)
Setel KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)
KQIQI_Kami.writeline KQIQI_Ce
KQIQI_Kami.Tutup
Tetapkan Fso=Tidak Ada
'Generasi selesai
Rs.Movenext
Berikutnya
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 lebar=480 align=center border=0 class=td table> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 lebar=220 tinggi=90></TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Dihasilkan</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center>Kamus idiom Ke Qiqi telah dibuat! <input type=nama tombol=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Keluar</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Keluar</a>& vbCrLf
KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf
Tipe kedua dilihat dari sistem lain.
Copy kode kodenya sebagai berikut:
<%
'Hak Cipta 2007
'Ditulis oleh: Wu Jun
'Hak Cipta: www.sm05.com
'Versi: Ver 1.0
'Dukungan teknis: Email: [email protected] QQ: 21275120
%>
<!--#termasuk file=cyconn.asp-->
<%
redupkan
redup fr
redupkan wstr
fw
'Mulai mode pembuatan HTML
set rs=server.createobject(adodb.recordset)
sql=pilih * dari gambar pesanan berdasarkan id desc
rs.open sql,sambungan,1,3
datanum=rs.jumlah catatan
untuk i= 1 sampai datanum
'Mulai buat file idiom
set fso=buat objek(scripting.filesystemobject)
set fr=fso.opentextfile(server.mappath(chengyu_m.htm))
wstr=fr.baca semua
fr.close
redupkan pertama
wstr=ganti(wstr,<{{biaoti}}>,&ganti(rs(biaoti),vbnewline,)&)
wstr=ganti(wstr,<{{pinyin}}>,&rs(sg)&)
wstr=ganti(wstr,<{{jieshi}}>,&rs(js)&)
wstr=ganti(wstr,<{{dari}}>,&rs(konten)&)
wstr=ganti(wstr,<{{contoh}}>,&rs(jilu)&)
set fw=fso.createtextfile(server.mappath(view/chengyu&rs(id)&.htm),true)
fw.writeline wstr
fw.tutup
atur fso=tidak ada
'Generasi selesai
rs.movenext
Berikutnya
respon.write Ayo, semua kolom idiom di forum sudah dibuat!
%>
MakeHtml dihasilkan mulai dari id yang ditentukan
Copy kode kodenya sebagai berikut:
'Mulai mode pembuatan HTML
Setel Rs=Server.Buatobjek(Adodb.Recordset)
Sql=Pilih KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record Dari KQIQI_CY Pesan Berdasarkan KQIQI_ID Desc
Rs.Open Sql, Conn,1,3
Untuk i=id1 Ke id2
Judul=Ganti(Ganti(Rs(1),Chr(13),),Chr(10),)
'Mulai buat file idiom
Setel Fso=Buatobjek(Scripting.FilesyStemobject)
Setel KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))
KQIQI_Ce=KQIQI_MB.baca semuanya
KQIQI_MB.tutup
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Judul},&Judul&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Pinyin},&Rs(2)&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Jelaskan},&Rs(3)&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Konten},&Rs(4)&)
KQIQI_Ce=Ganti(KQIQI_Ce,{$KQIQI:Rekam},&Rs(5)&)
Setel KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)
KQIQI_Kami.writeline KQIQI_Ce
KQIQI_Kami.Tutup
Tetapkan Fso=Tidak Ada
'Generasi selesai
Rs.Movenext
Berikutnya
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 lebar=480 align=center border=0 class=td table> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 lebar=220 tinggi=90></TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Dihasilkan</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center>Kamus idiom Ke Qiqi telah dibuat! <input type=nama tombol=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Keluar</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Keluar</a>& vbCrLf
KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf