<%set rs=server.createobject("adodb.recordset")
sql="select * from 表名"
rs.open sql,conn,3,2
response.write"<select name='
aaaa'>" '这个名称可以随便起(别与已有的重名)
do while not rs.eof
response.write "<option value='"&rs("网站地址")&"'>"&rs("网站名称")&"</option>"
rs.movenext
loop
response.write"</select>"
rs.close
set rs=nothng
%>