两个下拉框，取同一组数据，第二个框中不显示第一框中已选值

      <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?,大家有没有类似例子？
------解决方案--------------------
汗颜！你怎么不直接问主题，而是转个角问问题。首先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){