高手请教：以树状方式显示表格中数据

[lzid2008]

表 tCategory(cId,cName,cpId) 分别表示 类别id,类别名称，类别父级Id

级别无限。 现要用递归显示，表中的数据，形成树状结构,
如

A
-a1
-a1_a
-a1_aX
-a1_aY
_a1_b
-a1_c
-a2
B
-b1
-b2
-b3

[一把编程的菜刀]

自己论坛搜索吧，这样的提问多了

[薪水]

jf

[lzid2008]

我已经实现

Sub ShowCategoryByParentId(varPid)
Dim strSql,rsC
strSql = "select * from vProCategory where pbCategoryParentId = " & varPid
Set rsC=server.CreateObject("adodb.recordset")
rsC.CursorLocation = 3
rsC.Open strSql,conn,3,3

If rsC.recordcount > 0 Then
Response.write("<div style='margin-left: 30px;'>")
Do until rsC.eof
Response.Write("" & rsC("pbCategoryName") & "<br>")
Call ShowCategoryByParentId(rsC("pbCategoryId"))
rsC.moveNext
Loop
Response.write("</div>")
End If
rsC.Close
End Sub

[ltly_2009]

祝贺你

[零点不睡觉]

JF

[jack09596]

恭喜你，学习下

[lzid2008]

补充，如果我想在

下拉框中 显示树形方式，

显示的结果不是很理想。请大家一起看看，问题出在哪来。

'Dim Countspace
Sub ShowCategoryByParentId(varPid)
Dim Countspace
Countspace = Countspace + 1

Dim strSql,rsC
strSql = "select * from vProCategory where pbCategoryParentId = " & varPid
Set rsC=server.CreateObject("adodb.recordset")
rsC.CursorLocation = 3
rsC.Open strSql,conn,3,3

If rsC.recordcount > 0 Then
Do until rsC.eof
Response.Write("<option value='" & rsC("pbCategoryId") &"'>" & ShowSpace(Countspace) &rsC("pbCategoryName") & "</option>")
Call ShowCategoryByParentId(rsC("pbCategoryId"))
rsC.moveNext
Loop
End If
rsC.Close
End Sub

Function ShowSpace(varNumb)
Dim i,temp
temp = ""
For i=0 to varNumb
temp = " " + temp
Next
ShowSpace = temp
End Function


<select name="pbCategoryParentId" id="pbCategoryParentId">
<option value="">Please select</option>
<% call ShowCategoryByParentId(0)%>
</select>

[macy212]

用DTree吧。