关于一个简单的分页程序的问题
关于一个简单的分页程序，在ACCESS下测试正常，可是在SQL SERVER 2000下就出现问题，第一页显示-1页，而上一页却是第0页，大家帮我看看是怎么了？
<%
pro_class=rtrim(request( "pro_class "))
set rs=server.CreateObject( "adodb.recordset ")
sql= "select * from product where rtrim(pro_class)= ' "&pro_class& " ' order by id desc "
rs.open sql,conn,1,1
if not rs.eof then
page=request.QueryString( "page ")
rs.pagesize=6
total=rs.recordcount
if Not IsEmpty(ltrim(rtrim(Request( "Page ")))) then
page = CInt(Request( "page "))
if page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif page <= 0 then
page = 1
else
rs.AbsolutePage = page
end if
End if
page = rs.AbsolutePage
end if
%>
下面显示的代码：
<%if rs.pagecount <> 1 and rs.pagecount <> 0 then%>
<%if page <rs.pagecount then%>
<%if page> 1 then %>
[首页] [上一页]
<%else%>
[ <a Href= "class_zhanshi.asp?page= <%=1%> &pro_class= <%=pro_class%> "> 首页 </a> ]
[ <a Href= "class_zhanshi?page= <% =page-1 %> &pro_class= <%=pro_class%> "> 上一页 </a> ]
<% end if %>
[ <a Href= "class_zhanshi.asp?page= <%=page+1%> &pro_class= <%=pro_class%> "> 下一页 </a> ]
[ <a Href= "class_zhanshi.asp?page= <%=rs.PageCount%> &pro_class= <%=pro_class%> "> 尾页 </a> ]
<%else%>
[ <a Href= "class_zhanshi.asp?page= <% = 1%> &pro_class= <%=pro_class%> "> 首页 </a> ] [ <a Href= "class_zhanshi.asp?page= <% =page -1 %> &pro_class= <%=pro_class%> "> 上一页 </a> ]
[下一页] [尾页]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>
[页次: <font color=red> <b> <%=page%> </b> </font> / <%=rs.PageCount%> ] [共 <font color= "#FF0000 "> <%=rs.RecordCount%> </font> 篇 <font color=red> <b> <%=rs.PageSize%> </b> </font> 篇/页] </div> </td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing%>
谢谢了！
[解决办法]
rs.open sql,conn,1,1==> try: rs.open sql,conn,3,1
[解决办法]
11
