无级分类的多级联动

这是个郁闷的问题。
主级获得ID列表 select ID from FS_SD_Address  where PID=0
次级select ID from FS_SD_Address where PID in(主级ID列表)
* select ID from FS_SD_Address where PID in(次级ID列表)
四级select ID from FS_SD_Address where PID in( * ID列表)
...........................
然后就是改造 * 联动为你想的级数，晕晕。

<％ Option Explicit ％>
<!--＃i nclude file="../../FS_Inc/Const.asp" -->
<!--＃i nclude file="../../FS_InterFace/MF_Function.asp" -->
<!--＃i nclude file="../../FS_Inc/Function.asp" -->
<!--＃i nclude file="../lib/strlib.asp" -->
< script language="JavaScript" > 
<!-- 
<％ 
'二级数据保存到数组 
Dim count2,rsClass2,sqlClass2 
set rsClass2=server.createobject("adodb.recordset") 
sqlClass2="select * from FS_SD_Address" 
rsClass2.open sqlClass2,conn,1,1 
％> 
var subval2 = new Array(); 
//数组结构：一级根值,二级根值,二级显示值 
<％ 
count2 = 0 
do while not rsClass2.eof 
％> 
subval2[<％=count2％>] = new Array('<％=rsClass2("aID")％>','<％=rsClass2("ID")％>','<％=rsClass2("Name")％>') 
<％ 
count2 = count2 + 1 
rsClass2.movenext 
loop 
rsClass2.close 
％> 
<％ 
' * 数据保存到数组 
Dim count3,rsClass3,sqlClass3 
set rsClass3=server.createobject("adodb.recordset") 
sqlClass3="select * from aaa" 
rsClass3.open sqlClass3,conn,1,1 
％> 
var subval3 = new Array(); 
//数组结构：二级根值, * 根值, * 显示值 
<％ 
count3 = 0 
do while not rsClass3.eof 
％> 
subval3[<％=count3％>] = new Array('<％=rsClass3("aaID")％>','<％=rsClass3("ID")％>','<％=rsClass3("Name")％>') 
<％ 
count3 = count3 + 1 
rsClass3.movenext 
loop 
rsClass3.close 
％> 
function changeselect1(locationid) 
{ 
      document.form1.s2.length = 0; 
      document.form1.s2.options[0] = new Option('==请选择类别==',''); 
      document.form1.s3.length = 0; 
      document.form1.s3.options[0] = new Option('==请选择专题==',''); 
      for (i=0; i<subval2.length; i++) 
      { 
          if (subval2[i][0] == locationid) 
          {document.form1.s2.options[document.form1.s2.length] = new Option(subval2[i][2],subval2[i][1]);} 
      } 
} 
function changeselect2(locationid) 
{ 
      document.form1.s3.length = 0; 
      document.form1.s3.options[0] = new Option('==请选择专题==',''); 
      for (i=0; i<subval3.length; i++) 
      { 
          if (subval3[i][0] == locationid) 
          {document.form1.s3.options[document.form1.s3.length] = new Option(subval3[i][2],subval3[i][1]);} 
      } 
} 
//--> 
< /script > 
<form name="form1" method="post" action="test1.asp"> 

* 联动：

<％ 
Dim count1,rsClass1,sqlClass1 
set rsClass1=server.createobject("adodb.recordset") 
sqlClass1="select * from FS_SD_Address" 
rsClass1.open sqlClass1,conn,1,1 
％> 
<select name="s1" onChange="changeselect1(this.value)"> 
<option>==请选择频道==</option> 
<％ 
count1 = 0 
do while not rsClass1.eof 
response.write"<option value="&rsClass1("ID")&">"&rsClass1("Name")&"</option>" 
count1 = count1 + 1 
rsClass1.movenext 
loop 
rsClass1.close 
％> 
</select> 
<select name="s2"    onChange="changeselect2(this.value)"> 
<option>==请选择类别==</option> 
</select> 
<select name="s3"> 
<option>==请选择专题==</option> 
</select> 
<input type="submit" name="Submit" value="提交"></form> 
<!--  * 联动菜单 结束 -->