万分紧急,ASP分页问题.

来源:百度知道 编辑:UC知道 时间:2024/06/09 02:38:45
大家看我的ASP程序:首页竟然显示全部记录集,第二页比首页少显示3个记录,依次类推...都晕了...我想每页显示6个记录,每行显示3个记录
<!--#include file="CONN.asp"-->

<%
<table width="680" border="0" align="center" cellpadding="0" cellspacing="0">

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM zh "
rs.Open sql,conn,1,1
rs.pageSize=3'每页记录数
pages=Cint(request("pages"))

If Pages<1 Then Pages = 1
If Pages>rs.PageCount Then Pages=rs.PageCount
rs.AbsolutePage = pages
If Pages<>PageCount Then
Response.Write "共"&rs.PageCount&"页  "
Response.Write "<a href=product.asp?pages=1>首页 </span></a>"
If Pages<>1 Then
response.write " "&" "
Response.Write "<a href=product.asp?pages=&qu

我改的你的,你除了这句话,全部复制过去试一下

<!--#include file="CONN.asp"-->

<table width="680" border="0" align="center" cellpadding="0" cellspacing="0">

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM zh "
rs.Open sql,conn,1,1
rs.pageSize=3'每页记录数
pages=Cint(request("pages"))

If Pages<1 Then Pages = 1
If Pages>rs.PageCount Then Pages=rs.PageCount

rs.AbsolutePage = pages

If Pages<>PageCount Then
Response.Write "共"&rs.PageCount&"页 "
Response.Write "<a href=product.asp?pages=1>首页 </span></a>"
If Pages<>1 Then
response.write " "&" "
Response.Write "<a href=product.asp?pages="&(Pages-1)&">上页 </span></a>"
End If