高难度，挑战性问题———关于从数据库中读字段值、把读出的值作为下拉菜单选项的问题（100）

[lfpalice]

我现在有一个数据库，有县名、乡镇名、村名等字段，
我现在想做一个三级下拉菜单，如 县名 -- 乡镇名 -- 村名，三级，这些下拉菜单的选项都是动态的从数据库中读出来的，在下拉菜单中，比如选择 怀柔县，那么在乡镇名中动态的显示出怀柔县的所有乡镇名，在从乡镇名中选出某一个乡：如，“不老屯”，那么在村名中动态的显示出“不老屯”的所有村名，这个怎么实现啊，
如有疑问，请予qq联系 59694350

[lfpalice]

在补充，其中：当客户端向服务发送请求后，要等一段时间才能服务器端返回给客户端内容，这个时间等待函数怎么写，多谢

[ttkkyy]

给你一个两级的,自己改吧
<SCRIPT language=JavaScript>
<!-- Begin
var hy_arry = new Array();
var hy_arrgrp = new Array();

<%
dim i
i=0
bigsql="select * from jiamei_big_product order by id"
set bigrs=conn.execute(bigsql)
do while not bigrs.eof
smallsql="select * from jiamei_small_product where big_product='"&bigrs("big_product")&"'"
set smallrs=conn.execute(smallsql)
do while not smallrs.eof
%>
hy_arry[<%= i %>] ="<%= trim(smallrs("small_product")) %>";
hy_arrgrp[<%= i %>] ="<%= bigrs("big_product") %>";
<%
smallrs.movenext
i=i+1
loop
bigrs.movenext
i=i+1
loop
%>

function selectChange(control, controlToPopulate, ItemArray, GroupArray)
{
var myElee ;
var x ;
// Empty the second drop down box of any choices
for (var q=controlToPopulate.options.length;q>=0;q--) controlToPopulate.options[q]=null;

// ADD Default Choice - in case there are no values
myElee = document.createElement("option") ;
myElee.value = "" ;
myElee.text = "请选择产品小类" ;
controlToPopulate.add(myElee) ;
for ( x = 0 ; x < ItemArray.length ; x++ )
{
if ( GroupArray[x] == control.value )
{
myElee = document.createElement("option") ;
myElee.value = ItemArray[x] ;
myElee.text = ItemArray[x] ;
controlToPopulate.add(myElee) ;
}
}
}
// End -->
</SCRIPT>

<td height="25">大类:
<SELECT name=big_product class="button" onchange= "selectChange(this, frm_search.small_product, hy_arry, hy_arrgrp);" onkeydown="if(event.keyCode==13)event.keyCode=9">
<OPTION value=0 selected>选择产品大类</OPTION>
<% do while not classrs.eof %>
<OPTION value="<%= classrs("big_product") %>"><%= classrs("big_product") %></OPTION>
<% classrs.movenext
loop
%>
</SELECT></td>
</tr>
<tr>
<td height="25">小类:
<select name=small_product onkeydown="if(event.keyCode==13)event.keyCode=9">
<option value="" selected>请选择产品小类</option>
</select><%
classrs.close

%></td>

[everywhen]

在论坛ASP版里面搜索一下，会找到你要的答案的。关键字“联动”

[PPLUNCLE]

http://www.tn99.com/myblog/blogview.asp?logID=49&cateID=2

[wq123]

软件名称：百无趣（电影吧）全站程序3.0版！
介绍：提供全套影视链接维护，设置。电影发布修改等功能，全部动态，纯ASP代码编写。
软件网站：http://www.buy57.com
http://www.buy57.com/down/buy57.com.rar
软件类型：国产软件 / 简体中文 / 共享软件
应用平台：Win95/98/NT/2000/XP