select下拉框的绑定

<%
  set filedb=new DB
  filedb.openDB()
  set rs=filedb.execRS("select * from filetype where category_type=1 order by category_id",1,2)
%>
//

<select name="list1" onChange="list1_change()">
                <option selected>==请选择==</option>
                <%
      while not rs.eof
    %>
                <option value="<%=rs("category_id")%>"><%=rs("category_text")%></option>
                <%
      rs.movenext
   wend
    %>
            </select>
/
function list1_change(){
   var xmlhttp;
   xmlhttp=getXmlHttp();
   //状态监听
 xmlhttp.onreadystatechange=function(){
    if(xmlhttp.readyState==4){
         if(xmlhttp.status==200){
    data=xmlhttp.responseText;
    if(data!=""){
     myarray=data.split("&");
     document.all.f1.list2.style.display="block";
     document.all.f1.list2.length=0;
    for(var i=0;i<myarray.length-1;i++)
     document.all.f1.list2.options[i]=eval("new Option"+myarray[i]);
     document.all.f1.list2.selectedIndex=0;
     list2_change();
    }else{
       document.all.f1.list2.style.display="none";
    }
   }  
  }
 }  
//异步发送HTTP请求处理
  xmlhttp.open("post","CategoryHandle.asp",true);
     xmlhttp.setRequestHeader('content-type','application/x-www-form-urlencoded');
  xmlhttp.send("value="+escape(document.all.f1.list1.value)); //*/
  if(document.all.f1.list1.value=="")
  document.all.f1.list2.style.display="none";
  document.all.f1.list3.style.display="none";
 }