asp 如何做下拉菜单

[shencb2004]

专业 课程1 课程2 课程3 课程4


要求是 当选择了专业后,课程下拉单中指出现这个专业的科目.

如何实现.

[itzhiren]

二级联动，上网搜去吧

[FlashK]

用 onSubmit 提交获得，或通过 js

[txlty]

这跟ASP没有什么关系,用JS或VBS实现

[snlixing]

二级联动csdn上有好多实例

[zhanghongwen]

<form id="myform" name="myform" method="post" action="Modi_pro.asp">
<tr>
<td height="20" colspan="5" nowrap="nowrap" bgcolor="#CACACA">产品查询：<strong>一级：
<select name="class1" onChange="redirect1(this.options.value);" >
<option>请选择类别</option>
<%Set RS1=fSelect("View_Class","DISTINCT class1_id,class1","1=1")
if rs1.eof then %>
<option>没有设置类别</option>
<% else
do while not rs1.eof %>
<option value="<%=trim(rs1("class1_id"))%>"><%=trim(rs1("class1"))%></option>
<% rs1.movenext
loop
end if
%>
</select>
二级：
<select name="class2" onChange="redirect2(this.options.value);">
<option>请选择类别</option>
</select>
 三级：
<select name="class3" onChange="redirect3(this.options.value);">
<option>请选择类别</option>
</select>
四级：
<select name="class4">
<option>请选择类别</option>
</select>
</strong><br />
产品名称：
<input name="pro_name" type="text" id="pro_name" size="12" />
 产品型号：
<input name="pro_xh" type="text" id="pro_xh" size="12" />
 添加日期：
<input name="addtime" type="text" id="addtime" size="12" />
<input type="submit" name="Submit" value=" Go " /></td>
</tr>
</form>

<script>
<!--
function redirect1(x)
{
var i=1;
var temp=document.myform.class2;
temp.options[i]=new Option("请选择类别");
for (var m=temp.options.length-1;m>0;m--)
temp.options[m]=null;
<%
Set RS2=fSelect("View_Class","DISTINCT class2_id,class2,class2_parentid","1=1")
while not rs2.eof
%>
if(<%response.write(rs2(2))%>==(x))
{
temp.options[i]=new Option("<%=trim(rs2(1))%>","<%=rs2(0)%>");
i=i+1;
}
else
{
temp.options[i]=null;
}
<%
rs2.movenext
wend
%>
}



function redirect2(x)
{
var i=1;
var temp=document.myform.class3;
temp.options[i]=new Option("请选择类别");
for (var m=temp.options.length-1;m>0;m--)
temp.options[m]=null;
<%
Set RS3=fSelect("View_Class","DISTINCT class3_id,class3,class3_parentid","1=1")
while not rs3.eof
%>
if(<%response.write(rs3(2))%>==(x))
{
temp.options[i]=new Option("<%=trim(rs3(1))%>","<%=rs3(0)%>");
i=i+1;}
else
{
temp.options[i]=null;
}
<%
rs3.movenext
wend
%>
}

function redirect3(x)
{
var i=0;
var temp=document.myform.class4;
temp.options[i]=new Option("请选择类别");
for (var m=temp.options.length-1;m>0;m--)
temp.options[m]=null;
<%
Set RS4=fSelect("View_Class","DISTINCT class4_id,class4,class4_parentid","1=1")
while not RS4.eof
%>
if(<%response.write(rs4(2))%>==(x))
{
temp.options[i]=new Option("<%=trim(rs4(1))%>","<%=rs4(0)%>");
i=i+1;}
else
{
temp.options[i]=null;
}
<%
rs4.movenext
wend
%>
}
//-->
</script>

[njdragonfly]

二级联动，给第一个下拉框添加“OnSelectedIndexChanged“事件的处理函数