状态一 使用数据构型
<!-- METADATA TYPE="TypeLib" UUID="00000200-0000-0010-8000-00AA006D2EA4" -->
<%
Set Connection = Server.CreateObject("ADODB.Connection")
ConnectionString = "Provider=MSDataShape;DATA PROVIDER=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=123;Initial Catalog=Northwind;Data Source=(local)"
Connection.Open(ConnectionString)
SQL = _
"SHAPE {SELECT CustomerID FROM Customers} "&_
"APPEND ({SELECT OrderID,CustomerID FROM Orders} AS chapOrders "&_
"RELATE customerID TO customerID)"
Set Rs = Connection.Execute(SQL)
Do While not Rs.Eof
Response.Write(Rs(0) &" - "& Rs.Fields.Count)
Response.Write("<br>")
Set RsChild = Rs("chapOrders").Value
Do While Not RsChild.EOF
Response.Write( RsChild(0) &"