下拉菜单获取数据库其中一个表的数据，另外一个表保存的值与这个表关联了，现在要读取该值并在下拉菜单中显示出来
我写了一段这样的代码
Response.Write " <option value='"&grs(0)&"' if grs(0)=rs(1) then selected end if> "&grs(1)&" </option> "

但是显示出来的数据不是数据库里保存的值，而是最后的那个值

请问哪位能指导一下吗

有没有用循环语句?

<%
Rs.Open sql,Conn,1,3
Do While Not Rs.EOF
%>
<option></option>
<%
Rs.MoveNext
loop
Rs.Close
%>

循环已经出来了的。我现在只是要显示当前值！

现在不是循环的问题，是显示默认值的问题

set rs=conn.execute("Select BClassID,BClassName From [BClass]")
         response.write "<select name='bclassid' onChange='changelocation(document.frmAnnounce.bclassid.options[document.frmAnnounce.bclassid.selectedIndex].value)' size='1' class='login_input'>"
         
         BClassID=rs(0)
         Do while Not rs.eof
           dim selected
           if Rs(0)=ArticleRs(11) then
              selected="Selected"
           else
              selected=""
           end if
           response.write "<option value='"&rs(0)&"'  "&selected&">"&rs(1)&"</option>"
         rs.MoveNext()
         loop
      rs.Close()
      set rs=Nothing
      response.write "</select>

我了解了，那肯定是没有grs(0)=rs(1)，你把grs(0)和rs(1)分别读出来看看都是什么数据。