www.qplwatch.com/product_new.asp

首页 上一页 下一页 尾页 页次:-1/2 共7个产品 6个产品/页转到

其中的代码为：
<%
set rs_Product=server.createobject("adodb.recordset" )
sqltext="select * from Product where Passed=True And newpro=True order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
<%filepath=request.servervariables("path_info" )%> <%
page=request.querystring("page" ) 'page值为接受值
rs_Product.PageSize = 6 '每页显示记录数
if Not IsEmpty(page) then '如果page已经初始化...
if Not IsNumeric(page) then '判断page值是否为数字
page=1
else
Page = cint(page) '接收page并化为数字型赋给page变量
end if
if Page > rs_Product.PageCount then '如果接收的页数大于总页数
rs_Product.AbsolutePage = rs_Product.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
rs_Product.AbsolutePage = 1 '设置当前显示页等于第一页
else
rs_Product.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
else
rs_Product.AbsolutePage=1
end if
Page = rs_Product.AbsolutePage%> <%
For i = 1 to rs_Product.PageSize '利用for next 循环依次读出当前页的记录
if rs_Product.EOF then
Exit For
end if%>

<!--'中间循环的数据省略-->

<% rs_Product.MoveNext
Next
%>

<form action="<%=filepath%>" method="get">
<!--首先保证总页数不为1、不为0-->
<%if rs_Product.pagecount<>1 and rs_Product.pagecount<>0 then%>
<!--如果当前页数大于1，无论何时都应显示首页和上一页的连接-->
<%if page>1 then%>
<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>
<a Href="<%=filepath%>?Page=<% = page - 1 %>">上一页</a>
<!--如果当前页数大于1并且小于总页面数时，显示出尾页和下一页的连接-->
<%if page<rs_Product.pagecount then %>
<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>
<a Href="<%=filepath%>?Page=<% = rs_Product.PageCount%>">尾页</a>
<!--如果当前页数大于1并且仍大于或等于总页面数时，不显示出尾页和下一页的连接-->
<%else%>
下一页 尾页
<%end if%>
<!--否则，当前页数不大于1，则只显示尾页和下一页的连接-->
<%else%>
<a Href="<%=filepath%>?Page=<% = 1%>">首页</a> 上一页
<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>
<a Href="<%=filepath%>?Page=<% = rs_Product.PageCount%>">尾页</a>
<%end if %>
<!--最终，总页数若为1、为0则没有任何连接-->
<%else%>
首页 上一页 下一页 尾页
<%end if%>
页次:<font color=red><b><%=page%></b></font>/<%=rs_Product.PageCount%>
共<%=rs_Product.RecordCount%>个产品 <font color=red><b><%=rs_Product.PageSize%></b></font>个产品/页
转到<input name="page" size=5 value="<%=page%>">页
<input type="submit" value="Enter">
</form>

麻烦大家帮我看看问题的所在，谢谢了。

pagesize=20 '===一页的记录数
page=request("page")
if page="" or not(isnumeric(page)) then
    page=1
end if


rs.open sql,conn,1,1

if not rs.EOF then
    rs.PageSize=pagesize
    pagecount=rs.pagecount
    if int(page)>int(pagecount) then
         page=pagecount
    end if
    rs.AbsolutePage=page
    row=pagesize
end if

值为-1表时该属性在特定的打开方式时不被支持，请参考ADO手册