0

我已经接管了一个离职程序员的 Classic ASP 对象，我正在尝试调试一些 DAC 代码。问题是我并不真正了解 DAC 是什么或它是如何工作的——而且我找不到 DAC 代码是否“存在”。

这是单独的代码行：

set runObj = server.CreateObject("DAC.clsDb_container")

我们使用 SQL Server，我在存储过程和用户​​定义的函数下查看了企业管理器，但我没有看到任何名为 clsDB_container 的内容。

在哪里可以找到此 DAC 对象的代码的任何建议？

上下文中的完整代码：

FUNCTION getNewGUID
    Dim runCON, runObj, runCMD

    DebugWrite( "<BEGIN> iRoutines.asp|getNewGUID (a) GUID=" & GUID & " dealernum=" & dealernum )

    set runObj = server.CreateObject("DAC.clsDb_container")   
    if not runObj.run_query("EXEC sproc_createGUID") then
      traperror(runObj.DB_ErrStr)
    else
        GUID = replace(runObj.get_by_ordinal(0),"-","")
        dealernum_len = trim(cstr(len(dealernum)))
        set runObj = nothing
    end if
    getNewGUID = dealernum_len & dealernum & GUID
    DebugWrite( "<END> iRoutines.asp|getNewGUID (b) getNewGUID=" & getNewGUID & " dealernum=" & dealernum )
END FUNCTION
4

2 回答 2

3

这看起来像是作为站点数据访问层编写的自定义 COM 对象。

该对象的名称将DAC.clsDb_container存在于 Web 服务器某处的 DLL 中。

它不是标准的——如果你想进一步了解，你需要寻找（我猜这里）创建它的 VB6 或 Delphi 代码。

于 2011-03-04T22:49:55.673 回答
2

如果您只需要一个 GUID，那么您可以这样做

<%

Function createGuid()

Set TypeLib = Server.CreateObject("Scriptlet.TypeLib")

dim tg : tg = TypeLib.Guid

createGuid = left(tg, len(tg)-2)

Set TypeLib = Nothing

End Function

%>
于 2011-03-05T00:02:27.800 回答