Где живут объекты DAC (в Classic ASP)? - PullRequest
Новая
       17

Где живут объекты DAC (в Classic ASP)?

0 голосов
/ 05 марта 2011

Я взял на себя классический ASP-объект ушедшего программиста и пытаюсь отладить некоторый код DAC.Проблема в том, что я не совсем понимаю, что такое ЦАП или как он работает - и я не могу найти, где код ЦАП «живет».

Вот отдельная строка кода: 

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

Мы используем SQL Server, и я посмотрел в Enterprise Manager в разделе «Хранимые процедуры и пользовательские функции», но я не вижу ничего с именем clsDB_container.

Любые предложения, где я могу найти код для этогоОбъект ЦАП?

Полный код в контексте: 

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

Ответы [ 2 ]

3 голосов
/ 05 марта 2011

Это похоже на пользовательский COM-объект, который был написан как слой доступа к данным для сайта.

Имя объекта будет DAC.clsDb_container и находится в DLL где-то на веб-сервере.

Это не стандартно - вам нужно искать (я предполагаю здесь) код VB6 или Delphi, который его создал, если вы хотите получить дальнейшее просветление.

2 голосов
/ 05 марта 2011

если вам нужен только 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

%>
...