用asp和数据库，给用户的选项来改变下拉文本的内容

[hsdly]

用asp和数据库，给用户的选项来改变下拉文本的内容

[pp4u]

dim conn
set conn=server.createobject("adodb.connection")
conn.connectionstring="Driver={SQL Server};server=" & trim(serip) & ";uid=sa;pwd=;database=manager"
conn.open
dim res
set res=server.createobject("adodb.recordset")
res.open "table",conn,1,3
<select name="select4" size="10" height="100" width="100" style='width:100'>
<%

while not res.eof
response.write("<option value='" & res("ID") & "'>" & res("Name") & "</option>")
res.movenext
wend
%>
</select>

[pp4u]

rs.close
set rs=nothing
conn.close
set conn=nothing

[reidli]

……（连接数据库略去）
<%
set rs=server.createobject("adodb.recordset")
sql="select * from table"
rs.open sql,conn,2,3
%>

<select>
<%
do until rs.eof
<option value="<%=rs("字段名一")%>"><%=rs("字段名一")%></option>
rs.movenext
loop
%>
</select>

[Nakata6]

<select name="mydepart" size="1" id="mydepart">
<option value="请选择" selected>请选择</option>
<%
sql1="select * from tdepart"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1
while not rs1.eof and not rs1.bof
%>
<option value="<%=rs1("id")%>"><%=rs1("ftype")%></option>

<%
rs1.movenext
wend
%>
</select>

[hsdly]

我是这么些的怎么，页面上没有任何反应！

[hsdly]

why?

[hsdly]

我的意思是根据用户的选定某一项以后，更新下拉文本的内容！