ASP分页问题,,,急。。。。

来源:百度知道 编辑:UC知道 时间:2024/05/25 11:26:44
<table>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/ql#zhong.mdb")
Conn.Open ConnStr
%>
<%
set Rs=server.CreateObject("adodb.recordset")
Sql3="select * from [Nav] order by id"
Rs.open Sql3,Conn,1,1

if not(Rs.bof and Rs.eof) then
Rs.pagesize=2
recordnum=Rs.recordcount
pagecountt=Rs.pagecount
for i=0 to Rs.pagesize
if not Rs.eof then
%>
<TR><TD>
<%=Rs("id")%>
</TD></TR>
<%
Rs.movenext
else
exit for
end if
next
end if
%>
<% curpage=cint(request("curpage"))
if curpage<=1 or curpage="" then curpage=1
if c

其实asp可以写成很多类,像字符串处理类,数据库操作类,分页类

这样开发速度才快,维护也方便

百度一下 Kin_Db_Pager 分页

不错的asp分页类,自带多种风格

将数据库中的数据多加几条
观察第一页显示的是否为全部数据
还有检查连接