Direkomendasikan: Set Fungsi Operasi File ASP % '======================================================' Disusun oleh: Kode Programmer Nuxes Zhang HUI yang dikompilasi dengan Allete 'FUNIONS' FUNIONS 'FUNIONS' FUNIONS 'FUNIONS' FUNIONS 'FUNIONS' 2008 ' alamat '======================================================================== =================================================================================
<%@ language = vbscript codepage = 936%>
<%
Opsi Eksplisit 'Definisi Wajib Variabel
redupkan jumlah catatan
redup halaman per halaman
jumlah halaman pagec'total redup
nomor halaman halaman redup
Dim Pagenc 'Jumlah nomor halaman yang ditampilkan per halaman = Pagenc*2+1
Pagenc = 2
Jumlah halaman maksimum Halaman Maksimum DiMenmax yang ditampilkan per halaman
Dim Pagenmin 'Jumlah halaman minimum halaman yang ditampilkan per halaman
halaman = clng (permintaan (halaman))
waktu mulai program mulai
redup endt 'waktu akhir program
nama datafrom'datatable DIM
DataFrom = Table1
redup conn, rs
lulus basis data redup datapath '
ID DiMlid 'DiMlid diperlukan untuk halaman ini
redup saya sendiri dari halaman ini
diri saya = request.serverVariable (path_info)
Pernyataan DIM SQL'SQL
pernyataan sortir taksi redup
'taksi = pesanan oleh id asc' jenis positif
taksi = pesanan dengan id desc 'sortir terbalik
redup i 'integer digunakan untuk loop
start = timer ()
Datapath = DB.MDB 'Database
Halaman = 30
'Koneksi untuk membuka database
redup db
db = db.mdb 'Tentukan jalur dan nama basis data
Set Conn = Server.CreateObject (AdodB.Connection)
conn.open provider = microsoft.jet.oledb.4.0; Sumber data = & server.mappath (db)
Jika err.number <> 0 lalu
Response.Write Kesalahan Tautan Basis Data!
response.end ()
akhiri jika
'Dapatkan jumlah total catatan
SQL = Pilih Hitung (ID) Sebagai IDCount dari [& DataFrom &]
Set RS = Server.CreateObject (ADODB.Recordset)
rs.open sql, conn, 0,1
idcount = rs (idcount) 'Dapatkan jumlah total catatan
if (iDcount> 0) maka 'jumlah total catatan = 0, itu tidak akan diproses
if (idcount mod halaman = 0) maka 'jika jumlah total catatan dibagi dengan jumlah yang tersisa dari setiap halaman, lalu = jumlah total catatan/jumlah setiap halaman + 1
pagec = int (idcount/halaman) 'Dapatkan jumlah total halaman
kalau tidak
pagec = int (idcount/halaman)+1'get Jumlah total halaman
akhiri jika
'Dapatkan ID yang dibutuhkan untuk halaman ini =================================================================================================
'Baca semua catatan' Nilai ID, karena hanya ada ID sehingga kecepatannya sangat cepat
SQL = Pilih ID dari [& DataFrom &] & Taksi
Set RS = Server.CreateObject (ADODB.Recordset)
Rs.open SQL, Conn, 1,1
Rs.pagesize = Jumlah catatan yang ditampilkan per halaman
Jika halaman <1 maka halaman = 1
Jika halaman> pagec maka halaman = pagec
Jika Pagec> 0 maka rs.Absolutepage = halaman
untuk i = 1 hingga rs.pagesize
Jika rs.eof maka keluar untuk
if (i = 1) lalu
sqlid = rs (id)
kalau tidak
sqlid = sqlid &, & rs (id)
akhiri jika
rs.movenext
Berikutnya
'Akhir ID diperlukan untuk mendapatkan halaman ini ===============================================================
akhiri jika
%>
<! Doctype html public -// w3c // dtd html 4.01 transisi // en>
<Html>
<head>
<meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312>
<title> paging cepat </iteme>
<tautan rel = stylesheet href = page.css type = text/css>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 marginwidth = 0 marginheight = 0>
<Lebar Tabel = Tinggi 100% = 100% Border = 0 CellPadding = 20 CellPacing = 0>
<tr>
<td valign = middle> <width tabel = 100% tinggi = 100% batas = 0 selpadding = 0 selpacing = 1 bgcolor =#cccccc>
<tr>
<td valign = atas bgcolor =#ffffff> <br> <width tabel = 90% border = 0 align = cents cellpading = 0 cellpacing = 0 class = zw>
<tr>
<td> <strong> <font color =#ff6600> paging cepat </font> </strong> </td>
</tr>
</boable>
<br>
<Lebar Tabel = 90% Border = 0 ALIGN = Centre CellPadding = 3 CellPacing = 1 BGColor = CCCCCCCC Class = ZW>
<tr align = tengah bgcolor =#9fcb07>
<td width = 9%> <strong> id </strong> </td>
<td width = 37%> <strong> tema </strong> </td>
<td width = 33%> <strong> konten </strong> </td>
<td width = 21%> <strong> waktu </strong> </td>
</tr>
<%
if (iDcount> 0 dan sqlid <>) maka 'jumlah total catatan = 0, itu tidak akan diproses
'Gunakan untuk memilih data dalam bahasa halaman ini, dan hanya membaca data yang diperlukan untuk halaman ini, jadi kecepatannya cepat
sql = pilih [id], [aaaa], [bbbb], [cccc] dari [& datafrom &] di mana id in (& sqlid &) & taksi
Set RS = Server.CreateObject (ADODB.Recordset)
rs.open sql, conn, 0,1
Sedangkan (bukan rs.eof) 'isi data ke dalam tabel
%>
<tr bgcolor =#ffffff>
<td align = center> <%= rs (0)%> </td>
<td> <%= rs (1)%> </td>
<td> <%= rs (2)%> </td>
<td align = center> <%= rs (3)%> </td>
</tr>
<%
rs.movenext
pergi ke
%>
</boable>
<br>
<Lebar Tabel = 90% Border = 0 ALIGN = Centre CellPadding = 2 CellPacing = 0 Class = ZW>
<tr align = center>
<td align = left> Ada total <strong> <font color =#ff6600> <%= idcount%> </font> </strong> catatan, <strong> <font color =#ff6600> <%= page%> </font> </strong>/<%= pagec%, dan setiap halaman adalah </font> </strong>/<%= pagec%> color =#ff6600> <%= halaman%> </font> </strong> catatan. </td>
</tr>
</boable>
<Lebar Tabel = 90% Border = 0 ALIGN = Centre CellPadding = 2 CellPacing = 0 Class = ZW>
<tr align = center>
<td align = right>
<%
'Atur nomor halaman untuk mulai ==============================================
pagenmin = page-pagenc 'Hitung Nilai Mulai Nomor Halaman
pagenmax = halaman+pagenc 'Hitung nilai akhir dari nomor halaman
if (pagenmin <1) lalu if Number nomor halaman mulai kurang dari 1 lalu = 1
Pagenmin = 1
akhiri jika
if (halaman> 1) maka 'nomor halaman lebih besar dari 1, itu akan ditampilkan (halaman pertama)
response.write (<a href = '& saya &? page = 1'> <font color = '#000000'> Halaman 1 </font> </a>)
akhiri jika
if (pagenmin> 1) maka 'nomor halaman nilai mulai lebih besar dari 1, itu akan ditampilkan (perbarui)
response.write (<a href = '& saya &? page = & page- (pagenc*2+1) &'> <font color = '#000000'> Advance </font> </a>)
akhiri jika
if (pagenmax> pagec) maka 'nilai akhir dari nomor halaman lebih besar dari jumlah total halaman, maka = jumlah total halaman
pagenmax = pagec
akhiri jika
untuk i = nomor halaman output loop pagenmin ke pagenmax '
if (i = halaman) lalu
response.write (<font color = '#ff6600'> <strong> & i & </strong> </font>)
kalau tidak
response.write ([<a href = & saya &? page = & i &> <font color = '#000000'> & i & </font> </a>])
akhiri jika
Berikutnya
Jika (Pagenmax <pagec) maka nilai akhir dari nomor halaman kurang dari jumlah total halaman, itu akan ditampilkan (setelah itu)
response.write (<a href = '& saya &? page = & page+(pagenc*2+1) &'> <font color = '#000000'> Setelah </font> </a>)
akhiri jika
Jika (halaman <pagec) maka 'jika nomor halaman kurang dari jumlah total halaman, itu akan ditampilkan (halaman terakhir)
response.write (<a href = '& saya &? page = & pagec &'> <font color = '#000000'> halaman terakhir </font> </a>)
akhiri jika
'Atur nomor halaman ke akhir ================================================
%> <bahasa skrip = javascript>
<!-
fungsi gopage () {
window.location.href = <%= sendiri%>? page =+ page.value;
}
//->
</script>
Pergi ke
<input name = type halaman = nilai teks = <%= halaman%> ukuran = 5> halaman
<Input Type = Tombol Nama = Kirim Nilai = Jump> </td>
</tr>
</boable>
<%
akhiri jika
%>
<br>
<Lebar Tabel = 90% Border = 0 ALIGN = Centre CellPadding = 2 CellPacing = 0 Class = ZW>
<tr>
<td align = center>
<p>
<%
endt = timer ()
rs.close
Setel RS = tidak ada
Conn.Close
atur conn = tidak ada
%>
<%= formatNumber ((endt-start)*1000,3)%> ms </p>
<p> <a href = http://stone-stone.vip.sina.com/ target = _blank> ruang batu </a> </p> </td>
</tr>
</boable>
<br> </td>
</tr>
</able> </td>
</tr>
</boable>
</body>
</html>
Bagikan: Kiat Pengaturan ASP untuk Menggunakan FckEditor 1. Buka file fckconfig.js dalam bahasa default (relatif ke folder fckeditor, sama di bawah), ubah bahasa deteksi otomatis menjadi non-deteksi, dan ubah bahasa default menjadi Cina yang disederhanakan: kode program fckconfig.autodetectLanguage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Buka file fckconfig.js di daftar font, dalam daftar font