额 贴出完整代码<select name="BomFirm" id="BomFirm" >
<option value="0">选择厂家名称</option>
<% set BomFirmRS=server.createobject("adodb.recordset")
sql="select distinct FName from Firm "
BomFirmRS.open sql,conn
if BomFirmRS.eof then
response.Write("<option>尚未添加厂家名称!</option>")
BomFirmRS.close
set BomFirmRS=nothing
response.End()
end if
do while not BomFirmRS.EOF
%>
<option value="<%=BomFirmRS("FID")%>" <% if FID=BomFirmRS("FID") then response.Write("selected='selected'") end if %>><%=BomFirmRS("FName")%></option>
<% BomFirmRS.movenext()
loop
BomFirmRS.close
set BomFirmRS=nothing
%>
</select>