одно соединение sql на нескольких веб-страницах - PullRequest
Новая
       0

одно соединение sql на нескольких веб-страницах

0 голосов
/ 10 июня 2011

Как можно использовать строку подключения sql на нескольких веб-страницах. Я просматривал приведенный ниже код, но не вижу, как этот код соединяется с базой данных.

выберите дело str_Action 

case str_AddLangText
    ' Complete add
    if isarray(str_temp1) and isarray(lng_ActionPermissionID) then
        for lng_Count2 = lbound(lng_ActionPermissionID) to ubound(lng_ActionPermissionID)
            if isnumeric(lng_ActionPermissionID(lng_Count2)) then
                for lng_Count = lbound(str_temp1, 2) to ubound(str_temp1, 2)
                    str_SQL = "A_PagePermission_insert"
                    obj_ADO.ClearParameters
                    obj_ADO.AddParameter "SessionID", adChar, adParamInput, len(obj_Session.str_SessionID), obj_Session.str_SessionID
                    obj_ADO.AddParameter "PermissionID", adInteger, adParamInput, 8, clng(lng_ActionPermissionID(lng_Count2))                       
                    obj_ADO.AddParameter "PageID", adInteger, adParamInput, 8, clng(str_temp1(0, lng_Count))
                    obj_ADO.Execute str_SQL, adCmdStoredProc, obj_Session.int_CommandTimeout & "<br />"
                next
            end if
        next
    else
        str_Messages = trim(obj_Content.GetContent("ErrorCode50003"))
    end if
    str_Action = obj_Session.str_FileName
case str_DeleteLangText
    'Complete delete
    if isarray(str_temp1) and isnumeric(lng_PermissionID) then
        for lng_Count = lbound(str_temp1, 2) to ubound(str_temp1, 2)
            str_SQL = "A_PagePermission_delete"
            obj_ADO.ClearParameters
            obj_ADO.AddParameter "SessionID", adChar, adParamInput, len(obj_Session.str_SessionID), obj_Session.str_SessionID
            obj_ADO.AddParameter "PermissionID", adInteger, adParamInput, 8, clng(lng_PermissionID)
            obj_ADO.AddParameter "PageID", adInteger, adParamInput, 8, str_temp1(0, lng_Count)
            obj_ADO.Execute str_SQL, adCmdStoredProc, obj_Session.int_CommandTimeout & "<br />"
        next
    else
        str_Messages = trim(obj_Content.GetContent("ErrorCode50056"))
    end if
    str_Action = obj_Session.str_FileName
case else

выбор конца str_Messages = str_Messages & "
" & vbcrlf & str_Required

1 Ответ

1 голос
/ 10 июня 2011

obj_ADO, вероятно, создается в предыдущих кодовых блоках. Вы проверили, содержат ли все ваши файлы кода один и тот же файл (обычно conn.asp, setup.asp или аналогичный)?

Выполните поиск "Найти в файлах" с помощью obj_ADO. Вы должны быть в состоянии найти, где это используется.

Редактировать

Если вы получили слишком много результатов, попробуйте поискать Server.CreateObject("ADODB.Connection") или какой-либо другой вариант ADODB.

...