新微赢技术网

标题: 如何获取动态列表中的值??? [打印本页]

作者: Secret 时间: 2010-1-9 04:08
标题: 如何获取动态列表中的值???
请各位帮帮忙,如何获取动态select列表中的值啊?怎么写其代码啊?

作者: 绝对标致 时间: 2010-1-9 04:08
可以说清楚点吗?

作者: 逍遥 时间: 2010-1-9 04:08
可以用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>

作者: 梦的放肆 时间: 2010-1-9 04:08
<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>
带了默认值的方法。。。

作者: 瘋子愛老婆 时间: 2010-1-9 04:08
晕！楼主问问题的时候要详细点，这个不就是动态下拉菜单吗？

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)