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
%>
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
%>
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>
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
<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>