下拉框的只读效果
。。。。。
<%set rsm=server.CreateObject("adodb.recordset")
rsm.open "select * from mUser where (yhlx='教师' or yhlx='盟校') and (mx='"&session("mx")&"' or mx='"&session("name")&"' or name='"&session("mx")&"')",conn,1,3%>
<select name="fzr" <%if rsqx.bof and rsqx.eof and session("yhlx")<>"盟校" and session("yhlx")<>"合作园" then%>onchange="this.selectedIndex = <%=rs("fzr")%>;"<%end if%> id="fzr">
<%
do while not rsm.eof
%>
  <option value="<%=rsm("name")%>" <%if rs("fzr")=rsm("name") then%>selected<%end if%>><%=rsm("name")%></option>
  <%
rsm.movenext
loop
%><%rsm.MoveFirst%>
  </select>

红色代码应该怎么写才能达到只读效果：
当登陆类型不是盟校和合作园时，<select name="fzr" onchange="this.selectedIndex = <%=rs("fzr")%>;"<%end if%> id="fzr">的值怎么选都是<%=rs("fzr")%>以便达到只读效果
onchange="this.selectedIndex = 0"，就可以达到怎么选都是第一个内容，但是option是循环的，不知道怎么判断<%=rs("fzr")%>是第几个内容

------解决方案--------------------
你可以改成

<select name="fzr" onchange="for(i=0;i<this.length;i++){if(this.options[i].value='<%=rs("fzr")%>') this.selectedIndex=i}"<%end if%> id="fzr">