Ketika programmer PHP menulis kode program, mereka biasanya menggunakan fungsi pagination. Kode sebenarnya sama dengan menulis dokumen kata. Selanjutnya, biarkan editor kesalahan teknologi baru membawa Anda untuk mempelajari tentang metode pemrogram yang menulis fungsi pagination. Salinan kode adalah sebagai berikut:
<%
halaman = trim (permintaan ("halaman"))
mapperpage = 40
pertama = benar
terakhir = true
redup
Set RS = Server.CreateObject ("ADODB.Recordset")
sql = "Pilih ID, Judul, Add1, Cartype, Isred, EnterDate, hits dari berita di mana classtype = 0 dan lulus = 1 pesanan oleh id desc"
Rs.open SQL, Conn, 1,1
rs.pagesize = maxperpage
TotalPage = rs.pagecount
Jika len (halaman) = 0 lalu
intpage = 1
pertama = false
kalau tidak
jika cint (halaman) <= 1 lalu
intpage = 1
pertama = false
kalau tidak
jika cint (halaman)> = rs.pagecount maka
intpage = rs.pagecount
terakhir = false
kalau tidak
intpage = cint (halaman)
akhiri jika
akhiri jika
akhiri jika
Jika tidak rs.eof maka
rs.Absolutepage = intpage
akhiri jika
untuk a = 1 ke mapperpage
Jika rs.eof maka keluar untuk
%>
kalau tidak
response.write "bgcolor =#f6f6f6"
akhiri jika
%>>
<%= A%>
<%add = rs ("add1")
Substring Add, 4
%>
"target =" _ blank ">
<%
jika rs ("isred") = true maka
%>
<%judul = rs ("judul")
Judul Substring, 20
%>
<%lain
title = rs ("judul")
Judul Substring, 20
%>
<%
akhiri jika
%>
<%= rs ("cartype")%>
<%thetime = rs ("enterDate")
mereka = datePart ("m", thetime)
jika len (themon) <2 maka themon = "0" & themon
Theday = datEpart ("D", Thetime)
jika len (theday) <2 maka theday = "0" & theday
ther = themon & "-" & theday
respons. tulis
%>
<%= rs ("hit")%>
<%
rs.movenext
Jika rs.eof maka keluar untuk
Berikutnya
%>
< %jika rs.pagecount> 0 lalu %>
Ada total <%= rs.recordcount%> | Halaman saat ini <%= intpage%>/
<%
= rs.pagecount%>
< % berakhir jika %>
<%Jika intpage> 1 lalu%>
?
Halaman = 1 "> Halaman Beranda
<%else%>
halaman depan
<%berakhir jika%>
<%jika pertama kali%>
?
halaman = <%= intpage-1%> "> halaman sebelumnya
<%else%>
Halaman sebelumnya
<%berakhir jika%>
<%jika terakhir dan intpage
?
halaman = <%= intpage+1%> "> halaman berikutnya
<%else%>
Halaman berikutnya
<%berakhir jika%>
<%jika intpage
?
halaman = <%= rs.pagecount%> "> halaman terakhir
<%else%>
Halaman terakhir
<%berakhir jika%>
Pergi ke
[this.selectedIndex] .value ">
<%untuk b = 1 hingga rs.pagecount
jika b = intpage maka%>
? page = <%= b%> "dipilih>
Halaman <%= B%>
< % else %>
? Halaman = <%= B%> "> halaman <%= B%>
<%end if
%berikutnya>
<%
rs.close
Setel RS = tidak ada
Conn.Close
atur conn = tidak ada
%>> lalu%>> lalu%>>>>
Melalui editor saluran teknologi baru, saya percaya setiap orang memiliki pemahaman tertentu tentang metode pemrogram yang menulis fungsi paging. Jika Anda perlu mengetahui lebih banyak informasi terkait, silakan terus perhatikan kesalahan saluran teknologi baru!