三级联动菜单

三级联动菜单ASP+JS+ACCESS

20111018 by荣耀十字弓

图一

1建筑物、楼层、房间三级选单ASP设计表格如图

数据库如图

b_id ID号，Access自动编号、主键

b_name 名称

b_class 级别标识（数值）

b_order 上一级的ID号（数值）

后面的字段不关键

建筑物、楼层和房间都放在一个表中，统一编号，标识出该名称的分类级别，和上一级的ID 号

2.选择时候三级联动代码如下：

<%

'这里是一个返回数据的验证，实际使用中删去就可以

if request("action")="dispdata" then

response.Write "

Test Return Data:
"

response.Write "
建筑物："&request.Form("first")

response.Write "
楼层："&request.Form("second")

response.Write "
房间："&request.Form("third")

response.Write "

Return"

end if

%>

<%

dim cn,rs,secondRS,threeRS,sql,secondJS,threeJS

set threeRS=server.CreateObject("adodb.recordset")

set secondRS=server.CreateObject("adodb.recordset")

set cn=server.CreateObject("adodb.connection")

cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("netAdmin.mdb") set rs=server.CreateObject("adodb.recordset")

sql="select * from building_i where b_class=1" '先取顶层的菜单

rs.Open sql,cn,0,1,1

if rs.BOF then

response.Write "没有数据"

else

call OutTopSel

call OutJSArray

end if

rs.Close

set rs=nothing

cn.Close

set cn=nothing

sub OutTopSel

%>

请选择一级菜单

<%

do while not rs.EOF

response.Write "

"&rs("b_name")&""

call outJSSecondArray(rs("b_id"))

rs.movenext

loop

%>

<%

end sub

%>

<%

function outJSSecondArray(secondID)

sql="select * from building_i where b_order="&secondID

secondRS.Open sql,cn,0,1,1

if secondRS.EOF then

secondjs=secondjs&"Arr['"&secondID&"']=new Array(new Option('暂时无数据',''));"&vbnewline else

secondJS=secondjs&"Arr['"&secondID&"']=new Array("&vbnewline&"new Option('请选择二级菜单','')"&vbnewline

do while not secondRS.EOF

secondjs=secondjs&",new Option('"&secondRS("b_name")&"','"&secondRS("b_id")&"')" &vbnewline

call outJSThreeArray(secondRS("b_id"))

secondRS.MoveNext

loop