Ini adalah daftar paging asp untuk menghasilkan halaman statis dan mendapatkan skrip applet asp
Salinan kode adalah sebagai berikut:
<!-#includeFile = "conn.asp"->
<html> <head> <title> tes pagination </iteme> <linkhref = "inc/style.css" type = text/cssrel = stylesheet> </head>
<%Strhead = Strhead & "<html>"
Strhead = Strhead & "<head>"
Strhead = Strhead & "<Title> tes pagination </iteme>"
strhead = strhead & "<linkhref =" "inc/style.css" "type = text/cssrel = stylesheet>"
Strhead = Strhead & "</head>"
%>
<%
sql = "pilih*fromnews"
setRs = server.CreateObject ("adodb.recordset")
rs.opensql, Conn, 1,1
%> <%
rs.pageSize = 2
TotalPage = rs.pagecount
rs.close
setRs = tidak ada
forj = 1tototalpage
sql = "pilih*fromnews"
setRs = server.CreateObject ("adodb.recordset")
rs.opensql, Conn, 1,1
Yang mana = j
rs.pageSize = 2
TotalPage = rs.pagecount
rs.Absolutepage = halaman mana
howmyyrecs = 0
%> <%
str0 = ""
str0 = str0 & "</p>"
str0 = str0 & "<TableBgColor =#cecfcealign = centenger = 0width = 800CellPadding = 2CellPacing = 1>"
%> <%
dowhilenotrs.eofandhowmanyrecs <rs.pagesize
%> <%
str0 = str0 & "<trbgcolor =#f7f7f7>"
str0 = str0 & "<tdbgcolor =#f7f7f7align =" "center" ">" & rs (0) & "</td>"
str0 = str0 & "<tdbgcolor =#f7f7f7align =" "center" ">" & rs (1) & "</td>"
str0 = str0 & "<tdbgcolor =#f7f7f7align =" "center" ">" & rs (2) & "</td>"
str0 = str0 & "<tdbgcolor =#f7f7f7align =" "center" ">" & rs (3) & "</td>"
str0 = str0 & "</tr>"
%> <%
rs.movenext
howmyyrecs = howmyyrec+1
lingkaran
rs.close
setRs = tidak ada
%> <%str0 = str0 & "</able>"
%> <%
'Bagian pagination
ref = ""
ref = ref & "<br>"
Ref = ref & "<TableBgColor =#cecfcealign = centrawer = 0width = 800CellPadding = 0cellspacing = 1>"
ref = ref & "<trbgcolor =#f7f7f7>"
ref = ref & "<td>"
ref = ref & "<b> halaman:" & j & "/" & totalpage & "</b>"
ref = ref & "</td>"
ref = ref & "<td>"
ref = ref & "<ahref = list_1.html" & ">" & "<fontface = webdings> 9 </font>" & "</a>" "
Jika halaman mana = 1then
ref = ref & "<fontface = webdings> 7 </font>"