Javascript 的联动功能，ASP+javascript示例

<%
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("data.mdb")
set conn = server.CreateObject("Adodb.connection")
conn.Open connstr
%>
<select name="dlid" onchange="changelocation(document.all.dlid.options[document.all.dlid.selectedIndex].value)">
<option value="">请选择大类</option>
<%
strsql = "select * from temp where reid = 0"
set rs = server.CreateObject("adodb.recordset")
rs.Open strsql,conn,1,1
'循环显示大类
do while not rs.EOF
    response.Write "<option value="&rs("id")&">"&rs("classname")&"</option>"
    rs.MoveNext
loop
rs.Close
set rs=nothing
%>
</select>
<select name="classtype" ID="Select1"><option value="">小类</option></select>
<%
'以下部分是截取小类并生成javascript代码
strsql1 = "select * from temp where reid <> 0"
set rs1 = server.CreateObject("adodb.recordset")
rs1.Open strsql1,conn,1,1
%>
<script language="JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
    count = 0
    do while not rs1.eof
%>
subcat[<%=count%>] = new Array("<%= rs1("classname")%>","<%= rs1("reid")%>","<%= rs1("id")%>");
<%
    count = count + 1
    rs1.movenext
    loop
    rs1.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
    document.all.classtype.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
    {
        if (subcat[i][1] == locationid)
        {
            document.all.classtype.options[document.all.classtype.length] = new Option(subcat[i][0], subcat[i][2]);
        }        
    }

}    
</script>