<select name="var_BM" id="var_BM">
<%
dim rsbm
set rsbm = server.CreateObject("adodb.recordset")
sql="select * from HR_BM"
rsbm.open sql,conn,1,1
while not rsbm.eof
%>
<option value="<%=rsbm("BM_ID")%>" <%if cint(rsbm("BM_ID"))=cint(rs("User_BM")) then response.write"selected" end if%>>
<%=rsbm("BM_Class")%></option>
<%
rsbm.movenext
wend
rsbm.close
set rsbm = nothing
%>
</select>
带了默认值的方法。。。