Question

asp二级连动求助

各位高手，这个问题一直困扰了我很久，也浪费了我不少的分。各位不信可以看以下几个链接：
http://zhidao.baidu.com/question/25700961.html
http://zhidao.baidu.com/question/25147121.html
http://zhidao.baidu.com/question/23450471.html

以上都是悬赏了分数却没有解决。

今天我再次提问，若有谁能帮我解决，我再追加200分，免得又浪费了。绝不食言。

以下是问题：

这段代码是一个二级连动代码，它的显示是正确的。但它是在同一个下拉框中同时出现的是城市和该城市的县份。我现在想把它改为两个下拉框，第一个是城市，第二个是该城市的区县。我想了很多办法，在网上也找了一些代码来修改，也有一些网友相助，但问题一直没有解决，二级连动始终出不来。 烦请各位高手相助。

相关说明：

表area：区域名称，表city：县域名称

<select name="area_city">

<%
set rs=conn.execute("select 区域名称 from area")

do while not rs.eof

areas=areas&","&rs("区域名称")

rs.movenext

loop

rs.close

set rs=nothing

area=split(areas,",")

for i = 1 to Ubound(area)

set rs=conn.execute("select 县域名称 from city where 区域名称='"&area(i)&"'")

response.Write("<option value="&area(i)&">"&area(i)&"</option>")

do while not rs.eof

response.Write("<option value="&area(i)&","&rs("县域名称")&"> ├ "&rs("县域名称")&"</option>")

rs.movenext

loop

rs.close

set rs=nothing

next

%></select>

问题补充：参考：
这是本站另一个二级连动代码，就是我想要的效果，但不知道是怎么写的，想把上面的改成这样，不知道该怎么下手。
<select name="late" class="input" onChange="show_late">
<option>请选择分类</option>
<%
late_name=split(late_class_name,",")
for i = 0 to ubound(late_name)
if late_name(i)<>late_classname then
response.Write("<option value="&late_name(i)&">"&late_name(i)&"</option>")
else
response.Write("<option value="&late_name(i)&" selected>"&late_name(i)&"</option>")
end if
next
%>
</select></td>
<td><div id="show_small"> </td>

以下是本站网址：http://www.cojia.cn
要解决的总是就是在网站top部份。

Answer 1

你要建2个表：城市的代码表、区县的代码表，其中区县的代码表要有所属城市代码的字段。
比如城市代码表city
id citycode mean
1 1 烟台
2 2 青岛

区县代码表：quxian
id code mean citycode
1 1 龙口 1
2 2 莱州 1
3 3 海阳 1
4 4 即墨 2
......

这是我做网站用的代码，能使现你要的功能，请参照修改。
代码如下：
<%
sub AddUser()
dim sql,rs,count
set rs = server.CreateObject("adodb.recordset")
sql = "select * from quxian order by id"
rs. open sql, conn, 1,3
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%=rs("mean")%>","<%=rs("citycode")%>","<%=rs("code")%>");
<%
count = count + 1
rs.movenext
loop
rs.close
set rs = nothing
%>
onecount=<%=count%>;

function changelocation(locationid)
{
document.myform.code.length = 0;

var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.code.options[document.myform.code.length] = new Option(subcat[i][0], subcat[i][2]);
}
}

}
</script>
<form name="myform" action="User.asp" method="post">
<table width=100% border=0 cellpadding=2 cellspacing=1 class="border">
<TR align=center class='title'>
<TD height=22 colSpan=2><font class=en><b>添 加 新 用 户</b></font></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>所属城市：</strong><BR>
</TD>
<TD width="60%"><select name="citycode" onChange="changelocation(document.myform.citycode.options

[document.myform.citycode.selectedIndex].value)" size="1">
<option selected value=""></option>
<%
dim rs1,sql1
set rs1=server.CreateObject("ADODB.RecordSet")
sql1="select * from ddcode"
rs1.Open sql1,conn,1,3
do while not rs1.eof
%>
<option value="<%=rs1("code")%>"><%=rs1("mean")%></option>
<%
rs1.movenext
loop
rs1.close
' set rs1=nothing
%>
</select><font color="#FF0000">*</font>
</TD>
</TR>

<TR class="tdbg" >
<TD width="40%"><strong>所属区县：</strong></TD>
<TD width="60%"><select name="code">
<option selected value=""></option>
</select><font color="#FF0000">*</font>
</TD>
</TR>
<TR align="center" class="tdbg" >
<TD colspan="2"><input name="Action" type="hidden" id="Action" value="SaveAdd">
<input type="submit" name="Submit" value=" 添 加 "></TD>
</TR>
</TABLE>
</form>
<%
end sub
%>