asp读取数据库关联的2个表之间的数据并以数组形式输出(2)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="aspjson1.19.asp" -->
<%
'商量
' 首先，需要包含一个JSON库来生成JSON格式的输出
' 这里假设你已经有了一个可以使用的JSON库，例如aspJSON库
' 你可以从 https://github.com/MarcusNebel/aspJSON 下载并包含到你的项目中

' 创建一个空的数组来存储结果
Dim results
Set results = Server.CreateObject("Scripting.Dictionary")

' 连接到数据库
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=db;User ID=sa;Password=123456;" ' 替换为你的数据库连接字符串

' 父类查询
Dim parentId, parentName, parentRs, parentSql
parentSql = "SELECT id, MingCheng FROM BDClass WHERE ParentID='1' ORDER BY orders"
Set parentRs = conn.Execute(parentSql)

' 循环父类
Do While Not parentRs.EOF
    parentId = parentRs("id")
    parentName = parentRs("MingCheng")
    
    ' 创建一个字典来存储当前父类及其子产品
    Dim parentDict
    Set parentDict = Server.CreateObject("Scripting.Dictionary")
    parentDict.Add "id", parentId
    parentDict.Add "MingCheng", parentName
    parentDict.Add "children", Server.CreateObject("Scripting.Dictionary")
    
    ' 子类查询
    Dim childRs, childSql, childId, childTitle, childOutUrl, childTJtitle, childLogo, childZSstar
    childSql = "SELECT C.Comid, C.Title, C.OutUrl, C.TJtitle, C.Logo, C.ZSstar FROM BDcompany T, Company C WHERE T.Comid=C.Comid AND C.IsPass=1 AND T.classid='" & parentId & "' ORDER BY Orders, T.AddTime DESC, T.ID DESC"
    Set childRs = conn.Execute(childSql)
    
    ' 循环子产品
    Do While Not childRs.EOF
        childId = childRs("Comid")
        childTitle = childRs("Title")
        childOutUrl = childRs("OutUrl")
        childTJtitle = childRs("TJtitle")
        childLogo = childRs("Logo")
        childZSstar = childRs("ZSstar")
        
        ' 创建一个字典来存储当前子产品
        Dim childDict
        Set childDict = Server.CreateObject("Scripting.Dictionary")
        childDict.Add "Comid", childId
        childDict.Add "Title", childTitle
        childDict.Add "OutUrl", childOutUrl
        childDict.Add "TJtitle", childTJtitle
        childDict.Add "Logo", childLogo
        childDict.Add "ZSstar", childZSstar
        
        ' 添加到父类的children字典中
        parentDict("children").Add childId, childDict
        childRs.MoveNext
    Loop
    ' 添加到结果字典中
    results.Add parentId, parentDict
    parentRs.MoveNext
Loop

' 关闭数据库连接
parentRs.Close
Set parentRs = Nothing
conn.Close
Set conn = Nothing

%>


<%
' 输出结果 
Response.Write "<ul class='parent-list'>"
For Each parentKey In results.Keys 
    Dim parentItem 
    Set parentItem = results(parentKey)
%>
    <li class='parent-item'>
        <h2>父类ID：<%= parentItem("id") %> | 名称：<%= Server.HTMLEncode(parentItem("MingCheng")) %></h2>
        
        <% If parentItem("children").Count > 0 Then %>
            <ul class='child-list'>
            <%
            For Each childKey In parentItem("children").Keys 
                Dim childItem 
                Set childItem = parentItem("children")(childKey)
            %>
                <li class='child-item'>
                    <div class='company-card'>
                        <img src='<%= childItem("Logo") %>' 
                             alt='<%= Server.HTMLEncode(childItem("Title")) %> Logo'
                             class='company-logo'>
                        <div class='company-info'>
                            <h3><%= Server.HTMLEncode(childItem("Title")) %></h3>
                            <p class='tj-title'><%= childItem("TJtitle") %></p>
                            <div class='meta'>
                                <span class='stars'>星级：<%= childItem("ZSstar") %></span>
                                <a href='<%= childItem("OutUrl") %>' 
                                   target='_blank'
                                   class='out-link'>访问官网</a>
                            </div>
                        </div>
                    </div>
                </li>
            <% Next %>
            </ul>
        <% Else %>
            <p class='no-data'>当前类目下暂无公司信息</p>
        <% End If %>
    </li>
<% Next %>
Response.Write "</ul>"
%>