<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/html; charset=utf-8"%>
<!-- 引入 JSON 处理类文件 -->
<!--#include file="JSON_2.0.4.asp" -->
<%
' 定义数组来保存结果
Dim parentArray()
Dim childArray()
' 连接数据库
Dim conn, rsParent, rsChild
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=bds257174220_db;User ID=sa;Password=xfxfxf;"
' 查询父类数据
Set rsParent = Server.CreateObject("ADODB.Recordset")
rsParent.Open "select id, MingCheng from BDClass where ParentID='1' order by orders", conn,3,2
' 初始化父类数组
ReDim parentArray(rsParent.RecordCount - 1, 1)
' 循环父类数据
Dim i
i = 0
Do While Not rsParent.EOF
parentArray(i, 0) = rsParent("id")
parentArray(i, 1) = rsParent("MingCheng")
' 查询子类数据
Set rsChild = Server.CreateObject("ADODB.Recordset")
rsChild.Open "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='" & rsParent("id") & "' order by Orders, T.AddTime desc, T.ID desc", conn,3,2
' 初始化子类数组
ReDim childArray(rsChild.RecordCount - 1, 5)
' 循环子类数据
Dim j
j = 0
Do While Not rsChild.EOF
childArray(j, 0) = rsChild("Comid")
childArray(j, 1) = rsChild("Title")
childArray(j, 2) = rsChild("OutUrl")
childArray(j, 3) = rsChild("TJtitle")
childArray(j, 4) = rsChild("Logo")
childArray(j, 5) = rsChild("ZSstar")
rsChild.MoveNext
j = j + 1
Loop
' 将子类数组保存到一个新的父类数组元素中
' 使用动态数组来存储子类数据
ReDim Preserve parentArray(UBound(parentArray, 1), 2)
parentArray(i, 2) = childArray
rsParent.MoveNext
i = i + 1
Loop
' 关闭记录集和连接
rsParent.Close
Set rsParent = Nothing
conn.Close
Set conn = Nothing
' 使用 JSON_2.0.4.asp 中的 toJSON 函数将 parentArray 转换为 JSON 字符串
Dim jsonResult
jsonResult = toJSON(parentArray)
' 输出 JSON 字符串
Response.Write jsonResult
%>
