日期:2014-05-16  浏览次数:20868 次

两个下拉框,取同一组数据,第二个框中不显示第一框中已选值
      <select>
   <%
 Set conn=Server.CreateObject("ADODB.Connection")
    DBPath1=server.mappath("../db/db.mdb")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
    set rs=conn.execute("select a from b")
        do while not rs.eof   
   %>
   <option><%=rs("a")%></option>
   <%   
           rs.movenext
        loop
        %>
        </select>
      <select>
   <%
    rs.movefirst
        do while not rs.eof   
   %>
   <option><%=rs("a")%></option>
   <%   
           rs.movenext
        loop
        %>
        </select>

需要用jquery?,大家有没有类似例子?
asp 下拉框

------解决方案--------------------
汗颜!你怎么不直接问主题,而是转个角问问题。首先while(条件){}当条件为真时就一直执行代码。不了解直接去百度学学。至于你要生成sel1,sel2,...sel6多个下拉框,而且是选项一个个递减效果可这样做。
<%
Dim list
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../db/db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set rs=conn.execute("select a from b")
do while not rs.eof   
   list=list&",'"&rs("a")&"'"
   rs.movenext
Loop
Rs.Close:Set Rs=Nothing
%>
<script type="text/javascript">
    var txt=[<%=list%>];//下拉菜单文本
    var num=6;//生成几级下拉菜单(从0算起,但不可超出数组下标)
    var i_all=num>txt.length-1?txt.length-1:num;//判断是否超出数组下标
    var str="";
    for(var i=0;i<=i_all;i++){
        if(i<i_all){
            str+='<select name="sel'+i+'" onchange="option('+i+')" id="sel'+i+'">';
        }else{
            str+='<select name="sel'+i+'" id="sel'+i+'">';
        }
        if(i==0){