怎样让表单中的菜单相关联？
<select name="select">
<option>a</option>
<option>b</option>
</select>
<select name="select2">
<option>a1 </option>
<option>a2 </option>
<option>b1 </option>
<option>b2 </option>
</select>
当select=a时，select2自动显示为a1,a2.
当select=b时，select2自动显示为b1,b2.
问题点数：100、回复次数：2Top
1 楼ybfqlyq（Rossy|http://blog.ybfq.com）回复于 2006-02-04 14:12:56 得分 50
參考一下。。。一般都涉及到數據庫數據的。
<%
sql = "select * from bigclass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "請先添加欄目。"
response.end
else
%>
<select name="bigclass" onChange="changelocation(document.cform.bigclass.options[document.cform.bigclass.selectedIndex].value)">
<option selected value="<%=trim(rs("bigclass"))%>"><%=trim(rs("bigname"))%> </option>
<% dim selclass
selclass=rs("bigclass")
rs.movenext
do while not rs.eof
%>
<option value="<%=trim(rs("bigclass"))%>"><%=trim(rs("bigname"))%> </option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
<select name="smallclass">
<%sql="select * from smallclass where bigclass="&selclass
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
<option selected value="<%=rs("smallclass")%>"><%=rs("smallname")%> </option>
<% rs.movenext
do while not rs.eof%>
<option value="<%=rs("smallclass")%>"><%=rs("smallname")%> </option>
<% rs.movenext
loop
end if
rs.close
set rs = nothing
%>
</select>Top
2 楼king_shadow（天才混混）回复于 2006-02-04 15:12:34 得分 50
<select name="select" onChange="changelocation(select.options[select.selectedIndex].value)" size="1">
<option value="a">a</option>
<option value="b">b</option>
</select>
<select name="select2">
<option>a1 </option>
<option>a2 </option>
</select>
<script language="JavaScript">
var onecount;
subcat = new Array();
subcat[0] =new Array("a1","a","a1");
subcat[1] =new Array("a2","a","a2");
subcat[2] =new Array("b1","b","b1");
subcat[3] =new Array("b2","b","b2");
function changelocation(locationid)
{
select2.length = 0;
select2.options[select2.length] = new Option("请选择", "");
var locationid=locationid;
var i;
for (i=0;i < subcat.length; i++)
{
if (subcat[i][1] == locationid)
{
select2.options[select2.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
--------------------------------------------
asp技术群4259772Top
