<%
打开数据库连接字段
set rs=server.createobject("adodb.recordset")
sql="select * from table"
rs.open sql,conn,1,1
if rs.eof then
response.write "目前还没有数据"
else
do while not rs.eof
%>
<option value="<%=rs("字段")%>"><%=rs("字段")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
关闭数据库连接
%>
</select>