<%'开始分页
Const MaxPerPage=12
dim totalPut
dim CurrentPage
dim TotalPages
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
dim rspro
dim j
j=0
set rspro=Server.createobject("adodb.recordset")
rspro.open "select * from Shop_Product order by id desc",conn,1,1
If not rspro.eof then
totalPut=rspro.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"product.asp"
else
if (currentPage-1)*MaxPerPage
rf-19 |
rf-20 |
rf-21 |
rf-22 |
rf-23 |
rf-24 |
rf-25 |
rf-26 |
rf-27 |
|
<%
k=k+1
if k>=MaxPerPage then Exit Do
rspro.movenext
j=j+1
if j>=4 then
response.Write(" ")
j=0
end if
loop
End Sub
end if
%>
<%
Function showpage(totalnumber,maxperpage,filename)
Dim n
Dim selectm
Dim selectkey
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
%>
|
