|
|
<%Sub ShowServer()
Set rs=server.createobject("ADODB.recordset")
sql="select distinct sever from Server "
rs.open sql,conn,1,1
If rs.eof And rs.bof Then
rs.close
Set rs=nothing
End If
text = "<Select name='server1' id='server1' onChange='ShowServer2()'><Option Value='0' selected>请选择服务区域</Option>"
do while not rs.eof
text = text+"<Option Value='"+trim(rs("sever"))+"'>"+trim(rs("sever"))+"</Option>"
rs.movenext
loop
text = text+"</Select>"
rs.close
Set rs=nothing
Response.write text
End Sub%>
<%Sub ShowServer2()
dim chose
chose = Trim(Request.form("Server1")) //本意是想取出Server1下拉菜单中所选中的值,不知道这方法可不可行，请高手指点
Set rs=server.createobject("ADODB.recordset")
sql="select * from Server where sever ='"+chose+"'" //根据取出的值从Server表中取出满足条件的记录
rs.open sql,conn,1,3
If rs.eof And rs.bof Then
rs.close
Set rs=nothing
End If
text = "<Select name='server2' id='server2'><Option Value='0' selected>请选择服务分区域</Option>"
do while not rs.eof
text = text+"<Option Value='"+trim(rs("name"))+"'>"+trim(rs("name"))+"</Option>"
rs.movenext
loop
text = text+"</Select>"
rs.close
Set rs=nothing
Response.write text
End Sub%>
以上是我写的代码，但在调用过程中好像没有根据server1中的onChange事件来调用ShowServer2()这个函数。我一直都没找到原因，我个人认为是红色部分出错，请高手指点。如有更简便的方法最好，方法不一定要按我的思路，只要能达到我要的效果，保证两个下拉菜单是动态生成的，就OK了。
注：其中server1为第一个动态生成下拉菜单，server2为第二个动态生成下拉菜单，目的是使server2的下拉列表值随着server1选中的值 的改变而改变。如server1选中的值为"电信一区"而server2的下拉列表值"长空 傲雪 清风 九天"。
以下是server表的部分数据。
server表：idsevernameip
1电信一区长空61.154.10.35:19778
2电信二区南林61.154.10.32:19778
3电信一区傲雪61.154.10.31:19778
4电信三区玄湖61.154.10.33:19778
5电信二区东岳61.154.10.34:19778
6电信一区清风61.154.10.40:19778
7电信一区九天61.154.10.36:19778
8电信二区无极61.154.10.38:19778
9电信三区神地61.154.10.39:19778
10电信三区灵山61.154.10.37:19778 |
|
IP卡
狗仔卡
发表于 2010-1-17 08:22:48
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡