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 >