网络编程
位置：首页>> 网络编程>> Asp编程>> asp分类算法要解决的问题（2）

asp分类算法要解决的问题（2）

　　发布时间：2009-09-10 16:49:00　

标签：分类,树,算法

如何恢复出一棵树

上面的Catalog定义的最大优势，就在于用它可以轻松地恢复出一棵树—分类树。为了更清楚地展示算法，我们先考虑一个简单的问题：怎样显示某个分类的下一级分类。我们知道，要查询某个分类FID的下一级分类，SQL语句非常简单：

select Name from catalog where FatherID=FID

显示这些类别时，我们简单地用<LI>来做到：

<％

REM oConn---数据库连接，调用GetChildren时已经打开

REM FID-----当前分类的编号


Function GetChildren(oConn,FID)

strSQL = "select ID,Name from catalog where FatherID="&FID

set rsCatalog = oConn.Execute(strSQL)

％>

<UL>

<％

Do while not rsCatalog.Eof 

％>

<LI><％=rsCatalog("Name")％>

<％

Loop

％>

</UL>

<％ 

rsCatalog.Close

End Function

％>

现在我们来看看如何显示FID下的所有分类。这需要用到递归算法。我们只需要在GetChildren函数中简单地对所有ID进行调用：GetChildren(oConn,Catalog(“ID”))就可以了。

<％

REM oConn---数据库连接，已经打开

REM FID-----当前分类的编号


Function GetChildren(oConn,FID)

strSQL = "select Name from catalog where FatherID="&FID

set rsCatalog = oConn.Execute(strSQL)

％>

<UL>

<％

Do while not rsCatalog.Eof 

％>

<LI><％=rsCatalog("Name")％>

<％=GetChildren(oConn,Catalog("ID"))％>


<％

Loop

％>

</UL>

<％ 

rsCatalog.Close

End Function

％>

修改后的GetChildren就可以完成显示FID分类的所有子分类的任务。要显示所有的分类，只需要如此调用就可以了：

<％

REM strConn--连接数据库的字符串，请根据情况修改

set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open strConn

=GetChildren(oConn,-1)

oConn.Close

％>

第一页 上一页 1
2
3 4 5 下一页
0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com