Question

asp 下拉框问题

下面这段代码的意思是：下拉框里的数据是从数据库动态读出的产品类别，当选择其中一个类别时，则显示页面将显示该类别的产品。
我现在遇到的问题是，上面的功能实现了，但现在怎么样可以做到选择其中一项类别时，下拉框里对应的该类别应该处于选中状态。请高手赐教～～～～
<%
set rsClass=Server.CreateObject("ADODB.RecordSet")
strSQL="Select * From pro_class Order By p_l_sort"
rsClass.open strSQL,conn,1,1
%>
分类：<select name="selClass" id="selClass" onChange="location.replace(this.value)">
<option value='0'>全部</option>
<%for i=1 to rsClass.recordcount%>
<option value='main.asp?cplbid=<%=trim(rsClass("p_l_id"))%>&WindowName=<%=trim(rsClass("p_l_class"))%>'><%=trim(rsClass("p_l_class"))%></option>
<%
rsClass.movenext
next
%>
</select>
<%rsClass.close%>

Answer 1

楼主的意思是不是说在显示页面显示的时候类别显示对应的类啊。
试试这样可以不：
下面的代码是楼主提供代码的基础上做了修改，并有注释：
---------------
<%
set rsClass=Server.CreateObject("ADODB.RecordSet")
strSQL="Select * From pro_class Order By p_l_sort"
rsClass.open strSQL,conn,1,1
%>
分类：<select name="selClass" id="selClass" onChange="location.replace(this.value)">
<option value='0'>全部</option>
<%for i=1 to rsClass.recordcount
'''下面的是我添加的
checkstr=""
if request.querystring("cplbid")=trim(rsClass("p_l_id")) then
checkstr="selected"
end if
'''''上面的是我添加的,下面的option 中也添加了一点东西，比较一下就知道了%>
<option <%=" "+checkstr+" "%> value='main.asp?cplbid=<%=trim(rsClass("p_l_id"))%>&WindowName=<%=trim(rsClass("p_l_class"))%>'><%=trim(rsClass("p_l_class"))%></option>
<%
rsClass.movenext
next
%>
</select>
<%rsClass.close%>

Answer 2

给select一个初始值就OK了