ASP SOS

[programer123]

怎样用ASP实现动态添加下拉列表的内容，不使用html语言。

[xjd5555]

数据库版：就是所有的数据都是从数据库中读出。当对数据库记录进行增删时菜单下的选项也随着变化。如：前面的A下拉文本框选"广东省"，而后面的B下拉文本框就只出现"广东省所有的县"，当B选择一个县后，C下拉文本框中只出现这个"县下的所有镇",这些数据都要从数据库中读出!
www.chinalands.com里的政策法规（www.chinalands.com/zcfg.asp)就是用三级菜单做的

[programer123]

cmsoft多谢，改日我定将分如数奉还。
[e-mail]

[cmsoft]

循环取得数据实现之

[cmsoft]

SQLStr="Select * from Pro_Name"
Rs.open SQLStr,conn,1,1
response.write"<select name='type_name'>"
do while not Rs.eof
response.write"<option value="&Rs("id")&">'" & Rs("pro_type_name") &"'</option>"
Rs.movenext
loop
response.write"</select>"

[VFP]

good.

[蓝诺]

来晚了。

[programer123]

多谢上面的几位朋友，不过我的页面是两个关联的下拉列表框，请问怎样实现点击一个列表框，改变另一个列表框的选项，数据都是从数据库取得！！

问题答对了，100分相送！！

[cmsoft]

<form name=form1 method=post action=order_app.asp?lang=<%=lang%>>
<tr align=left style="HEIGHT: 35px" bgcolor="#3153EC">
<td colspan=2>
<input type=hidden name=hid_level1 value=''>
<% '读取第一级订单信息
sql="select o_l1_id,"&lang_add&"o_l1_name from o_level1 order by o_l1_id"
rs.open sql,conn
if rs.eof then flag_nothing=1
if flag_nothing=0 then
if sel_level1="" then sel_level1=1 '显示第一级信息
%>
 
<select name=sel_level1 onChange="form1.hid_level1.value='change';form1.submit()">
<%
do until rs.eof
level1_id=rs(0)
level1_name=rs(1)
%>
<option value='<%=level1_id%>'<%if cstr(sel_level1)=cstr(level1_id) then response.write" selected"%>><%=level1_name%></option>
<%
rs.movenext
loop
%>
</select>
<%
end if
rs.close
if flag_nothing=0 then '读取第二级信息
sql="select o_l2_id,"&lang_add&"o_l2_name,o_l2_forms from o_level2 where o_l1_id="&sel_level1
rs.open sql,conn
if rs.eof then flag_nothing=1
if flag_nothing=0 then '显示第二级信息
%>
<select name=sel_level2 onChange="form1.submit()">
<%
if sel_level2="" then sel_level2=rs(0)
do until rs.eof
level2_id=rs(0)
level2_name=rs(1)
o_l2_forms=rs(2)
if cstr(sel_level2)=cstr(level2_id) then myform=lang_add&o_l2_forms
%>
<option value='<%=level2_id%>'<%if cstr(sel_level2)=cstr(level2_id) then response.write" selected"%>><%=level2_name%></option>
<%
rs.movenext
loop
%>
</select>
<%
end if
rs.close
end if
%>
</td>
</tr>
</form>