asp中的分页问题?
<%
dianname=request.Form("dianname")从上面一个页面获值
check=request.Form("radio")从上面一个页面获值
session("dianname")=dianname
session("check")=check
sql="select * from baobiao where check='"&session("check")&"'"
if session("dianname")<>"" then
sql=sql&" and dianname='"&session("dianname")&"'"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.pagesize=20
p=trim(request("page"))
if p<>"" then
if p<1 then p=1 end if
if p>trim(rs.pagecount) then p=trim(rs.pagecount) end if
else
p=1
end if
rs.absolutepage=p
%>
<form action="serach.asp" method="post">
<table border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="80" align="center" valign="middle" nowrap="nowrap">编号</td>
<td width="80" align="center" valign="middle" nowrap="nowrap">货名</td>
<td width="80" align="center" valign="middle" nowrap="nowrap">进货数量</td>
</tr>
<%for i=1 to rs.pagesize%>
<tr>
<td width="80" align="center" valign="middle"><%=rs("id")%></td>
<td width="80" align="center" valign="middle"><%=rs("name")%></td>
<td width="80" align="center" valign="middle"><%=rs("jin")%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for end if
next%>
</table>
[共<%=rs.pagecount%>页<%=rs.recordcount%>条记录]
<a href="serach.asp?page=1">首页</a>
<a href="serach.asp?page=<%=p-1%>">上页</a>
<a href="serach.asp?page=<%=p+1%>">下页</a>
<a href="serach.asp?page=<%=rs.pagecount%>">末页</a>
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next
%>
</select>
<input name="submit" type="submit" value="go"/>
本页名为:serach.asp