| 在 线 定 单 |
|||||||||||||||||||||
<%
const MaxPerPage=5 '分页显示的纪录个数
dim sql
dim rs
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from book2 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " 还没信息! " else totalPut=rs.recordcount totalPut=rs.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 showpages showContent showpages else if (currentPage-1)*MaxPerPage
|
|||||||||||||||||||||
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
sub showpages()
dim n
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
if n=1 then
response.write "留言簿管理界面"
exit sub
end if
dim k
response.write " >> 留言分页 " for k=1 to n if k=currentPage then response.write "["+Cstr(k)+"] " else response.write "["+""+Cstr(k)+"] " end if next end sub %> |