请各位帮帮忙,如何获取动态select列表中的值啊?怎么写其代码啊?

可以说清楚点吗?

<select name="var_BM" id="var_BM">   
<%
dim rsbm
set rsbm = server.CreateObject("adodb.recordset")
sql="select * from HR_BM"
rsbm.open sql,conn,1,1
while not rsbm.eof
%>
<option value="<%=rsbm("BM_ID")%>" <%if cint(rsbm("BM_ID"))=cint(rs("User_BM")) then response.write"selected" end if%>>
<%=rsbm("BM_Class")%></option>   
<%
rsbm.movenext   
wend   
rsbm.close   
set rsbm = nothing   
%>   
</select>  
带了默认值的方法。。。

晕！楼主问问题的时候要详细点，这个不就是动态下拉菜单吗？

可以用javascript
<script language="javascript">
function var_BM_Change(val)
{
    alert('选中的值为'+val);
}
</script>
<select  id="var_BM" onChange="var_BM_Change(this.options[this.selectedIndex].value);" >   
<%
dim rsbm
set rsbm = server.CreateObject("adodb.recordset")
sql="select * from HR_BM"
rsbm.open sql,conn,1,1
while not rsbm.eof
%>
<option value="<%=rsbm("BM_ID")%>" <%if cint(rsbm("BM_ID"))=cint(rs("User_BM")) then response.write"selected" end if%>>
<%=rsbm("BM_Class")%></option>   
<%
rsbm.movenext   
wend   
rsbm.close   
set rsbm = nothing   
%>   
</select>