window对象execScript实现的级联下拉列表的核心代码

<%
Dim Con1,Rs
Dim SQL,DSN
Dim Array1()
Set Con1=server.CreateObject("adodb.connection")
Set Rs=server.CreateObject("adodb.recordset")
DSN="driver={Microsoft Access Driver (*.mdb)};dbq=" &server.MapPath("User.mdb")
Con1.Open DSN
SQL="select * from Company order by CompanyID"
Rs.Open SQL,Con1,3,2
Rs.MoveFirst
ReDim Array1(Rs.RecordCount-1)
%>
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="82">
<select id="select1" name="select1">
<option selected value="select<%=Rs("CompanyCode")%>"><%=Rs("CompanyName")%></option>
<%
'Array1数组存放CompanyCode字段值
Array1(0)=Rs("CompanyCode")
Rs.MoveNext
Dim i
For i=1 To Rs.RecordCount-1
%>
<option value="select<%=Rs("CompanyCode")%>"><%=Rs("CompanyName")%></option>
<%
Array1(i)=Rs("CompanyCode")
Rs.MoveNext
Next
%>
</select>
<%
Rs.Close
%>
</td>
<td width="191">
<%
'将Department中对应数组Array1中的每个元素取出来
For i=0 To UBound(Array1)
SQL="select * from Department where DepartmentCode like '"&Array1(i)&"%'"
Rs.Open SQL,Con1,3,2
If Rs.RecordCount > 0 Then
Rs.MoveFirst
%>
<select id="select<%=Array1(i)%>" style="display='none'" name="select<%=Array1(i)%>">
<%Do While Not Rs.Eof%>
<option value="<%=Rs("DepartmentName")%>"><%=Rs("DepartmentName")%></option>
<%
Rs.MoveNext
Loop
%>
</select>
<%
End If
Rs.Close
Next
%>
</td>
</tr>
</table>
<script language="vbscript">
<!--
Dim obj,lastObj
lastObj="select01"
obj="select01"
Window.execScript "select01.style.display='block'","vbs"
Sub select1_onchange
obj=select1.value
If obj <> lastObj And IsObject(eval(obj)) Then
Window.execScript obj & ".style.display='block'","vbs"
Window.execScript lastObj &".style.display='none'","vbs"
Window.execScript "Department="&obj&".value","vbs"
lastObj=select1.value
End If
End Sub
-->
</script>