Direkomendasikan: Must-have untuk belajar asp halaman web dinamis: 38 fungsi yang biasa digunakan 1. Fungsi array () Fungsi: Buat format variabel array: array (daftar) Parameter: Daftar adalah setiap kolom numerik dalam variabel array, dengan jarak koma contoh: <% i = array (1,2,3 & quo
Karena ruang saya terbatas, saya tidak dapat menghasilkan semua halaman statis dalam batch sekaligus, jadi saya menulis program kecil untuk dibagikan kepada Anda. Programnya cukup sederhana, jadi jangan menertawakan para ahli! Kode ini buang -buang waktu. Kodenya adalah sebagai berikut
<!-#Sertakan file = conn.asp-> <Html> <Head> <title> Hasilkan halaman </iteme> <Meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312> <Tautan href = style.css type = text/css rel = stylesheet> <Meta content = mshtml 6.00.2900.3020 name = generator> </head> <Body bottommargin = 0 leftmargin = 0 topmargin = 0 rightmargin = 0> <BR style = overflow: tersembunyi; Line-Height: 3px> <% ID redup id = cint (request.querystring (id)) Jika id = lalu ID = 1 kalau tidak id = cint (request.querystring (id)) akhiri jika Jumlah total redup SQL = Pilih ID dari Table Order oleh ID Desc Set RS = Server.CreateObject (ADODB.Recordset) Rs.open SQL, Conn, 1,1 rs.movefirst Jika tidak rs.eof maka TotalNumber = Rs.RecordCount akhiri jika Untuk mendapatkan jumlah total, Anda dapat menggunakan kode sebagai gantinya. Saya percaya bahwa teman dapat menyelesaikan masalah ini sendiri. rs.close Setel RS = tidak ada Response.write <br> <br> & vbnewline Response.write <width tabel = '400' border = '0' align = 'center' cellpadding = '0' cellPacing = '0'> & vbnewline Response.write <tr> & vbnewline Response.write <td height = '50 '> total warna =' biru '> <b> & totalNumber & </b> </font> halaman sedang dihasilkan ... </td> & vbnewline Response.write </tr> & vbnewline Response.write </ablept> & vbnewline Response.flush Jika id> TotalNumber maka Response.write Selamat atas operasi Anda yang sukses! Response.flush Akhiri jika creat (id) ID = ID 1 Response.write <meta http-equiv = refresh content = 1; url =? Id = & id &> %> </body> </html> <% Function creat (id) sql = pilih * dari tabel di mana id = & id Set RS = Conn.Execute (SQL) nama redup name = rs (name) Conn.execute (SQL) rs.close Setel RS = tidak ada redup fso redup znwl Seni redup redup fw atur fso = createObject (scripting.filesystemObject) Set ZNWL = fso.opentextFile (server.mappath (halaman template)) art = znwl.readall znwl.close art = ganti (art, {$ name $}, name) atur fw = fso.createTextFile (server.mappath (lokasi penyimpanan halaman dan nama halaman yang dihasilkan), true) FW.WriteLine Art fw.close atur fso = tidak ada Fungsi akhir %> |
Ada metode lain yang lebih cepat dari metode di atas, tetapi menempati banyak CPU. Saya memiliki masalah dengan ruang saya menggunakan metode berikut.
<!-#Sertakan file = conn.asp-> <Html> <Head> <title> Hasilkan halaman </iteme> <Meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312> <Tautan href = style.css type = text/css rel = stylesheet> <Meta content = mshtml 6.00.2900.3020 name = generator> </head> <Body bottommargin = 0 leftmargin = 0 topmargin = 0 rightmargin = 0> <BR style = overflow: tersembunyi; Line-Height: 3px> <Border Tabel = 1 Lebar = 100% ID = Tabel1> <tr> <td> <% redup allid, ppp, id, totalnum SQL = SELECT * Dari Pesanan Tabel oleh ID Desc Set RS = Server.CreateObject (ADODB.Recordset) Rs.open SQL, Conn, 1,1 Jika tidak rs.eof maka lakukan sementara tidak rs.eof Jika allID = maka allId = rs (id) else allId = allId &; & RS (ID) rs.movenext lingkaran kalau tidak Jika rs.bof dan rs.eof maka Response.write belum ditemukan artikel! Akhiri jika akhiri jika rs.close Setel RS = tidak ada AllID =; Allid ppp = split (allid ,;) TotalNum = Ubund (PPP) untuk id = 1 hingga total Sesi (id) = sesi (id) 1 creat (id) response.write menghasilkan znwl_ & id & .htm ... <br> Berikutnya %> </td> </tr> </boable> </body> </html> <% Function creat (id) sql = pilih * dari tabel di mana id = & id Set RS = Conn.Execute (SQL) nama redup name = rs (name) Conn.execute (SQL) rs.close Setel RS = tidak ada redup fso redup znwl Seni redup redup fw atur fso = createObject (scripting.filesystemObject) Set ZNWL = fso.opentextFile (server.mappath (halaman template)) art = znwl.readall znwl.close %> art = ganti (art, {$ name $}, name) atur fw = fso.createTextFile (server.mappath (lokasi penyimpanan halaman dan nama halaman yang dihasilkan), true) FW.WriteLine Art fw.close atur fso = tidak ada Fungsi akhir |
Metode ini cepat, tetapi ruang Anda harus tidak terbatas!-Smart Network
Metode di atas hanya untuk referensi dan bukan versi terakhir yang saya modifikasi, tetapi pasti mudah digunakan.
Bagikan: Tip ASP Contoh: Beberapa baris kode memecahkan masalah mencegah pengiriman formulir berulang Dalam banyak kasus, perlu untuk mencegah formulir yang sama diajukan beberapa kali. Metode implementasi banyak orang relatif rumit (jumlah kode melebihi puluhan baris !!) berikut ini memberikan metode yang hanya memerlukan beberapa baris kode, yang dengan mudah mencegah pengguna menyegarkan beberapa kiriman dan menggunakan tombol kembali untuk memeriksa kembali formulir.