三级联动菜单

<!--#include file="conn.asp"-->
<%
    dim bid,cid
    bid = request("bid")  'bid   大类id
    cid = request("cid")   'cid  中类id

 'if bid="" then
    'bid="1"
    'end if
 'if cid="" then
    'cid="1"
    'end if
 
     set rs=server.createobject("adodb.recordset")  
     sql = "select * from btype"    '表一  大类表
     rs.open sql,conn,1,3
     strOption1 = "<option value='' selected style='BACKGROUND-COLOR: #eeeeee; COLOR: #ff0000'>==请选择==</option>"
           do while not rs.eof
           if cstr(rs("id")) = cstr(bid) then
                 strOption1 = strOption1 & "<option value='" & rs("id") & "' selected>" & rs("type") & "</option>"
           else
    
          strOption1 = strOption1 & "<option value='" & rs("id") & "'>" & rs("type") & "</option>"
           
     end if
     rs.movenext      
            loop   
 
     rs.close
    
     if bid <> "" then
           sql = "select * from mtype where bid=" & bid   '表二  中类表   bid==表一中的id
        
     rs.open sql,conn,1,3
           strOption2 = "<option value='' selected style='BACKGROUND-COLOR: #eeeeee; COLOR: #ff0000'>==请选择==</option>"
   
           do while not rs.eof
                 if cstr(rs("id")) = cstr(cid) then
                       strOption2 = strOption2 & "<option value='" & rs("id") & "' selected>" & rs("type") & "</option>"
                 else
                       strOption2 = strOption2 & "<option value='" & rs("id") & "'>" & rs("type") & "</option>"
                 end if
        rs.movenext
           loop
           rs.close
     end if
    
     if cid <> "" then
           sql = "select * from stype where mid= " & cid  '表三   小类表  mid==表二的id
           rs.open sql,conn,1,3
           strOption3 = "<option value='' selected style='BACKGROUND-COLOR: #eeeeee; COLOR: #ff0000'>==请选择==</option>"
           while not rs.eof
           if cstr(rs("id")) = cstr(cid) then
                       strOption3 = strOption3 & "<option value='" & rs("id") & "' selected>" & rs("type") & "</option>"
                 else
                       strOption3 = strOption3 & "<option value='" & rs("id") & "'>" & rs("type") & "</option>"
                 end if
                 'strOption3 = strOption3 & "<option value='" & rs("id") & "'>" & rs("type") & "</option>"
         
           rs.movenext
           wend
     rs.close
     end if
    
%>
<select οnchange="changeb(this.value)" name="bid"><%=strOption1%></select>
<select οnchange="change(this.value)" name="cid"><%=strOption2%></select>
<select name="typeid"><%=strOption3%></select>
<script language="javascript">
<!--
     function changeb(bid){
           location.assign("three.asp?bid=" + bid);  
     }
    
     function change(cid){
           location.assign("three.asp?bid=<%=bid%>&cid=" + cid);   
     }
-->
</script>