★老问题——二级下拉菜单连动的

[l80d]

请教各位大大，我在网上找的都是关于三级四级下拉菜单连动的，请问有带数据库二级连动的范例么？
请各位帮我下，真的很急。三级四级连动的又看不怎么懂。

[scoutlin]

<script language="javascript">
<!--
var subval=new Array();
subval[0]=new Array('1','1','=a');
subval[1]=new Array('1','2','=b');
subval[2]=new Array('1','3','=c');
subval[3]=new Array('2','4','=d');
subval[4]=new Array('2','5','=e');
function changeselect2(sub1){
document.form2.s2.length=0;
document.form2.s2.options[0]=new Option('=请选择=','');
for(i=0;i<subval.length;i++)
{
if(subval[i][0]==sub1)
{
document.form2.s2.options[document.form2.s2.length]=new Option(subval[i][1],subval[i][2]);
}
}
}
//-->
</script>
<form name="form2" id="form2">
<select name="s1" id="s1" onChange="javascript:changeselect2(this.options[this.selectedIndex].value);">
<option value="" selected>==请选择==</option>
<option value="1">1</option>
<option value="2">2</option>
</select>
<select name="s2" id="s2" onchange="alert(this.value)">
<option value="" selected>==请选择==</option>
</select>
</form>

[grady.lu]

http://blog.csdn.net/tigerlgf/archive/2004/11/11/176609.aspx

[hushuang7094]

<!--#include file="../include/conn.asp"-->
<!--#include file="../include/style.asp"-->
<!--#include file="../include/checklogin.asp"-->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>联络单-录入界面</title>
</head>

<%
'**************二级下拉菜单*****************

set rs=server.createobject("adodb.recordset")
sql = "select * from yg order by yg_id asc"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>

subcat[<%=count%>] = new Array("<%= trim(rs("yg_name"))%>","<%= trim(rs("yg_dep"))%>","<%= trim(rs("yg_name"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;

function pdr(locationid)
{
document.sel.select_pdr.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.sel.select_pdr.options[document.sel.select_pdr.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}

function jdr(locationid)
{
document.sel.select_jdr.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.sel.select_jdr.options[document.sel.select_jdr.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}

</script>

<body onmousewheel="return false">

<%
dan_bs=trim(request("dan_bs"))
set rs1=server.createobject("adodb.recordset")
sql1="select * from yg_dep where dep_bs='"&dan_bs&"'"
rs1.open sql1,conn,3,2
if not rs1.eof then
dan_bs=rs1("dep_bs")
dan_dep=rs1("dep_name")
session("dan_dep")=dan_dep
end if
rs1.close
set rs1=nothing
%>

<form name="sel" method="post" action="add_linkdan.asp">
<table border="1" cellspacing="0" cellpadding="0" width="600" height="289">
<tr style="height:35.0pt">
<td width="80" height="22">派单部门</td>
<td width="210" height="22">
<!--*********第一级菜单，选择派单部门*********-->
<select size="1" name="select_deppd" style="width:3.5cm" onchange="pdr(document.sel.select_deppd.options[document.sel.select_deppd.selectedIndex].value)">
<option selected value="0" >请选择派单部门</option>
<% set rs=server.createobject("adodb.recordset")
sql="select * from yg_dep"
rs.open sql,conn,1,1

dim seldeppd
seldeppd=rs("dep_name")
do while not rs.eof%>
<option value="<%=rs("dep_name")%>"> <%=rs("dep_name")%> </option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>

<td width="80" height="22">接单部门</td>
<td width="210" height="22">
<!--*********第一级菜单，选择接单部门*********-->
<select size="1" name="select_depjd" style="width:3.5cm" onchange="jdr(document.sel.select_depjd.options[document.sel.select_depjd.selectedIndex].value)">
<option selected value="0" >请选择接单部门</option>
<% set rs=server.createobject("adodb.recordset")
sql="select * from yg_dep"
rs.open sql,conn,1,1

dim seldepjd
seldepjd=rs("dep_name")
do while not rs.eof%>
<option value="<%=rs("dep_name")%>"> <%=rs("dep_name")%> </option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>
</tr>

<tr style="height:22.55pt">
<td width="80" height="22">派单人</td>
<td width="210" height="22">
<!--*************怎样从上级的下拉菜单关联到下级的下拉菜单----派单人**************-->
<select size="1" name="select_pdr" style="width:3.5cm">
<option selected value="0" >请选择派单人</option>
<% set rs=server.createobject("adodb.recordset")
sql="select * from yg where yg_dep='"&seldeppd&"' order by yg_id asc"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
do while not rs.eof%>
<option value="<%=rs("yg_name")%>" ><%=rs("yg_name")%></option>
<%rs.movenext
loop
end if
rs.close
set rs=nothing

%>
</select>
</td>
<td width="80" height="22">派单日期</td>
<td width="210" height="22"><input type="text" size="17" name="pdday"> </td>
</tr>

<tr style="height:130.65pt">
<td width="600" colspan="4" height="1">
<table border="0" width="591" height="108"><tr><td width="583" height="18"><b>派单原因：</b></td></tr><tr><td width="583" height="82"><textarea rows="5" cols="80" name="pdyy"></textarea></td></tr></table>
</td>
</tr>
<!--------------------------------------------------------------------------------------->

<tr style="height:22.55pt">
<td width="80" height="22">接单人</td>
<td width="210" height="22">
<!--*************怎样从上级的下拉菜单关联到下级的下拉菜单----接单人**************-->
<select size="1" name="select_jdr" style="width:3.5cm">
<option selected value="0" >请选择接单人</option>
<% set rs=server.createobject("adodb.recordset")
sql="select * from yg where yg_dep='"&seldepjd&"' order by yg_id asc"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
do while not rs.eof%>
<option value="<%=rs("yg_name")%>" ><%=rs("yg_name")%></option>
<%rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</select>
</td>

<td width="80" height="22">接单日期</td>
<td width="210" height="22"><input type="text" size="17" name="jdday"> </td>
</tr>
</table><br>
<center><input type="submit" name="S2" value="提交"> <input type="reset" name="reset1" value="重置"></center>
</form>
</body>
</html>

[hushuang7094]

表结构yg_dep 表 ：dep_id,dep_name,dep_bs
yg 表 :yg_id,yg_name,yg_dep

[yb2008]

数据库加代码演示:现成的!!!



http://www.hc189.com/menu.rar


------------------
楼主要给分哦!

[siyuzhang]

谢谢 yb2008(努力学ASP.NET!!) ，代码很好用，我今天刚好需要就下了一个。~.~