经典ASP递归函数

Question

我已经有几年没有做过任何经典的 ASP 了，现在尝试从 C# 重新开始它被证明是不可能的！我有一个递归函数，它非常简单地应该根据传递给函数的值查询数据库，一旦函数停​​止调用自身，它就会返回记录集......但是我收到旧错误“80020009”消息。我已在函数外部声明了记录集。

有人能看到我的方式中的错误吗？

Dim objRsTmp

Function buildList(intParentGroupID)

 Set objRsTmp = Server.CreateObject("Adodb.Recordset")
 SQLCommand = "SELECT * FROM tblGroups WHERE tblGroups.intParentGroupID = " & intParentGroupID & ";"
 objRsTmp.Open SQLCommand, strConnection, 3, 3

 If Not objRsTmp.Eof Then

  While Not objRsTmp.Eof

   Response.Write(objRsTmp("strGroup") & "<br />")

   buildList(objRsTmp("intID"))

   objRsTmp.MoveNext

  Wend

 End If

 Set buildList = objRsTmp

 '#objRsTmp.Close()
 'Set objRsTmp = Nothing

End Function

Set objRs = buildList(0)

If Not objRs.Eof Then

 Response.Write("There are records")

 While Not objRs.Eof

  For Each oFld in objRs.Fields
   Response.Write(oFld.Name & ": " & oFld.Value & ",")
  next

  Response.Write("<br />")

  objRs.MoveNext

 Wend

End If

任何帮助将不胜感激。

问候， 铝

Answer 1

全局范围内有一个 objRsTmp 实例，这意味着它在堆栈上的每个 buildList() 之间共享；因此，每当您递归到 buildList() 并调用 objRsTmp.Open() 时，都会导致堆栈上先前的 buildList() 使用新的objRsTmp。

我不认为这就是您所追求的，因为您循环其行，就好像每个 buildList() 都有自己的一组结果一样。

为此，您必须将记录集设置为本地...但是，这是一种非常昂贵的方法，特别是因为每次迭代还创建一个新的连接对象。

根据您的架构/关系型数据库，通常有一种单查询方式来提取一组分层相关的记录。