分页成功但是点击下页后还是原来的页面,郁闷的很
<%set rsb=server.CreateObject("adodb.recordset")
sqlb="select * from products "
rsb.open sqlb ,conn,1,1
rsb.pagesize=5
curpage=Request.QueryString("curpage")
if rsb.bof and rsb.eof then
response.Write"暂无记录!"
response.End()
end if
if curpage="" then curpage=1
for i= 1 to rsb.pagesize
if rsb.eof then
exit for
end if
%>
<table width="85%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="48%" rowspan="3" bgcolor="#FFFFFF"><img src="<%=rsb("url")%>" width="200" height="100"></td>
<td width="18%" height="18" bgcolor="#FFFFFF" class="style4 style5">公司名称:</td>
<td width="34%" align="center" bgcolor="#FFFFFF" class="style4"><%=rsb("webname")%></td>
</tr>
<tr>
<td height="18" bgcolor="#FFFFFF" class="style6">公司网址:</td>
<td height="18" align="center" bgcolor="#FFFFFF" class="style4"><%=rsb("web")%></td>
</tr>
<tr>
<td height="53" colspan="2" bgcolor="#FFFFFF"><%=rsb("contnet")%></td>
</tr>
</table>
<table width="11" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<%
rsb.movenext
next
%>
<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1">首页</a>
<%end if%>
<%if curpage=1 then%>
上一页
<%else%>
<a href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>
<%if rsb.pagecount<curpage+1 then%>
下一页
<%else%>
<a href="?curpage=<%=curpage+1%>">下一页</a>
<%end if%>
<%if rsb.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rsb.pagecount%>">尾页</a>
<%end if%>
共<%=rsb.pagecount%>页 共有<%=rsb.recordcount%>条新闻 当前第<%=curpage%>页</td>
