新手请教一个下拉获取值的问题 - 编程论坛

#2

dzt00012010-11-29 10:49

有没有用循环语句?

程序代码：

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

#3

chfshe2010-11-29 10:59

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

#4

chfshe2010-11-29 11:00

回复 2楼 dzt0001

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

#5

bluegone2010-11-29 12:17

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>

#6

dzt00012010-11-29 14:25

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