我的下拉列表的二级联动不行,请高手改正,急

[breeze1225]

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
Set conn = Server.Createobject("ADODB.Connection")
conn.open "Driver={SQL Server};server=pc4.;uid=sa;pwd=1706;database=email;"
%>
<body>

<form action="" name="form1" method="post">


<select name="type1" size=1 onChange="chang1(this.value)" >
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from group_info" ,conn,1 ,3%>
<option>请选择</option>
<%While Not rs.EOF %>
<option value="<%=rs("group_id")%>" ><%=rs("group_name") %>
<%
rs.MoveNext%>
</option>
<%WEND
rs.Close
%>
</select>
<select name="type2" size=1 >
<option>请选择</option>
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from user_group where group_info='"&session("type1")&"'" ,conn,1 ,3 %>
<%While Not rs1.EOF %>
<option value="<%=rs1("send_tel")%>" ><%=rs1("send_tel") %>
<%
rs1.MoveNext%>
</option>
<%WEND
rs1.Close
%>

</select>

</form>
<script language="javascript">
function chang1(a)
{ var type1=a;

session("type1")=a;

}
</script>
</body>
</html>

[underone]

<script language="JavaScript">
<!--
var subcat = new Array();
<%
strSql="SELECT * FROM Vocation WHERE IfDelete='0' AND fatherid<>'0'";
objRs.Open(strSql,objConn,adOpenStatic,adLockReadOnly,1);
if(!objRs.Eof){
i=0;
while (i < objRs.RecordCount) {
Response.Write("subcat["+i+"] = new Array('"+objRs("fatherid")+"','"+objRs("VocationName")+"','"+objRs("VocationId")+"')\n");
i++;
objRs.MoveNext();
}
}
objRs.Close();

strSql="SELECT DISTINCT(fatherid) AS VocationId,'' AS Style FROM Vocation WHERE IfDelete='0' AND fatherid<>'0' Union SELECT VocationId,'none' AS Style FROM Vocation WHERE IfDelete='0' AND fatherid='0' AND VocationId NOT IN (SELECT DISTINCT(fatherid) FROM Vocation WHERE IfDelete='0' AND fatherid<>'0')";
objRs.Open(strSql,objConn,adOpenStatic,adLockReadOnly,1);
var style="";
while (!objRs.Eof){
style+="if (locationid == "+objRs("VocationId").value+"){\n";
style+=" document.form1.SubVocation.style.display=\""+objRs("Style").value+"\";\n";
style+="}\n";
objRs.MoveNext();
}
objRs.Close();
%>
function changeselect1(locationid){
<%=style%>
document.form1.SubVocation.length = 0;
document.form1.SubVocation.options[0] = new Option('==请选择==','');
for (i=0; i<subcat.length; i++){
if (subcat[i][0] == locationid){
document.form1.SubVocation.options[document.form1.SubVocation.length] = new Option(subcat[i][1], subcat[i][2]);
}
}
}
//-->
</script>
<%
%>
<table WIDTH="75%" BORDER="0" CELLPADDING="4" CELLSPACING="1" bgcolor="#FF6600" class="tableInput2">
<form name="form1" method="post" action="NPropertySet.asp" onSubmit="return sub();">
<tr bgcolor="#FFFFFF">
<td width="20%">选择行业业态</td>
<td width="80%">
<select name="Vocation" onChange="changeselect1(this.value)">
<option value="">==请选择==</option>
<%
strSql="SELECT * FROM NQR_Vocation WHERE IfDelete='0' AND fatherid='0'";
objRs.Open(strSql,objConn,adOpenStatic,adLockReadOnly,1);
while (!objRs.Eof){
Response.Write ("<option value=\""+objRs("VocationId").Value+"\">"+objRs("VocationName").Value+"</option>");
objRs.MoveNext();
}
objRs.Close();
%>
</select>
<select name="SubVocation" style="display:none">
<option value="">==请选择==</option>
</select>
</td>
</tr>
</form>
</table>

你自己改改SQL语句

[chinabh]

我一直在用的结合数据库的二级联动菜单
http://blog.csdn.net/chinabh/archive/2006/05/16/741337.aspx