如何获取动态列表中的值??? - 编程论坛

#2

zhongx2007-12-26 19:18

可以说清楚点吗?

#3

letla2007-12-26 19:53

<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>
带了默认值的方法。。。

#4

gdk20062007-12-27 13:43

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

#5

yms1232007-12-27 14:33

可以用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>