VPF::Отловить ошибки с предедущей страницы(GetLastError

alexburzak

Дата 15.4.2007, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 12.3.2007
Где: Hadera

Репутация: нет
Всего: 1

Hi! Снова я, если еще не надоел.
На этот раз отлавливаю ошибки у себя на сайте.
Сделал спец. страницу которая отрабатывает в случаии не предвиденной ошибки у меня где-нибудь на сайте.
В файле web.config: "<customErrors defaultRedirect="ErrorPages.aspx" mode="On">"
На этой странице(ErrorPages.aspx) хочу получить сообщение(номер ошибки, что-нибудь) об не запланированной ошибке.
Написал вот так:

Код


'------------------------------------------
Dim MailClient As String
MailClient = "<h1>Error !</h1><br><h3>" & Request.QueryString("aspxerrorpath") & "</h3>"
Dim LastError As Exception
Dim ErrMessage1 As String
Dim ErrMessage2 As String
LastError = Server.GetLastError()
Try
ErrMessage1 = LastError.Message
ErrMessage2 = Server.GetLastError.ToString
Catch ex As Exception

End Try
ErrMessage1 = ErrMessage1 & ErrMessage2
MailClient = MailClient & ErrMessage1
SendToClient(0, "webmaster???????logicpc.co.il", "Webmaster", MailClient)
'------------------------------------------

На одной из страниц своего сайта(Exsample.aspx.vb) сделал ошибку:
Dim tmp As Integer
tmp = "hj"
К сожадению, переменные "ErrMessage1" и "ErrMessage2" ПУСТЫЕ(Object reference not set to an instance of an object.) !
Плиз подскажите, что я делаю не так?
Может есть другие способы?
Инструменты:
Microsoft Visual Studio .NET 2003

Это сообщение отредактировал(а) alexburzak - 15.4.2007, 13:29

--------------------

HomePage :: Продвижение сайтов, сопровождение сайта малым и средним бизнесам в интернете

Exception

Дата 15.4.2007, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 18
Всего: 186

LastError = Server.GetLastError().GetBaseException()?

alexburzak

Дата 15.4.2007, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 12.3.2007
Где: Hadera

Репутация: нет
Всего: 1

"Object reference not set to an instance of an object" !
Смотрите код:

Код


        Dim MailClient As String
        MailClient = "<h1>Error !</h1><br><h3>" & Request.QueryString("aspxerrorpath") & "</h3>"
        Dim LastError As Exception
        Dim ErrMessageException As String
        Dim ErrMessageGetLastError As String
        Dim ErrMessageObjErr As String
        Dim ErrMessageGetBaseException As String
        Dim i As Integer
        i = 0
        LastError = Server.GetLastError()

        Try
            ErrMessageException = LastError.Message
        Catch ex As Exception
            i = i + 1
        End Try
        Try
            ErrMessageGetLastError = Server.GetLastError.ToString
        Catch ex As Exception
            i = i + 1
        End Try

        Try
            ErrMessageObjErr = Err.Number & Err.Description
        Catch ex As Exception
            i = i + 1
        End Try

        Try
            ErrMessageGetBaseException = Server.GetLastError().GetBaseException().ToString
        Catch ex As Exception
            i = i + 1
        End Try

        MailClient = MailClient & "<br>ErrMessageException:" & ErrMessageException & "<br>ErrMessageGetLastError:" & ErrMessageGetLastError & "<br>ErrMessageObjErr:" & ErrMessageObjErr & "<br><br>And i = " & i & "ErrMessageGetBaseException:" & ErrMessageGetBaseException
        SendToClient(i, "[email protected]", "Webmaster", MailClient)

Есть еще варианты?

Это сообщение отредактировал(а) alexburzak - 15.4.2007, 17:43

--------------------

HomePage :: Продвижение сайтов, сопровождение сайта малым и средним бизнесам в интернете

Naum

Дата 16.4.2007, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 743
Регистрация: 7.9.2005
Где: Саратов, ул. Поса дского, 298

Репутация: 2
Всего: 15

[quote ]
Because ErrDefault.aspx is displayed through redirection, the context for the error is lost and Server.GetLastError returns nothing from the target
[/quote]error page.
При отлове необработанных ошибок с помощью Error Pages. GetLastError ничего не дает. Чтобы получить доступ к LastError надо оталавливать такие ошибки с помощью Global.asax.
Пример:

Код


Private Sub Page_Error(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Error
    ' Write the error to the trace log.
    Trace.Warn("Error", "Error event", Server.GetLastError())
    ' Save a message to display as a Session state variable.
    Session("Error") = "An unexpected error occurred." + _
    'Try your task again."
    ' Clear the error.
    Server.ClearError()
    ' Clear text fields on this page.
    ClearTextBoxes()
End Sub

--------------------

У нас всего два праздника Новый год и ТЯПница.

alexburzak

Дата 16.4.2007, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 12.3.2007
Где: Hadera

Репутация: нет
Всего: 1

Ой спасибочки большое!
Так оно и оказалась, жаль что я не могу +, нужно набрать еще надцать сообщений!

--------------------

HomePage :: Продвижение сайтов, сопровождение сайта малым и средним бизнесам в интернете

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »