<%
'########################显示二级分类###################################################
Sub ShowSon()
Response.Write "<option selected value='0'>请选择二级分类</option>"
%>
<script language = "JavaScript">
sall=new Array();
//初始化数组的第一个
sall[0]=new Array("请选择二级分类","0","0");
<%
Dim i
i=1
set rs=conn.execute("select * from Son")
do while not rs.eof
%>
sall[<%=i%>]=new Array("<%=rs("SonName")%>","<%=rs("ParentID")%>","<%=rs("SonID")%>");
<%
i=i+1
rs.movenext
loop
rs.close
%>
function changeselect(selvalue)
{
document.form1.SonID.length=0;
var selvalue=selvalue;
var i;
for(i=0;i<=sall.length;i++)
{
if(sall[i][1]==selvalue)
{
var newOption1=new Option(sall[i][0],sall[i][2]);
document.all.SonID.add(newOption1);
}
}
}
</script>
<%
End Sub
'########################显示二级分类###################################################
%>
<%
'########################显示一级分类###################################################
Sub ShowParent()
Response.Write "<option selected value='0'>请选择一级分类</option>"
set rs1=conn.execute("select * from Parent")
do while not rs1.eof
response.write "<option value='"&rs1("ParentID")&"'>"&rs1("ParentName")&"</option>"&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
End Sub
'########################显示一级分类###################################################
%>
只是二级分类,如果楼,是要无限级的,那就下个动网论坛研究一下,里面 有