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

<!--#includefile="inc/conn.asp"-->
<%
dimi,intPage,page,pre,last,filepath
setrs=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"))

iflen(page)=0then
intpage=1
pre=false
else
ifcint(page)=<1then
intpage=1
pre=false
else
ifcint(page)>=rs.PageCountthen
intpage=rs.PageCount
last=false
else
intpage=cint(page)
endif
endif
endif
ifnotrs.eofthen
rs.AbsolutePage=intpage
endif
%>
<!--循环开始-->
<table>
<%'行循环判断to后面是行数
fori=1to3
%>
<tr>
<%'列循环判断to后面是列数
forj=1to4
ifnotrs.eofthen
%>
<td>显示内空</td>
<%
rs.movenext
else
%>
<td></td>
<%
endif
next
%>
</tr>
<%
next
%>
</table>

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