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

发布于 2024-10-20 12:54:16 字数 1052 浏览 2 评论 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

原文

I have taken over a departing programmer's Classic ASP object, and I'm trying to debug some DAC code. The trouble is I don't really understand what DAC is or how it works -- and I can't find were the DAC code "lives".

Here's the individual line of code:

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

We use SQL Server, and I looked in Enterprise Manager under Stored Procedures and User-Defined functions, but I don't see anything named clsDB_container.

Any suggestions where I can find the code for this DAC object?

The full code in context:

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

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

莫言歌 2024-10-27 12:54:16

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

该对象的名称为 DAC.clsDb_container，位于 Web 服务器上某处的 DLL 中。

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

回复收藏 0 原文

香橙ぽ 2024-10-27 12:54:16

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

%>

if all you need is a GUID then you could do this

<%

Function createGuid()

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

dim tg : tg = TypeLib.Guid

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

Set TypeLib = Nothing

End Function

%>

回复收藏 0 原文

~没有更多了~