填充递归的TreeView列表

Question

如果我的Microsoft Access数据库填充如下：

使用ASP VBScript，我如何将其打印到树视图列表中？具有无限的潜在级别，因为任何页面都可以有子页面......

例如，上面的数据库应该打印如下：

更新

我现在停留在这个递归方面...

...

rs.open "SELECT id,parent_id,page_name,node_path FROM pages ORDER BY node_path",conn
records = rs.GetRows

...

<%
    function tree(parent, arrPages)

        children = false

        for x = 0 to ubound(arrPages, 2)
            if (cint(arrPages(1, x)) = parent) then
                if (children = false AND parent > 0) then 
                    children = true
                    Response.Write("<ul>")
                end if
            %>
            <li>
                <%=arrPages(2,x)%>
                <% Call Tree(arrPages(0,x), arrPages) %>
            </li>
            <%
            end if
        next

        if (children = true AND parent > 0) then 
            %></ul><%
        end if

    end function

    Response.Write "<ul>"
    Call tree(0, records)
    Response.Write "</ul>"
%>

然而，这只写道：

Answer 1

我将您的数据放入数组中，您的代码完美无缺。

您确定您的查询正在提取正确的数据吗？

// Heart Like counts
var clicks = 50;
function onClick() 
{
    clicks += 1;
    document.getElementById("output").innerHTML = clicks;
};

结果：