Asp classic DAC对象位于何处（在经典ASP中）？

我已经接管了一个即将离开的程序员的经典ASP对象，我正在尝试调试一些DAC代码。问题是我真的不明白DAC是什么或它是如何工作的——我也找不到DAC代码是“生命”的

以下是单独的代码行：

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

我们使用SQL Server，我在EnterpriseManager中的存储过程和用户定义函数下查看了，但没有看到任何名为clsDB_容器的内容

在哪里可以找到这个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

函数getNewGUID 尺寸runCON、runObj、runCMD DebugWrite（“iRoutines.asp | getNewGUID（a）GUID=“&GUID&”dealernum=“&dealernum”） 设置runObj=server.CreateObject（“DAC.clsDb_容器”） 如果没有runObj.run\u query（“EXEC存储过程\u createGUID”），则 Traperor（runObj.DB_ErrStr） 其他的 GUID=replace（runObj.get_by_序数（0），“-”，“”） dealernum_len=微调（cstr（len（dealernum））） 设置runObj=nothing 如果结束 getNewGUID=dealernum\u len&dealernum&GUID DebugWrite（“iRoutines.asp | getNewGUID（b）getNewGUID=“&getNewGUID&”dealernum=“&dealernum”） 端函数

---

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

对象的名称将是

DAC.clsDb_container

，并且位于web服务器上某个位置的DLL中

---

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

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

对象的名称将是

DAC.clsDb_container

，并且位于web服务器上某个位置的DLL中

---

它不是标准的-如果您想进一步了解它，您需要查找创建它的VB6或Delphi代码。

如果您只需要一个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

%>

---

如果您只需要一个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

%>

我的下一个问题是，“有没有更简单的方法获取GUID？”。谢谢你的回答。我的下一个问题是，“有没有更简单的方法来获取GUID？”。谢谢你的回答。