asp 树形目录制作

ASP实现的树形目录结构

最新推荐文章于 2009-06-24 13:20:00 发布

原创

最新推荐文章于 2009-06-24 13:20:00 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #function #javascript #io #sql #tree

这篇博客展示了如何使用ASP、JavaScript和CSS创建一个树形目录结构。通过VB脚本连接数据库，从四个层级的表格中获取数据，然后利用JavaScript的dTree函数动态生成树形结构。尽管实现了功能，但作者指出该脚本可能会导致浏览器运行缓慢。

主要用vb脚本，采用四次循环，嵌套着javascript，勉强实现了功能，但是提示“运行此脚本，会使你的计算机变得很慢”

一共包括三个文件，shu.asp——显示页面，dtree.js——定义的函数，dtree.css——样式表

shu.asp

——————————————————————————————————————————————

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html>

</head>

<body>

<hr />

<%
dim conn,connstr,sql,rs,rs1,rs2,rs3,shu,i,j,k,l
connstr="db1.mdb"
connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.MapPath(connstr)
set conn = server.CreateObject("Adodb.Connection")
set rs=server.CreateObject("Adodb.RecordSet")
set rs1=server.CreateObject("Adodb.RecordSet")
set rs2=server.CreateObject("Adodb.RecordSet")
set rs3=server.CreateObject("Adodb.RecordSet")
conn.open connstr

%>
<div class="tree">
<p><a href="javascript: tt.openAll();">打开所有节点</a> | <a href="javascript: tt.closeAll();">关闭所有节点</a></p>

  tt.add(0,-1,'机构目录');
  <%
  sql="select * from hangye_lei_one"
  rs.open sql,conn,1,3
  shu=rs.recordcount
  i=1
  while not rs.eof

  %>
  tt.add(<%=i%>,0,'<%=rs(1)%>','http://hi.baidu.com/hwolfs');
  <%
    sql="select * from hangye_lei_two where lei_one_name='"&rs(1)&"'"
    rs1.open sql,conn,1,3

    j=shu+1

    shu =shu+rs1.recordcount

    while not rs1.eof
     %>
  tt.add(<%=j%>,<%=i%>,'<%=rs1(1)%>','http://hi.baidu.com/hwolfs');
     <%

      sql="select * from hangye_lei_three where lei_two_name='"&rs1(1)&"'"
      rs2.open sql,conn,1,3

      k=shu+1

      shu =shu+rs2.recordcount

      while not rs2.eof
       %>
    tt.add(<%=k%>,<%=j%>,'<%=rs2(1)%>','http://hi.baidu.com/hwolfs');
       <%


        sql="select * from hangye_lei_four where lei_three_name='"&rs2(1)&"'"
        rs3.open sql,conn,1,3

        l=shu+1

        shu =shu+rs3.recordcount

        while not rs3.eof
         %>
      tt.add(<%=l%>,<%=k%>,'<%'=rs3(1)%>','http://hi.baidu.com/hwolfs');
         <%

         l=l+1
         rs3.movenext
        wend
        rs3.close
       k=k+1
       rs2.movenext
      wend
      rs2.close
     j=

最低0.47元/天解锁文章