求助: ASP分页问题,无论点哪页显示的还是第一页内容
ASP分页问题,无论点哪页显示的还是第一页内容下面是页面代码,请帮忙改正!谢谢!
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%fengli1=Request.QueryString("fengli1")%>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from shangpin where fengli1 = "& fengli1 &" order by id desc"
rs.open sql,conn,1,1
%>
<%
if not rs.eof then '如果记录有内容，才设置分页并显示
rs.pagesize=4 '一页显示10条
page=int(request("page")) '获取页数，从分页导航中
if page<1 then '如果页数小于1
page=1
end if
if page>rs.pagecount then '如果页数大于最大分页数
page=rs.pagecount
end if
rs.absolutepage=page '绝对定对到当前页
%>
<%for i=1 to 4%>
<%
if not rs.eof then
%>
<%=rs("biaoti2")%></p>
<% rs.movenext
end if
next
%>
<p></p>
<%
m = page
n = rs.pagecount
%>
<%for i=1 to n%>
<td width="25" align="center"><a href="?fengli1=<%=fengli1%>&?page=<%=i%>"><%=i%></a></td>
<%
m=m+1
next
%>
<%else ' 如果记录为空%>
<p align="center">没有记录</p>
<%end if%>
<%
rs.close
set rs=nothing
%>
</body>
</html>
