ASP + 数据库 + JavaScript 实现动态无限级联动菜单

演示地址http://www.why9.com/sort/

CREATE TABLE [pp_Sort] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[name] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
[upperid] [int] NULL CONSTRAINT [DF_pp_Sort_upperid] DEFAULT (0),
[depth] [int] NULL CONSTRAINT [DF_pp_Sort_depth] DEFAULT (0),
) ON [PRIMARY]
GO

<!--#include file="inc/conn.asp"-->
<%Set conn = con()%>
<%
dim b
b=1
Response.Write("<script>"&vbcrlf&"var mary=new Array();"&vbcrlf&"var loopary=new Array();"&vbcrlf)

dim sqlc,tempstr
tempstr=""
sqlc="select upperid,count(upperid) as nums from pp_sort group by upperid"
set rscount=conn.execute(sqlc)
do while not rscount.eof
tempstr=tempstr&rscount("upperid")&","
Response.Write(vbcrlf&"loopary["&rscount("upperid")&"]="&rscount("nums")&";")
Response.Write(vbcrlf&"mary["&rscount("upperid")&"]=new Array();")
rscount.movenext
loop
Response.Write("var uppers="""&left(tempstr,len(tempstr)-1)&""";"&vbcrlf)
rscount.close
dim RsSort
set RsSort=server.createobject("adodb.recordset")
sql="select * from pp_sort order by id asc"
RsSort.open sql,conn,3,1
do while Not RsSort.Eof
Response.Write("mary["&rssort("upperid")&"]["&b&"]="""&rssort("name")&""";"&vbcrlf)
b=b+1
RsSort.MoveNext
loop
RsSort.Close
Set RsSort = Nothing
dim sqlmaxdepth
sqlmaxdepth="select max(depth) as dpt from pp_sort "
set rsmaxdepth=conn.execute(sqlmaxdepth)
if not rsmaxdepth.eof then
maxdepth=rsmaxdepth("dpt")
else
maxdepth=0
end if
rsmaxdepth.close
Response.Write("</script>")
Response.Write("<select id=""mainsel"" onChange=""dosel(this.options[this.selectedIndex].value,this.nextSibling);dodisplay(1);setmainval(this.options[this.selectedIndex].value)"" style=""display:none""><option>--请选择--</option></select>")
for j=1 to maxdepth-1
Response.Write("<select id=""mainsel"" onChange=""dosel(this.options[this.selectedIndex].value,this.nextSibling);dodisplay("&j+1&");setmainval(this.options[this.selectedIndex].value)"" style=""display:none""><option>--请选择--</option></select>")
next
Response.Write("<select id=""mainsel"" onChange=""setmainval(this.options[this.selectedIndex].value);"" style=""display:none""><option selected>--请选择--</option></select>")
%>
<script language="javascript">
var checkary
checkary=uppers.split(",")
function dodisplay(id)
{
for(var k=0;k<document.all.mainsel.length;k++)
{
document.all.mainsel[k].style.display="none"
}
for(var k=0;k<id+1;k++)
{
if(document.all.mainsel[k].length>1)
{
document.all.mainsel[k].style.display="block"
}
}
for(var k=id+1;k<document.all.mainsel.length;k++)
{
document.all.mainsel[k].length=1
}
}
function docheckisshow(b,tobj)
{
var bl=false
for(var k=0;k<checkary.length;k++)
{
if(checkary[k]==b)
{
bl=true
break;
}
else
{
bl=false
}
}
if(bl)
{
tobj.nextSibling.style.display="block"
}
}
function dosel(id,tobj)
{
var b=id
var bl=false
for(var k=0;k<checkary.length;k++)
{
if(checkary[k]==b)
{
bl=true
break;
}
else
{
bl=false
}
}
if(bl)
{
tobj.options.length=1
for(var j=0;j<mary[b].length;j++)
{
if(mary[b][j]!=""&&mary[b][j]!=null)
{
tobj.options[tobj.length] = new Option(mary[b][j],j)
}
}
}
else
{
tobj.options[0]=new Option("--请选择--","")
}
}
document.all.mainsel[0].style.display="block"

for(var j=0;j<mary[0].length;j++)
{
if(mary[0][j]!=""&&mary[0][j]!=null)
{
document.all.mainsel[0].options[document.all.mainsel[0].length] = new Option(mary[0][j],j)
}
}

function setmainval(id)
{
document.all.sortid.value=id
}

function docheckthis(val)
{
for(var k=0;k<checkary.length;k++)
{
if(checkary[k]==val)
{
alert("error select")
return false
break;
}
else
{
return true
}
}
}
</script>
<input type="hidden" name="sort" id="sort">