Question

ASP动态列表菜单的问题

动态列表菜单下拉选项只有一项值，代码如下：
<form name="form1" method="post" action="">
<form name="form1" method="post" action="">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from class1"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
<select name="class1" onChange="changelocation(document.myform.class1.options[document.myform.class1.selectedIndex].value)" size="1">
<option value= selected selected>--地区--</option>
<%do while not rs.eof%>
<option value="<%=(rs("id"))%>"><%=(left(rs("class1"),5))%></option>
<%
rs.Close()
Set rs = Nothing
loop
end if
%>

Answer 1

循环没有结束数据库就关闭了
loop
end if
rs.Close()
Set rs = Nothing