<!-#termasuk file = "conn.asp"->
<%
"Bagian berikut adalah untuk memverifikasi apakah halaman yang dikirimkan adalah parameter hukum
"Bagian ini adalah yang terbaik untuk menentukan apakah parameter yang dikirim adalah karakter nilai
Halaman redup
Halaman = trim (permintaan ("halaman")
Jika halaman = "" lalu
halaman = 1
Elseif cint (halaman) <= 0 lalu
halaman = 1
kalau tidak
Halaman = cint (halaman)
Akhiri jika
"Pertanyaan, ambil catatan yang ingin Anda tampilkan
Redup, sql, str
Set RS = Server.CreateObject ("ADODB.OldSet")
SQL = "Pilih * dari A1"
Rs.oopen Sql, Conn, 1,3
Jika tidak rs.eof maka
str = rs ("a1")
Akhiri jika
Rs.close
Setel RS = Tidak Ada
"Letakkan catatan yang direkam di array
redup strtmp
strtmp = split ((str), "<br>"))
"Hapus catatan yang akan ditampilkan, dan dapatkan jumlah halaman secara bersamaan
Redup, tmp, i, j, tt
n = 500
i = 0
j = 0
Lakukan sementara saya <= uborder (strtmp)
Tmp = strtmp (i)
TT = true
Lakukan saat tt
Jika i> = ubound (strtmp) lalu
Tt = false
j = j 1
Elseif len (tmp)> = n
Tt = false
j = j 1
Elseif len (tmp) len (strtmp (i 1))> = n kemudian
Tt = false
j = j 1
Kalau tidak
Tmp = tmp "<br>" strtmp (i 1)
i = i 1
Akhiri jika
Lingkaran
Jika halaman = j maka str = tmp "<br>"
i = i 1
Lingkaran
"Tentukan apakah parameter transmisi melintasi perbatasan, jika Anda melintasi perbatasan, Anda akan mendapatkan konten halaman terakhir
Jika halaman> j maka
str = tmp
akhiri jika
"Tunjukkan konten paging
"Perhatikan parameter dari passing, hanya halaman yang dilewati di sini. Jika ada parameter lain yang akan disatukan, jika tidak itu tidak akan ditampilkan setelah paging.
response.write "paging->" "" "
Untuk n = 1 hingga j
Jika n = halaman maka
response.write "& nbsp;" & n & "& nbsp;"
kalau tidak
response.write "[<a href = index.asp? page =" & n & ">" & n & "</a>]
akhiri jika
Berikutnya
response.write "<br> <br>" "
"Tunjukkan bagian ini dari bagian konten ini yang akan ditampilkan
Response.write str
%>