ASP制作树状菜单

1.在一些比较好的商品菜单中经常会有树状的导航菜单里面的数据是从数据库中查询出来的哦！
第一个可以学习的代码是ASP+AJAX+ACCESS数据库进行的无刷新页面生成的树状菜单
可以实现用AJAX哦！
不错哈哈！
第一个页面：










<%
'连接数据库
ajaxdb="ykslw22is112kswrs/web300.mdb"
Set ajaxconn = Server.CreateObject("ADODB.Connection")
ajaxconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(ajaxdb)
ajaxconn.Open ajaxconnstr

'显示根目录
sql="select * from BigClass "  '提取出来第一大类的东西
set ajaxrs=server.createobject("adodb.recordset")
ajaxrs.open sql,ajaxconn,1,1
response.Write("请选择商品类别
")
do while not ajaxrs.eof
    '可以先遍历出来大类中的名称出来
    set sr = server.CreateObject("adodb.recordset")
    sql = "select count(*) as num from smallclass where BigClassName='"&ajaxrs("BigClassName")&"'"
    'response.Write sql
    sr.open sql,ajaxconn,1,1
    if sr("num") > 0 then    '如果说存在子类的话就走这条路吧,显示第一个东西：图标值
        response.Write("")
    else
        response.Write("")
    end if
   
 
   
   
    strTree= ""&ajaxrs("BigClassName")&""
    response.Write(strTree)
   
   
    '显示名称了,大类的就直接用大类名称进行超链接处理即可的
    response.Write("")
    response.Write("
")
    if sr("num")>0 then
        response.Write("

")
    end if
    ajaxrs.movenext
loop
sr.close
set sr = nothing
ajaxrs.close
set ajaxrs=nothing
ajaxconn.close
Set ajaxconn = Nothing
%>



第二个响应的ajax页面代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>





<%
Response.ContentType = "text/html"
Response.Charset = "GB2312"   '解决乱码问题
Dim id,child
id=(Request.Form("BigClassName"))
if id="" then response.end()
'连接数据库
ajdb="ykslw22is112kswrs/web300.mdb"
Set ajconn = Server.CreateObject("ADODB.Connection")
ajconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(ajdb)
ajconn.Open ajconnstr
'通过我们的传过来的父类的名称来取子类的记录值了
sql="select * from SmallClass where BigClassName='"&id&"'"  '到小类中提取出来记录信息
'response.Write(sql)

set ajrs=server.CreateObject("adodb.recordset")
ajrs.open sql,ajconn,1,1
do while not ajrs.eof   
    child=child&"  "
      child=child&""
    child=child&""&ajrs("SmallClassName")&""
    response.Write(strTree)   
    child=child&"
"   
    ajrs.movenext
loop
ajrs.close
set ajrs=nothing
ajconn.close
Set ajconn = Nothing
Response.Write (child)
Response.End
%>