<select name="languages" size="1">
<%
sql="select * from languages"
rs.open sql,conn,1,1
do while not rs.eof
response.write "<option "
if Cstr(rs("语言_id"))=Cstr(语言_id) then
response.write "selected "
end if
response.write "value='"&rs("语言_id")&"'>"&rs("语言")&"</option>"&chr(13)&chr(10)
rs.movenext
loop
rs.close()
set rs=nothing
%>
</select>