Dua hari yang lalu, saya membuat artikel yang menerbitkan program untuk situs web (www.cfsoft.com.cn).
1. Struktur tabel XXFB adalah sebagai berikut:
Jenis jenis, digunakan di situs web saya untuk membedakan beberapa kolom, saya memiliki teknologi dan berita.
Judul Halaman Pagetital
Kata kunci kata kunci halaman
Deskripsi di halaman deskripsi mata
Judul artikel Doctitle
Konten artikel Doctext
Waktu rilis ini
Kode Penyortiran Pesanan
Adalah label Comdend sebagai artikel yang disarankan
Kedua, masing -masing jenis mendefinisikan daftar list_ plus jenis halaman template direktori, halaman template artikel nama temp_ plus plus.
3. Berikut ini adalah halaman utama yang menghasilkan program utama:
| Berikut ini adalah konten referensi: Jika trim (permintaan (bendera)) = bangun lalu '--- Hasilkan Direktori ------ SQL = Pilih Jenis Distit dari XXFB Set Objrs = Const.Execute (SQL) Sementara tidak objrs.eof URL = SITEURL &/ADMIN/LIST_ & TRIM (OBJRS (TYPE)) & Setel http = server.CreateObject (msxml2.xmlhttp) Http.open get, url, false Http.send () Set ObjStream = Server.CreateObject (adodb.stream) objstream.type = 1 objstream.open objstream.write http.responseBody Objstream.savetofile server.mappath (/& trim (objrs (tipe)) &/& trim (objrs (tipe)) &. Htm, 2 objstream.close Atur objstream = tidak ada objrs.movenext Pergi ke Atur objrs = tidak ada SQL = SELECT * Dari XXFB Order oleh The Theedate Desc Set Objrs = Const.Execute (SQL) Sementara tidak objrs.eof URL = Situsurl &/Admin/Temp_ & Trim (OBJRS (Tipe)) &. Setel http = server.CreateObject (msxml2.xmlhttp) Http.open get, url, false Http.send () Set ObjStream = Server.CreateObject (adodb.stream) objstream.type = 1 objstream.open objstream.write http.responseBody Objstream.savetofile server.mappath (/& trim (objrs (tipe)) &/& trim (objrs (id) &. Htm), 2 objstream.close Atur objstream = tidak ada objrs.movenext pergi ke Response.write menghasilkan keberhasilan halaman web statis! Akhiri jika |