Question

asp 分页参数带到下页

<%
Set rs= Server.CreateObject("ADODB.recordset") '创建打开对象
if request("类型")<>"" then
rs.open "Select * from 产品 where 类型='"&request("类型")&"'",lj,1,1
else
rs.open "Select * from 产品 order by id asc,序号 desc",lj,1,1
end if
if rs.bof and rs.eof then%>
<tr class="ZT-12px"><td colspan="9" align="center" >暂无产品</td></tr>
<%else
Rs.pagesize=8 '指示recordset中一页所包含的记录数
Zongyeshu=rs.pagecount '使用pagecount属性可确定recordset对象中的数据的页数
Page=int(request("page"))
If page<=0 then page=1
If request("page")=" " then page=1
Rs.absolutepage=page '指定当前记录所在的页
for i=1 to rs.pagesize
%>
<tr>-------------内容-----------------</td>
<%
Rs.movenext
if rs.eof then exit for
next
%>
<tr class="ZT-12px">
<td height="30" colspan="9" align="center"><% if page=1 and not page=zongyeshu then %>
第一页 上一页
<a href="?page=<%=page+1%>">下一页</a>
<a href="?page=<%=zongyeshu%>">最后页</a>
<% elseif page<>1 and not page=zongyeshu then %>
<a href="?page=1">第一页</a>
<a href="?page=<%=page-1%>">上一页</a>
<a href="?page=<%=page+1%>">下一页</a>
<a href="?page=<%=zongyeshu%>">最后页</a>
<% elseif page=zongyeshu then%>
<a href="?page=1">第一页</a>
<a href="?page=<%=page-1%>">上一页</a>
下一页 最后页
<% end if
Response.Write(" <select name='pagemenu' onChange='window.location=this.options[this.selectedIndex].value' style='font-size:12px'>")
for i=1 to rs.pagecount
Response.Write("<option value='?page="&i&"'")
if i=cint(page) then Response.write(" selected")
Response.write(">第"&i&"页</option>")
next
Response.Write("</select>") %>

<%
response.write " 页次:"&page&"/"&rs.pagecount&"页</font>"
rs.close set rs=nothing %>

上面是分页代码
如果没参数是正常的如 cp.asp?page=1 cp.asp?page=2 cp.asp?page=3等等
我想加入参数
如 cp.asp?did=1&xid=10&page=1
怎么加
我在
<a href="?page= <%=page+1%>">下一页 </a>
变成
did=Request("did")
<a href="?did= <%=did%>&page= <%=page+1%>">下一页 </a>
这样第二页正常 翻到第三页的时候 又变成了page=1前面的did=没了
如何把参数did= <%=did%>带到 第三 第四页
到底这么写
还要写个判断
如果没参数 按原样不带参数

Answer 1

第三页时did=Request("did") 已经获不到值了
你可以用session("did")=Request("did") 来保存这个值

<a href="?did= <%=session("did")%>&page= <%=page+1%>">下一页 </a>

这样就可以了