<!--#include file="../../include/dbclass.asp" -->
<!--#include file="JSON_2.0.4.asp" -->
<!--#include file="../../include/funcation.asp" -->
<%
'领域设计
OpenConn() '打开数据库连接
Dim db : Set db = New DbCtrl '建立对象
Co(db) : CloseConn() '释放对象，关闭数据库连接
dim pageSize,currentPage
'pageSize = 10
pagesize = Request.QueryString("pageSize")
If Request.QueryString("page") = "" Then
currentPage = 1
Else
currentPage = CInt(Request.QueryString("page"))
End If
' 查询父类数据
Set rsParent = db.GetRecordBySQL("select id, MingCheng from BDClass where ParentID='1' order by orders")
' 初始化父类数组
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 = db.GetRecordBySQL("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")
' 初始化子类数组
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
'上面代码执行的数据保存到parentArray中，需要循环打印出来，或者输出JSON格式
%>
