<%
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql="select * from Nclass order by Nclassid asc"
rs.open sql,conn,1,1 //打开数据库中的分类表
%>

<script language="javascript">
var onecount;
onecount=0;
subcat=new Array(); //用JS脚本建立一个数组

<%
count=0
do while not rs.eof //通过ASP循环来生成这个数组
%>
subcat[<%=count%>]=new Array("<%=trim(rs("Nclass"))%>","<%=trim(rs("classsid"))%>","<%=trim(rs("Nclassid"))%>");
<%
count=count+1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;

function changelocation(locationid)
{
document.myform.Nclassid.length=0; //副select的选项个数为0
var locationid=locationid;
var i;
for(i=0;i<onecount;i++) //把数组顺次循环出来
{
if ( subcat[i][1]==locationid ) //如果上面数组中有一个是现在的locationid，也就是主Select改变时，document.myform.classid.options[document.myform.classid.selectedIndex].value这个值，就是执行下面的
{
document.myform.Nclassid.options[document.myform.Nclassid.length]=new option(subcat[i][0],subcat[i][2];
//生成副Select的option选项，document.myform.Nclassid.length，有多少个符合的数组，长度就有多少，把数组值传给options，当到哪个相同数组时，就生成第几个option，并把数组值传给option
}
}
}
</script>

主Select：

引用

<select name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1">

副Select为空

基本原理：
通过主Select的改变，从数组中找出相对应的副Select值，用Javascript显示出来。