*/ ------------------------------------------------- ------------------------------------------ -------- -------------------------------------------------- -------------------------------------------------- -------------------
*/Dari: Jianzheng State http://www.jzxue.com
*/ Penulis: Tianya Dengarkan E-Mail Rain: [email protected]: 809252803
*/ Waktu: 2007-10-6 Peluncuran Forum Pemrograman Pertama
*/ Pernyataan: Hormati tenaga kerja penulis, harap simpan teksnya di paragraf ini
*/ ------------------------------------------------- ------------------------------------------ -------- -------------------------------------------------- -------------------------------------------------- -------------------
<%
'Nama: Juta Praktek Data
'Penulis: Tianya mendengarkan hujan
'Waktu: 6 Oktober 2007
'Platform: Win2000+IIS5.0+SQL2000
'Affiller: Gunakan itu sesederhana yang pertama kali.
'------------------------------------------------- --------------------------------------- --------- Hubungkan database
Response.buffer = true
DIM SQLLOCALNAME, SQLUSERNAME, SQLPASSWORD, SQLDATABAS
Dim Connstr, Conn
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Sqllocalname = (lokal) 'Menghubungkan IP [Lokal (Lokal) IP IP IP]
SQLUSERNAME = Sa 'Database Nama Pengguna
Sqlpassword = xxxxxx 'kata sandi pengguna
Sqldatabasename = news2008 'nama database
Connstr = penyedia = sqloledb;
'' '' '' '' '' '' '' '' '' '' '' '' '' ''
Pada kesalahan resume berikutnya
Set Conn = Server.CreateObject (AdodB.Connection)
Conn.open Connstr
Jika err maka
err.clear
Setel Conn = Tidak Ada
Response.write <div style = 'font-size: 14px;
Respons.end
Akhiri jika
'------------------------------------------------- --------------------------------------- --------- Hubungkan database untuk diselesaikan
'Tentukan variabel
'Nama-Tabel Tblname;
'Pernyataan eksekusi-total strsql;
Redup tblname, fldname, fieldname, pagesizex, pagecountx, pageno, ordretype, strwhere
Redup strsql, fieldcount, strtmp, strororder, topfield
'
Pageno = trim (request.querystring (pageno))
jika isnumeric (pageno) atau pageno = maka 'jika tidak ada nilai halaman, nilai inisialisasi
Pageno = abs (pageno)
Jika pageno = 0 maka pageno = 1
kalau tidak
Pageno = 1
akhiri jika
Tblname = tablenews
Fldname = id 'menunjukkan bahwa nilai bidang penyortiran tidak dapat diulang dalam database: disarankan agar kunci utama
Fieldname = id, judul, addtime
PageSizex = 30
OrderType = 1 '0-adalah pesanan 1-liter
Strwhere = (code = '0101') dan (hit> 100) 'Catatan: Jika suatu kondisi digunakan () Double Targetises
Topfield = (pageno-1)*pagesizex'top
Jika orderype = 0 lalu
Strtmp = <(pilih min
Stroreder = pesanan oleh [& fldname &] desc
kalau tidak
Strtmp => (pilih maks
Stroreder = pesanan oleh [& fldname &] asc
akhiri jika
'Tentukan pernyataan SQL
Strsql = pilih atas & clng (pagesizex) & fieldname & from & tblname &
Jika pageno = 1 maka 'Jika itu adalah halaman pertama, jalankan kode berikut untuk memeriksa pustaka dengan cepat
Jika strwhere <> lalu
Strsql = strsql & where & strwhere & strorder &
kalau tidak
Strsql = strsql & strorder
akhiri jika
kalau tidak
Jika strwhere <> lalu
Strsql = strsql & di mana & fldname & strtmp & (& fldname &) dari (pilih top & clng (topfield) & fldname & frm & tblname & stranwher
kalau tidak
Strsql = strsql & di mana & fldname & strtmp & (& fldname &) dari (pilih top & clng (topfield) & fldname & tblname & strrener & sebagai tbltmp) & lebih kuat & lebih kuat &
akhiri jika
akhiri jika
Set RS = Const.Execute (Strsql) 'Execute Query
Jika rs.bof dan rs.eof maka
Conn.close: atur conn = tidak ada
response.write <script language = 'javascript'> alert ('saat ini, tidak ada catatan yang ditemukan, silakan kembali ke operasi ulang! "); history.go (-1); </script>
respons.end
akhiri jika
Jika strwhere <> maka 'mencari catatan total
Fieldcount = conn.execute (pilih count (& fldname &) dari & tblname & strwhere &) (0) (0)
kalau tidak
Fieldcount = conn.execute (pilih Count (& fldname &) dari & tblname &) (0)
akhiri jika
if (fieldcount mod npagesize)> 0 lalu 'temukan nomor halaman total pagecountx
Pagecountx = (fieldcount- (fieldcount mod mod mod pagesizex))/ pagesizex +1
kalau tidak
Pagecountx = (fieldcount / pagesizex)
akhiri jika
'Tampilkan data
lakukan sementara tidak rs.eof
Response.write & rs (judul) && nbsp;
rs.movenext
lingkaran
'Matikan dan lepaskan sumber daya terkait
Rs.close
Conn.close: atur conn = tidak ada
'Tampilkan paging
Jika Pageno <= 1 maka
Response.write <font color = '#ff0000'> [beranda] [Sebelumnya] </font>
kalau tidak
Response.write [<a href = '?
Response.write [<a href = '? >]
akhiri jika
Jika pageno> = pagecountx lalu
Response.write <font color = '#ff0000'> [halaman berikutnya] [halaman ekor] </font>
kalau tidak
Response.write [<a href = '? ]
Response.write [<a href = '?
akhiri jika
Response.write [Pusat Pesan <font color = Red> & Pageno & </font> halaman/Common <font color = Red> & PagecountX & </font> halaman]
Response.write [Total <font color = Red> & FieldCount & </font> entri <font color = red> & pagesizex & </font> strip/halaman]
Response.write ke: <pilih name = 'page' size = '1' onchange = javascript : window.location = '?
untuk i = 1 ke paycountx
Response.write <opsi value = & i &
Jika pageno = saya kemudian respons.write selectd
Response.write (> No.- & i & -page </pection>)
Berikutnya
Response.write </tectd>
%>