二级下拉菜单的问题 - ASP技术论坛

问题点数：0 回复次数：3

二级下拉菜单的问题

我想做一个二级下拉菜单,代码如下,但第二个菜单始终不会变化.请问如何修改,谢谢!
<%
sub Fatherone()
fatherone=document.form1.select.value
sql="Where father1=fatherone"
End sub
%>
<form id="form1" name="form1" method="post" action="">
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0">
<%dim rs
set rs=server.CreateObject("ADODB.Recordset")
rs.Open "Select * From father1",Objconn,1,3 %><tr>
<td width="100" height="25"><div align="right">一级分类:</div></td>
<td height="25"><select name="select"onchange="Fatherone()"><% do while not rs.eof %>
<option value="<%=rs("father1") %>"><%=rs("fname")%></option>
<% rs.MoveNext
loop %>
</select>
</td>
</tr><%dim rs1
set rs1=server.CreateObject("ADODB.Recordset")
rs1.Open "Select * From father2 Where '"&sql&"'",Objconn,1,3 %>
<tr>
<td width="100" height="25"><div align="right">二级分类:</div></td>
<td height="25"><select name="select2" ><% do while not rs1.eof %>
<option value="<%=rs1("father2")%>"><%=rs1("fname")%></option><% rs1.MoveNext
Loop %>
</select>
</td>
</tr>
</table>
</form>

搜索更多相关主题的帖子: 菜单　

第 2 楼

得分:0

以下是引用开心娃娃在2006-5-5 14:34:00的发言：
我想做一个二级下拉菜单,代码如下,但第二个菜单始终不会变化.请问如何修改,谢谢!
<%
sub Fatherone()
fatherone=document.form1.select.value
sql="Where father1=fatherone"
End sub'这是服务器端的
%>
<form id="form1" name="form1" method="post" action="">
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0">
<%dim rs
set rs=server.CreateObject("ADODB.Recordset")
rs.Open "Select * From father1",Objconn,1,3 %><tr>
<td width="100" height="25"><div align="right">一级分类:</div></td>
<td height="25"><select name="select"onchange="Fatherone()//这是客户端的
"><% do while not rs.eof %>
<option value="<%=rs("father1") %>"><%=rs("fname")%></option>
<% rs.MoveNext
loop %>
</select>
</td>
</tr><%dim rs1
set rs1=server.CreateObject("ADODB.Recordset")
rs1.Open "Select * From father2 Where '"&sql&"'",Objconn,1,3 %>
<tr>
<td width="100" height="25"><div align="right">二级分类:</div></td>
<td height="25"><select name="select2" ><% do while not rs1.eof %>
<option value="<%=rs1("father2")%>"><%=rs1("fname")%></option><% rs1.MoveNext
Loop %>
</select>
</td>
</tr>
</table>
</form>

把你的源文件发一下

我很菜，但我很努力！

第 3 楼

得分:0

<body onload="show(big.value)">
<select name="big" onclick="show(this.value)">
<%
Set rs=server.CreateObject("adodb.recordset")
sql="select * from fl where xid=0"
rs.open sql,conn,3,2
Do While Not rs.eof
response.write "<option value='"&rs(0)&"'>"&rs(1)&"</option>" & vbcrlf
rs.movenext
Loop
rs.close
%>
</select>
<select name="xfl">
<option selected>δ֪</option>
</select>
<script>
var b=new Array();

<%
sql="select * from fl where xid<>0"
rs.open sql,conn
i=0
while not rs.eof

%>
b[<%=i%>]="<%=rs(2)%>|<%=rs(1)%>|<%=rs(0)%>";
<%
i=i+1
rs.movenext
wend
rs.close
%>
function show(id)
{
del();
for (i=0;i<b.length ; i++)
{
var c=b[i].split("|");
if (c[0]==id)
{
var opt=new Option(c[1],c[2]);
document.getElementById("xfl").add(opt);
}
}
}
function del()
{
var c=document.getElementById("xfl");
for (i=c.length-1; i>=0;i--)
{
c.remove(i);
}
}
</script>
把相应的部分改成你的就可以了

我很菜，但我很努力！

第 4 楼

得分:0

各位高手能否不用java写,我对这个不是很懂.