Asp achieves level-2 linkage menu

<Script language = "JavaScript" type = "text/JavaScript">
<! --
Function MM_openBrWindow (theURL, winName, features) {// v2.0
Window. open (theURL, winName, features );
}
// -->
</Script>
<Script language = "JavaScript" type = "text/JavaScript">
Sall = new Array ();
<%
Dim I
I = 0
Set rs = server. CreateObject ("adodb. recordset ")
SQL = "select * from caiwu_cd where ssdl <> 0"
Rs. open SQL, conn, 1, 1
If not rs. eof then
Do until rs. eof
%>
Sall [<% = I %>] = new Array ("<% = rs (" ssdl ") %>", "<% = rs (" id ") %> "," <% = rs ("newsfl") %> ");
<%
I = I + 1
Rs. movenext
Loop
End if
Rs. close
Set rs = nothing
%>
Function changeselect (selvalue)
   {
Document. all. xl. length = 0;
Var selvalue = selvalue;
Var I;
For (I = 0; I <sall. length; I ++)
    {
If (sall [I] [0] = selvalue)
              {
Var newOption1 = new Option (sall [I] [2], sall [I] [0]);
Document. all. xl. add (newOption1 );
        }
    }
}
</Script>
Level 1 classification
<Select name = "dl" ID = "dl" onChange = "changeselect (document. all. dl. options [document. all. dl. selectedIndex]. value)">
<Option> select </option>
<%
Set rs = server. CreateObject ("adodb. recordset ")
SQL = "select * from caiwu_cd where ssdl = 0"
Rs. open SQL, conn, 1, 1
Do while not rs. eof
%>
<Option value = "<% = rs (" id ") %>"> <% = rs ("newsfl") %> </option>
<%
Rs. movenext
Loop
Rs. close
Set rs = nothing
%>
</Select>
Level 2 classification
<Select name = "xl" class = "a4" ID = "xl">
<Option> select </option>
</Select>