<%@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
Dim keysArray
keysArray = results.Keys
' 遍历键数组
For i = LBound(keysArray) To UBound(keysArray)
Dim currentKey, currentValue
currentKey = keysArray(i)
'Response.Write "键: " & currentKey
Next
' 释放对象
' 使用aspJSON库将结果字典转换为JSON格式
'Dim oJSON
'Set oJSON = New aspJSON
'With oJSON.data
'for b=0 to results.count
'dim hang
'hang = results(b)
'.Add n, oJSON.Collection()
'With .item(n)
'.Add "id", ""&results(b)("id")&""
'End With
'n=n+1
'next
'End With
'Response.Write oJSON.JSONoutput()
' 输出JSON
'Response.ContentType = "application/json"
'Response.Write oJSON.ToString()
'Set results = Nothing
%>
<%
Dim key2, parentDict2
For Each key2 In results
Set parentDict2 = results(key2)
%>
<div class="parent">
<h2><%= Server.HtmlEncode(parentDict2("MingCheng")) %></h2>
<ul class="children">
<%
Dim childkey2, childDict2
For Each childkey2 In parentDict2("children")
Set childDict2 = parentDict2("children")(childkey2)
%>
<li>
<a href="<%= childDict2("OutUrl") %>">
<img src="<%= Server.HtmlEncode(childDict2("Logo")) %>" alt="<%= Server.HtmlEncode(childDict2("Title")) %>">
<h3><%= Server.HtmlEncode(childDict2("Title")) %></h3>
<p><%= childDict2("TJtitle") %></p>
<span>星级: <%= Server.HtmlEncode(childDict2("ZSstar")) %></span>
</a>
</li>
<%
Next
%>
</ul>
</div>
<%
Next
%>
