二级下拉菜单的问题
我想做一个二级下拉菜单,代码如下,但第二个菜单始终不会变化.请问如何修改,谢谢!<%
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>
