ASP无限级分类原理、数据库结构设计、应用及相关函数

本篇文章以本站无限级分类为例子，讲解无限级分类的原理及应用。

数据库设计

mmFolder表

mmID 自动编号
mmParentID 数字型(长整型) 上级目录ID，如果为根目录，此值为0
mmName 文本型(50) 栏目名称

mmFile表
mmID 自动编号
mmFolderID 数字型(长整型) 所属目录ID——即Folder表的mmID值
....

无限级分类原理

无限级分类主要有两个字段，一个是mmID字段，做为自己标志；另一个就是mmParentID字段，做为自己的上一级标志。如何组织利用这些数据，达到我们想要的效果呢？程序中主要涉及到“替归”的应用。下面举个例子说明一下：

下面是本站的mmFolder表，如下图所示

 

从上图中可以看出：

1、网站的一级目录有：网站结构、技术文档、数据库、计算机技术、单片机、资源下载、生活等。就是说mmParentID值为0的为一级目录。

2、以一级目录“技术文档”为例，他的mmID值为2——你也可以这样理解，这个2就代表“技术文档”栏目。从上面图中可以看到，mmParent值为2的栏目有：WEB开发、Delphi和VB三个栏目。这三个栏目就是属于一级目录“技术文档”的下一级目录，即二级目录。

3、以二级目录“WEB开发”为例，他的mmID值为11——你也可以这样理解，这个11就代表“WEB开发”栏目。从上面图中可以看到，mmParent值为11的栏目有：ASP、CSS、正则、JavaScript、DLL和FSO，共六个栏目。这六个栏目就是属于二级目录“WEB开发”的下一级目录，即三级目录。

4、当然，还可以根据上面这个原理，无限级分下去。在此不多做说明了。

 无限级分类的应用

从上面了解到了无限级分类的原理，那么如何在网站中应用呢？下面举例说明如何应用。

从本站左侧“目录导航”中当前位置为“ASP”栏目，如下图所示：

以栏目“ASP”为例，他的mmID值为12。如何通过这个“当前栏目”的ID来找到他的上级所有目录呢？这里关键就是用到替归。

思路是：通过“ASP”的mmID值，即12，得到他的上一级目录值，即mmParent值。为11。根据这个11，得到他上一级目录的名称，即“WEB开发”。根据mmID=11的mmParent值，为2，可得到他上一级目录的名称，即“技术文档”。根据它的mmID=2的mmParent值，为0，说明已经到了根目录，终止。

替归具体的实现也简单，在此就不多说了。做为程序员，更好的利用替归，提高代码效率，也是件非常有趣的事。

相关函数代码

'======================================================================
'获取目录(栏目)树数组 [分类ID,目录名称,上级目录ID,根目录为0] 返回数组
'======================================================================
Public Function GetFolderTreeArr
  IF Not IsArray(Application("FolderTreeArr")) Then
    Dim MM,tmpArr:Set MM=New Cls_Public
    With MM
      .Table="mmFolder"
      .FieldsArr=Array("mmID","mmParentID","mmName")
      .OrderBy="mmID ASC"
      .Conn=OpenDatabase
    End With
    tmpArr=MM.ResultArr(-1)
    Set MM=Nothing:MM=NULL
    IF IsArray(tmpArr) Then
      Application.Lock
      Application("FolderTreeArr")=tmpArr
      Application.UnLock
    Else
      Response.Write "请添加目录!"
      Response.End
    End IF
  End IF
  GetFolderTreeArr=Application("FolderTreeArr")
End Function

'取得FolderID为id的目录下所有子目录(包括自己)的FolderID，以半角逗号分开
Function GetAllChildID(id)
  dim arrID,tmpArr,N
  arrID=id
  Dim MM:Set MM=New Cls_Public
  With MM
  .Table="mmFolder"
  .FieldsArr=Array("mmID","mmParentID","mmName")
  .Where="mmParentID="&id
  .OrderBy="mmID ASC"
  .Conn=OpenDatabase
  End With
  tmpArr=MM.ResultArr(-1)
  Set MM=Nothing:MM=NULL
  IF isArray(tmpArr) Then
    For N=0 To Ubound(tmpArr,2)
      arrID=arrID & "," & GetAllChildID(tmpArr(0,N))
    Next
  End iF
  GetAllChildID=arrID
End Function

根据mmFolder表的内容
调用GetAllChildID(2)会得到2,11,14,19,12,18,22,23,24,27
调用GetAllChildID(3)会得到3,20,21


'根据当前目录ID得到这个目录的完整路径
Function FolderPath(id)
  dim Pathstr,tmpArr
  Dim MM:Set MM=New Cls_Public
  With MM
  .Table="mmFolder"
  .FieldsArr=Array("mmID","mmParentID","mmName")
  .Where="mmID="&id
  .Conn=OpenDatabase
  End With
  tmpArr=MM.ResultArr(-1)
  Set MM=Nothing:MM=NULL
  IF IsArray(tmpArr) Then
    For N=0 To Ubound(tmpArr,2)
    Pathstr=" > <a href=""Folder" & tmpArr(0,N) &"-1.html"">" & tmpArr(2,N) & "</a>" & Pathstr
    if tmpArr(1,N) <> 0 then'父ID不等于0，则该文件夹仍不是根目录，继续遍历。
      Pathstr=FolderPath(tmpArr(1,N)) & Pathstr
    End IF
    Next
  End IF
  FolderPath = Pathstr
End Function

调用FolderPath(12)得到“首页 > 技术文档 > WEB开发 > ASP”


'根据当前目录ID得到这个顶级目录ID索引;如果已经是顶级目录,返回该顶级目录的索引
'参数curFolder 当前目录的ID
'参数curParentID 当前目录的父ID
Function getFirstID(curFolder,curParentID)
  Dim N
  IF curParentID=0 Then'已经是顶级目录,返回该顶级目录的索引
    getFirstID=curFolder
    Exit Function
  Else
    Dim tmpStr
    For N=0 To Ubound(FolderTreeArr,2)
      IF FolderTreeArr(0,N)=curParentID Then
        IF FolderTreeArr(1,N)>0 Then
          tmpStr=getFirstID(FolderTreeArr(0,N),FolderTreeArr(1,N))
        Else
          getFirstID=FolderTreeArr(0,N)
          exit function
        End IF
      End IF
    Next
  End IF
  getFirstID=tmpStr
End Function

这是我以前blog栏目结构的实现，本篇文章也是当时发布在blog上，现在转到CSDN中，仅供参考。虽然本篇讲述的是ASP无限级分类原理，但同样可以应用到其它语言中。这里主要是阐明无限级分类原理及数据库结构设计及实现思路，欢迎拍砖、交流。