呵呵 已经解决了 放这里给大家共享吧:
<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>