<select name="mydepart" size="1" id="mydepart">
<option value="请选择" selected>请选择</option>
<%
sql1="select * from tdepart"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1
while not rs1.eof and not rs1.bof
%>
<option value="<%=rs1("id")%>"><%=rs1("ftype")%></option>
dim conn
set conn=server.createobject("adodb.connection")
conn.connectionstring="Driver={SQL Server};server=" & trim(serip) & ";uid=sa;pwd=;database=manager"
conn.open
dim res
set res=server.createobject("adodb.recordset")
res.open "table",conn,1,3
<select name="select4" size="10" height="100" width="100" style='width:100'>
<%
while not res.eof
response.write("<option value='" & res("ID") & "'>" & res("Name") & "</option>")
res.movenext
wend
%>
</select>