多行多列的分页,与之前发的不同.

< ! -- #includefile = " inc/conn.asp " -->
< %
dim i,intPage,page,pre,last,filepath
set rs = server.CreateObject( " adodb.recordset " )
sql = " select*fromproduct "
rs.PageSize = 12
rs.CursorLocation = 3
rs.Opensql,conn, 0 , 2 , 1
pre = true
last = true
page = trim (Request.QueryString( " page " ))

if len (page) = 0 then
intpage = 1
pre = false
else
if cint (page) =< 1 then
intpage = 1
pre = false
else
if cint (page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint (page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
% >
< ! -- 循环开始 -->
< table >
< % ' 行循环判断to后面是行数
for i = 1 to 3
% >
< tr >
< % ' 列循环判断to后面是列数
for j = 1 to 4
if not rs.eof then
% >
< td > 显示内空 </ td >
< %
rs.movenext
else
% >
< td > </ td >
< %
end if
next
% >
</ tr >
< %
next
% >
</ table >

< ! -- 循环体结束
分页部分： -->
< tablewidth = " 99% " border = " 1 " cellpadding = " 2 " cellspacing = " 2 " borderColorLight = # 808080 borderColorDark = #ffffff >
< tr >
< Tdwidth = " 10% " > 共有 < % = rs.recordcount% > 条记录 </ Td >
< % if rs.pagecount > 0 then % >
< tdwidth = " 13% " align = " left " > 当前页 < % = intpage% >/< % = rs.PageCount% ></ td >
< % else % >
< tdwidth = " 41% " align = " left " > 当前页0 / 0 </ td >< % end if % >
< tdwidth = " 46% " align = " right " > < ahref = " ?page=1 " > 首页 </ a > |
< % if pre then % >
< % if rs.pagecount = 1 then ' 判断是否显示上页、下页
Response.Write ""
else % >
< ahref = " ?page=<%=intpage-1%> " > 上页 </ a > | < % end if % >
< % if last then % >
< ahref = " ?page=<%=intpage+1%> " > 下页 </ a > |
< % end if
end if % >
< ahref = " ?page=<%=rs.PageCount%> " > 尾页 </ a > |转到第
< select name = " sel_page " >
< %
for i = 1 to rs.PageCount
if i = intpage then % >
< option value = " ?page=<%=i%> " selected >< % = i% ></ option >
< % else % >
< option value = " ?page=<%=i%> " >< % = i% ></ option >
< %
end if
next
% >
</ select > 页 </ font >
</ td >
</ tr >
</ table >