<select name="Item_unit" id="Item_unit">
<%
call opendatabase()
set Rs1=server.CreateObject("adodb.recordset")
sql="select DEPT_NAME from department"
Rs1.Open sql,conn,1,3
if not rs1.eof then
do while not rs1.eof
%>
<option <%if rs1("dept_name")="'"&rs("Item_unit")&"'" then Response.Write "selected" %>value="<%=rs1("dept_name")%>"><%=rs1("dept_name")%></option>
<%
rs1.MoveNext
loop
end if
%>
</select>
为什么不执行

有什么报错信息？
if not rs1.eof then
。。
end if
去掉试试

还是不行

有什么报错信息？

<option <%if rs1("dept_name")="'"&rs("Item_unit")&"'" then Response.Write "selected" %>value="<%=rs1("dept_name")%>"><%=rs1("dept_name")%></option>

value 前面+个空格试试..

你自己跟踪调试下吧。。。。。