谁有treeview生成一刻树的递归算法？ (50分)

我的意思是：知道了数据的父子关系后。即数据库字段表明了其父是谁。(父，子)、(父，子)、(父，子)、(父，子)……
谁有生成一刻树的递归算法？

下面是我以前在网页上用的一段代码，也是用来生成一颗树，希望能对你有所帮助。
-------------------------------------------------------------------------
'-----------------------------------------------
'调用入口
maketree "Fair",0
'-----------------------------------------------
'参数说明:
'ParentAppkey:上一级节点的键值
'leaf :节点层数,用来控制显示格式的缩进
sub maketree(ParentAppkey,leaf)
dim rs 'Recordset,保存查询结果记录集
dim i '循环变量
dim rsCount '保存当前节点的子节点数

set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from application where fsystem='" &
ParentAppkey &
"'",conndb,1,1
if rs.RecordCount=0 then
exit sub

'--------------------------------------------
'遍历当前节点的所有子节点
'1.如果是子节点是目录,就递归调用,重复此过程,直到
' 没有是目录的子节点
'2.如果是子节点是叶子,就只需要打印出此节点
for i=1 to rs.RecordCount
select case ucase(rs("flag"))
case "E"
Response.Write(string(leaf,"-") &
rs("name") &
"<br>")
case "D"
Response.Write(string(leaf,"-") &
rs("name") &
"<br>")
leaf=leaf+1
maketree rs("appkey"),leaf
leaf=leaf-1
case else
'do nothing
end select

rs.movenext
next
end sub
conndb.close
%>

到底是数据库编程不审TreeView编程？[!]
听不明白你想要什么。

这是我以前写的一个：
procedure AddSectionIntoView(SectionView: TTreeView1;
ImageIndex: integer;
ParentNode: TTreeNode;
OwnerForm: TForm;
ParentID:string);
var
TempQuery: TADOQuery;
CurrNode: TTreeNode;
begin
TempQuery := TADOQuery.Create(OwnerForm);
try
TempQuery.Connection := FormMain.ADOConnection1;
TempQuery.Close;
TempQuery.SQL.Text := 'select * from SectionInfo where ParentID=arentID';
TempQuery.Parameters[0].Value := ParentID;
TempQuery.Open;
if TempQuery.RecordCount > 0 then
begin
TempQuery.First;
while not TempQuery.Eof do
begin
CurrNode := SectionView.Items.AddChild(ParentNode,TempQuery.FieldValues['SectionName']);
CurrNode.ImageIndex := ImageIndex;
CurrNode.SelectedIndex := ImageIndex;
AddSectionIntoView(SectionView,ImageIndex,CurrNode,OwnerForm,TempQuery.FieldValues['SectionID']);
TempQuery.Next;
end;
end;
finally
TempQuery.Free;
end;
end;

高价收购能加背景图，能改变滚动条颜色，能用在节点text处显示指定图片的treeview，价格面议

这么老的问题怎么还不结帖，版主都上哪去了