<select name="select1" size="1" id="select1">
<%
Do while not rs.eof
Response.Write ("<option value='" & rs("field") & "'>" & rs("field") & "</option>")
rs.MoveNext
Loop
%>
</select>

谢谢你allinhands。现在又遇到一点新问题：
我是在载入页面的时候就把数据库中学号的信息读入到下拉列表中的，
然后再通过选择列表中的某个学号，post到本页，继续查询此学号的详细信息
代码是这样写的：
<select name="sno" size="1" id="select1">
<%
dim sql,sql1
sql="select sno from student"
sql1="select * from student where sno='"&request.Form("sno" )&"'"
set rs=conn.execute(sql)
Do while not rs.eof
Response.Write ("<option value='" & rs("sno" ) & "'>" & rs("sno" ) & "</option>" )
rs.MoveNext
Loop
rs.close
set rs=nothing
if request.Form("action" )="提交" then
set rs=conn.execute(sql1)
end if
%>
</select>
....
<p>姓名<input name="sname" type="text" value="<% =rs("sname" ) %>"></p>
....
结果就出错了：
ADODB.Field 错误 '80020009' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

我看了置顶帖子的提示，但还是修改不好，求助

cnbruce在上个帖子中说

引用:

---

如果要联动呢？

---

设2个HIDEN控件，在服务端把记录读到变量里去，然后把变量给HIDEN控件里，在客户用脚本取出值后再给SELECT联动