ASP+Access+xml实现无限分类级联菜单(关联菜单)

1.首先建立一个数据库
数据名:calss.mdb
表名:BigClass
表结构:BigClassID(自编) BigClassName(文本) descid(数字)
表名:SmallClass
表结构:SmallClassID(自编) SmallClassName(文本) BigClassName(文本) descid(数字)
表名:SmallClass2
表结构:SmallClassID2(自编) SmallClassName2(文本) SmallClassName(文本) descid(数字)

2.
数据库连接代码:
conn.asp:

<%
dim conn
dim connstr
db="class.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

这里的代码我采用过程编写,以便于以后调用..

function.asp

<%
 '=================================================
'过程名：Showclass
'作 用：无限分类级联菜单(关联菜单)
'参 数：无
'作 者：吟清，最后更新：2005.06.15
'=================================================
dim BigClassName,SmallClassName,SmallClassName2,rs,sql
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
SmallClassName2=Trim(request("SmallClassName2"))

sqlBigClass="select * from BigClass order by BigClassID"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1

sub Showclass()
  dim count
  set rs=server.createobject("adodb.recordset")
  sql = "select * from SmallClass order by SmallClassID asc"
  rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
subcat = new Array();
 <%
 count = 0
 do while not rs.eof
 %>
subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
 <%
 count = count + 1
 rs.movenext
 loop
 rs.close
 %>
onecount=<%=count%>;

function changelocation(locationid)
 {
 document.myform.SmallClassName.length = 1;
 var locationid=locationid;
 var i;
 for (i=0;i < onecount; i++)
 {
 if (subcat[i][1] == locationid)
 {
 document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
 }
 }
 }
</script>
<select name=BigClassName></select>
<select name=SmallClassName></select>
<select name=SmallClassName2></select>
<script>
var arrSel=["BigClassName","SmallClassName","SmallClassName2"];//arrSel定义了要修改的下拉框和xml数据的节点名称
</script><xml id=xmldata>
 <xmldata>
<%
  do while not rsBigClass.eof
%>
 <BigClassName value="<%=rsBigClass("BigClassName")%>">
<%
   set rsSmallClass=server.CreateObject("adodb.recordset")
   rsSmallClass.open "Select * From SmallClass Where BigClassName='" & rsBigClass("BigClassName") & "' order by descid",conn,1,3
   if not(rsSmallClass.bof and rsSmallClass.eof) then
    do while not rsSmallClass.eof
%>
 <SmallClassName value="<%=rsSmallClass("SmallClassName")%>">
<%
   set rsSmallClass2=server.CreateObject("adodb.recordset")
   rsSmallClass2.open "Select * From SmallClass2 Where smallClassName='" & rssmallClass("smallClassName") & "' order by descid",conn,1,3
   if not(rsSmallClass2.bof and rsSmallClass2.eof) then
    do while not rsSmallClass2.eof
%>
 <SmallClassName2 value="<%=rsSmallClass2("SmallClassName2")%>">
 </SmallClassName2>
   <%
     rsSmallClass2.movenext
    loop%>
    <%else%><SmallClassName2 value=" ">
 </SmallClassName2>
<%
   end if
   rsSmallClass2.close
   set rsSmallClass2=nothing%>
 </SmallClassName>
<%
      rsSmallClass.movenext
    loop
   end if
   rsSmallClass.close
   set rsSmallClass=nothing
   %>
 </BigClassName>  
<%  
   rsBigClass.movenext
  loop
%>
 </xmldata>
</xml>
<script>
function qswhXml(num){
/******* by qiushuiwuhen(2002-5-17) aspid editor (2005-6-15) ********/
 var i,j,arrTemp=[];
 for(i=0;i<num;i++)arrTemp[i]=document.all(arrSel[i]).options[document.all(arrSel[i]).selectedIndex].text
 if(num==arrSel.length){//这里处理最后的数据。
 return;
 }
 with(document.all(arrSel[num])){
 length=0
 var obj=document.all.xmldata.XMLDocument.childNodes[0];
 for(i=0;i<num;i++)obj=obj.selectSingleNode(arrSel[i]+'[@value="'+arrTemp[i]+'"]');
 for(i=0;i<obj.childNodes.length;i++)options[length++].text=obj.childNodes[i].getAttribute("value");
 οnchange=new Function("qswhXml("+(num+1)+")");
 onchange();
 }
}
qswhXml(0);
</script>
<%end sub%>

给客户端的页面:
show.asp

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<% call Showclass() %>

这样就可以了,~一个动态ASP+Access+xml实现无限分类级联菜单(关联菜单)就完成了,~分类的栏目你可以自己在数据库中自行添加`~或是编写程序自己管理..这样就方便多了~

这个程序虽然花了我很多时间,但是其中还有很多不足(数据结构很乱,效率低),~希望有朋友可以和我一起讨论.帮我指出~.

点击这里查看演示：
click here to demo <script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"> </script>