Question

asp 下拉菜单 传值

首先给大家看一段代码。
<%
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/nvzhuang.mdb")
set conn=server.CreateObject("ADODB.Connection")
conn.open connstr
%>
heel = request.Form("heel")
select case heel
case 1
sql="select * from nv_tixu"
case 2
sql="select * from nv_tixu where price <= 29"
case 3
sql="select * from nv_tixu where price > 29 and price <= 59"
case 4
sql="select * from nv_tixu where price > 59 and price <= 99"
case 5
sql="select * from nv_tixu where price > 99 and price <= 199"
case 6
sql="select * from nv_tixu where price > 199"
end select
<FORM NAME="frmSort" METHOD="post">
<select name="heel"onChange="document.frmSort.submit();">
<option value=""selected>请选择</option>
<option value="1">全部商品</option>
<option value="2">0~29元</option>
<option value="3">30~59元</option>
<option value="4">60~99元 </option>
<option value="5">100~199元 </option>
<option value="6">200元以上</option>
</select>
<%
rs.PageSize = 16
pagecount=rs.PageCount
page=int(request.QueryString("page"))
if page <= 0 then page=1
if request.QueryString("page") = "" then page = 1
rs.AbsolutePage=page
%>
<%if page > 1 then%>
<a href="product_list.asp?page=<%=1%>"><img src="allview.gif"></A>
<a href="product_list.asp?page=<%=page-1%>"><imgsrc="sort1.gif"></A>
<%else%>
<img src="allview.gif"> <img src="sort1.gif">
<%end if%>
<%if page < pagecount then%>
<a href="product_list.asp?page=<%=page+1%>"><imgsrc="sort2.gif"></A>
<a href="product_list.asp?page=<=pagecount>"><imgsrc="sort3.gif"></A>
<%else%>
<img src="sort2.gif"> <img src="sort3.gif">
<%end if%>
</FORM>

这段代码是一个分页代码，按照每页16条记录进行分页。这个功能运行正常。

不过我又做了一个下拉菜单，通过商品的价位来显示商品。
切换下拉菜单的时候值也正常，而且我用response.wirte(request.form(heel))的值，显示也是对的。

问题是，当我切换下拉菜单之后，再点击下一页图片的时候，刷新页面之后，
又是按照全部商品(数据库中所有数据)来分页，显示内容。

这是为什么呢？？为了这个bug茶不思饭不想。。。希望各位高手们给与解答。。。小弟不胜感激！！！

我已经把全部家当都压上了，只有这么点积分，请大家谅解。

如果有什么地方说的不够详细，我会马上补充的，谢谢大家了。
补充一段代码！！
<%
for j=1 to rs.pagesize
if rs.eof then
response.Write ("商品未登录")
exit for

end if
%>
<%
rs.movenext
if (j mod 4) = 0 then
response.Write("</tr><tr>")
End if
next
%>
<font color="#000000">共<b><%=pagecount%></b>页</font> <font color="#000000">当前为第<b><%=page%></b>页</font>
<%if page > 1 then%>
<a href="product_list.asp~code1=01&code2=01.asp?page=<%=page-1%>">
<img src=b_prev.gif><img src=arw1.gif></a>
<%else%>
<img src=b_prev.gif><img src=arw1.gif>
<%End if%>
<%
for i = 1 to pagecount
if i <> page then
%>
<a href="product_list.asp?page=<%=i%>"><%="[" & i & "]"%></a>
<%else%>
<font color="#000000"><%=i%></font>
<%End if%>
<%next%> 

<%if page < pagecount then%>
<a href="product_list.asp?page=<%=page+1%>">
<img src=arw2.gif><img srcb_next.gif></a>
<%else%>
<img src=arw2.gif ><img src=b_next.gif>
<%End if%>

这是所有的分页代码，请指教！！！

Answer 1

<%
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/nvzhuang.mdb")
set conn=server.CreateObject("ADODB.Connection")
conn.open connstr
%>
heel = request("heel")
select case heel
case 1
sql="select * from nv_tixu"
case 2
sql="select * from nv_tixu where price <= 29"
case 3
sql="select * from nv_tixu where price > 29 and price <= 59"
case 4
sql="select * from nv_tixu where price > 59 and price <= 99"
case 5
sql="select * from nv_tixu where price > 99 and price <= 199"
case 6
sql="select * from nv_tixu where price > 199"
end select
<FORM NAME="frmSort" METHOD="post">
<select name="heel"onChange="document.frmSort.submit();">
<option value=""selected>请选择</option>
<option value="1">全部商品</option>
<option value="2">0~29元</option>
<option value="3">30~59元</option>
<option value="4">60~99元 </option>
<option value="5">100~199元 </option>
<option value="6">200元以上</option>
</select>
<%
rs.PageSize = 16
pagecount=rs.PageCount
page=int(request.QueryString("page"))
if page <= 0 then page=1
if request.QueryString("page") = "" then page = 1
rs.AbsolutePage=page
%>
<%if page > 1 then%>
<a href="product_list.asp?page=<%=1%>&heel=<%=heel%>"><img src="allview.gif"></A>
<a href="product_list.asp?page=<%=page-1%>&heel=<%=heel%>"><imgsrc="sort1.gif"></A>
<%else%>
<img src="allview.gif"> <img src="sort1.gif">
<%end if%>
<%if page < pagecount then%>
<a href="product_list.asp?page=<%=page+1%>heel=<%=heel%>"><imgsrc="sort2.gif"></A>
<a href="product_list.asp?page=<%=pagecount%>&heel=<%=heel%>"><imgsrc="sort3.gif"></A>
<%else%>
<img src="sort2.gif"> <img src="sort3.gif">
<%end if%>
</FORM>

Answer 2

heel = request.Form("heel")
这个你接收了参数，你的价格参数接收了吗？
就算接收了，你得在下拉菜单里设置这个值，要不刷新之后，下拉没有状态，而且关键的是，价格参数丢失了。
---------------------------
分页代码加参数保存分页信息。

Answer 3

问题出在你点下一页时候没把你下拉菜单的选择项传递过去。正确的做法是在下一页按钮的链接中传递选择项。在查询语句中对传过来的选择项进行分析并作为查询语句的条件。
看你应该是自己会写代码的人。把问题关键点告诉你就足够了。

Answer 4

把你的分页代码发上来，是你分页代码的问题