asp-classic – 将断开连接的记录集插入字典对象？

事实并非如此,所有关键元素都是独一无二的,是的,我三重检查数据:)

如果我将数据推送到局部变量,它工作正常(见下面的代码).虽然我没关系,但还有其他人看过这个问题,或者知道为什么它不起作用？

Set Options=Server.CreateObject("Scripting.Dictionary")

function Populate(ID) ' WORKS
    Dim strsql,rs,name,id
    if Options.Count = 0 then
        strsql = "select name,ID from options where unique = " & SafeSQL(ID)
        Set rs = RunSQLReturnRS(strsql,null,"Populate") ' returns a disconnected recordset
        do while not rs.eof
            name = rs("name")
            id = rs("id")
            Options.Add name,id
            rs.movenext
        loop
        rs.close
    end if
end function

function Populate2(ID) ' DOES NOT WORK
    Dim strsql,rs
    if Options.Count = 0 then
        strsql = "select name,"Populate") ' returns a disconnected recordset
        do while not rs.eof
            Options.Add rs("name"),rs("id")
            rs.movenext
        loop
        rs.close
    end if
end function

根据用户Shadow Wizard的请求,断开连接的记录功能,(注意my_conn是数据库连接,并且在调用此函数时已经打开)

Function RunSQLReturnRS(sqlstmt,params(),fromfunction)
    ''//Create the ADO objects
    Dim rs,cmd

    Set rs = server.createobject("ADODB.Recordset")
    If Not zerolength(sqlstmt) then
      Set cmd = server.createobject("ADODB.Command")

      ''//Init the ADO objects  & the stored proc parameters
      cmd.ActiveConnection = my_conn
      cmd.CommandText = sqlstmt
      cmd.CommandType = adCmdText
      cmd.CommandTimeout = 900

      ''// propietary function that put params in the cmd
      collectParams cmd,params

      ''//Execute the query for readonly
      rs.CursorLocation = adUseClient
      On Error Resume Next
        rs.Open cmd,adOpenForwardOnly,adLockReadOnly
        If Err.Number <> 0 Then Response.write "Error: "&Err.Description & "<br>fromfunction=" & fromfunction & "<br>" : Response.end
      On Error Goto 0
      ''// Disconnect the recordset
      Set cmd.ActiveConnection = Nothing
      Set cmd = Nothing
      Set rs.ActiveConnection = Nothing
    End if
    ''// Return the resultant recordset
    Set RunSQLReturnRS = rs
  End Function