呵呵 已经解决了 放这里给大家共享吧:
<select name="department">
<% '从department表中查询出部门名称,将其加到department下拉菜单中
set rs=server.CreateObject("adodb.recordset")
sqlstr="select depart_name from department"
rs.open sqlstr,conn,1,3
%>
<%while not rs.eof%>
<%
temp=rs("depart_name")
if temp<>"" then
%>
<option value="<%=temp%>"><%=temp%></option>
<%end if
rs.movenext
wend
%>
<%
rs.close
set rs=nothing
%>
</select>