0

退職したプログラマーの Classic ASP オブジェクトを引き継いで、いくつかの DAC コードをデバッグしようとしています。問題は、私が DAC とは何か、またはどのように機能するかをよく理解していないことです。また、DAC コードが「生きている」かどうかもわかりません。

個々のコード行は次のとおりです。

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

SQL Server を使用しており、Enterprise Manager のストアド プロシージャとユーザー定義関数を調べましたが、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 に答える