Kode semacam ini banyak digunakan ketika kita belum mengimplementasikan fungsi perancangan untuk menghasilkan halaman statis, tetapi kita ingin membuat sementara beberapa halaman dinamis menjadi halaman statis, langsung mendapatkan konten dinamis dan menyimpannya sebagai halaman statis.
Copy kode kodenya sebagai berikut:
<!--#include file="admin_Checkuser.asp"-->
<%
panggil ConnectionDatabase()
redupkan str,str_new
str=""
str_baru=""
sqlx="pilih id dari Fl_Products pesan berdasarkan id desc"
setel rsx=sambungan.eksekusi(sqlx)
lakukan tanpa rsx.eof
str=str&rsx("id")&"|"
rsx.movenext :loop
rsx.close
sqlx="pilih id dari Fl_News pesan berdasarkan id desc"
setel rsx=sambungan.eksekusi(sqlx)
lakukan tanpa rsx.eof
str_baru=str_baru&rsx("id")&"|"
rsx.movenext :loop
rsx.close
tempat=InStrRev(str,"|")
str=Kiri(str,tempat-1)
tempat=InStrRev(str_baru,"|")
str_new=Kiri(str_new,tempat-1)
url redup,cwww,bertindak
tindakan=Trim(Permintaan.QueryString("tindakan"))
url =Permintaan.ServerVariables("HTTP_HOST")
cwww="http://"+url
MakeHtm cwww&"/index.asp""../index.htm","Halaman beranda berhasil ditulis!"
MakeHtm cwww&"/about.asp""../about.htm","Profil perusahaan berhasil ditulis!"
MakeHtm cwww&"/contact.asp""../contact.htm","Hubungi kami berhasil ditulis!"
MakeHtm cwww&"/ry.asp""../ry.htm","Kualifikasi dan penghargaan berhasil ditulis!"
MakeHtm cwww&"/liuyan.asp""../liuyan.htm","Hubungi kami tertulis berhasil!"
MakeHtm cwww&"/pro.asp""../pro.htm","Tampilan produk berhasil ditulis!"
MakeHtm cwww&"/news.asp""../news.htm","Hasilkan penulisan lokakarya dengan sukses!"
MakeHtm cwww&"/xinwen.asp""../xinwen.htm","Informasi berita berhasil ditulis!"
MakeHtm cwww&"/alliance.asp""../alliance.htm","Jaringan penjualan berhasil ditulis!"
'Hasilkan produk
xstr=belah(str,"|")
untuk i=0 hingga ubound(xstr)
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","Produk"&xstr(i)&"Berhasil ditulis!"
Berikutnya
xstr=berpisah(str_baru,"|")
untuk i=1 hingga ubound(xstr)/25+1
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","Daftar Berita"&i&"Berhasil ditulis!"
Berikutnya
xstr=berpisah(str_baru,"|")
untuk i=0 hingga ubound(xstr)
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","Berita"&xstr(i)&"Tulis dengan sukses!"
Berikutnya
Fungsi BytesToBstr(tubuh,Cset)
objek redup
setel objstream = Server.CreateObject("adodb.stream")
objstream.Jenis = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis isi
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
Fungsi MakeHtm (ikal, turl, berantakan)
Setel xml = Server.CreateObject("Microsoft.XMLHTTP")
'Ganti alamat berikut dengan alamat file beranda Anda. Pastikan untuk menggunakan jalur absolut di awal.
xml.Buka "GET", curl, False
xml.Kirim
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
Setel xml = Tidak Ada
'mengganti
BodyText=RegReplace(BodyText,"uzProduct/.asp/?id=(/d*)", "uzProduct_$1.htm")
BodyText=RegReplace(BodyText,"uzNews/.asp/?id=(/d*)", "uzNews_$1.htm")
BodyText=RegReplace(BodyText,"xinwen/.asp/?Page=(/d*)", "xinwen_$1.htm")
BodyText=ganti(BodyText,"index.asp","index.htm")
BodyText=ganti(BodyText,"about.asp","about.htm")
BodyText=ganti(BodyText,"pro.asp","pro.htm")
BodyText=ganti(BodyText,"news.asp","news.htm")
BodyText=ganti(BodyText,"liuyan.asp","liuyan.htm")
BodyText=ganti(BodyText,"ry.asp","ry.htm")
BodyText=ganti(BodyText,"xinwen.asp","xinwen.htm")
BodyText=ganti(BodyText,"contact.asp","contact.htm")
Redupkan juga, File Saya
Setel fso = CreateObject("Scripting.FileSystemObject")
Setel File Saya= fso.CreateTextFile(server.MapPath(turl), Benar)
File Saya.WriteLine(BodyText)
File Saya.Tutup
respon. Tulis kekacauan
respon.Tulis "<br>"
Fungsi Akhir
RegReplace Fungsi Publik (sContent, sPatrn, sNewStr)
Redupkan oTempReg : Setel oTempReg = RegExp Baru
Dengan oTempReg
.IgnoreCase = Benar
.Global=Benar
.Pola = sPatrn
RegReplace = .Replace(sContent, sNewStr)
Akhiri Dengan
Setel oTempReg = Tidak Ada
Fungsi Akhir
panggil CloseDatabase()
%>
<html>
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312" />
<title>Dokumen Tanpa Judul</title>
<gaya>
body,td{font-family:Verdana, Arial, Helvetica, sans-serif;
ukuran font:10.5pt;}
</gaya>
</kepala>
<tubuh>
</tubuh>
</html>
dari iisboy