/
Error.aspx.vb
85 lines (79 loc) · 3.03 KB
/
Error.aspx.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Imports Microsoft.VisualBasic
Imports System
Imports System.IO
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Globalization
Imports System.Threading
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports DevExpress.ExpressApp.Web
Imports DevExpress.ExpressApp.Web.TestScripts
Imports DevExpress.ExpressApp.Utils
Imports DevExpress.ExpressApp.SystemModule
Imports DevExpress.ExpressApp.Web.SystemModule
Partial Public Class ErrorPage
Inherits System.Web.UI.Page
Protected Overrides Sub InitializeCulture()
If WebApplication.Instance IsNot Nothing Then
WebApplication.Instance.InitializeCulture()
End If
End Sub
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim testScriptsManager As New TestScriptsManager(Page)
testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "FormCaption", TestControlType.Field, "FormCaption")
testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "DescriptionTextBox", TestControlType.Field, "Description")
testScriptsManager.RegisterControl(JSDefaultTestControl.ClassName, "ReportButton", TestControlType.Action, "Report")
testScriptsManager.AllControlRegistered("")
If WebApplication.Instance IsNot Nothing Then
ApplicationTitle.Text = WebApplication.Instance.Title
Else
ApplicationTitle.Text = "No application"
End If
Header.Title = "Application Error - " & ApplicationTitle.Text
Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError()
If errorInfo IsNot Nothing Then
If ErrorHandling.CanShowDetailedInformation Then
DetailsText.Text = errorInfo.GetTextualPresentation(True)
Else
Details.Visible = False
End If
ReportResult.Visible = False
ReportForm.Visible = ErrorHandling.CanSendAlertToAdmin
Else
ErrorPanel.Visible = False
End If
End Sub
#Region "Web Form Designer generated code"
Protected Overrides Sub OnInit(ByVal e As EventArgs)
InitializeComponent()
MyBase.OnInit(e)
End Sub
Private Sub InitializeComponent()
' Me.Load += New System.EventHandler(Me.Page_Load);
' Me.PreRender += New EventHandler(ErrorPage_PreRender);
End Sub
Private Sub ErrorPage_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.PreRender
RegisterThemeAssemblyController.RegisterThemeResources(CType(sender, Page))
End Sub
#End Region
Protected Sub ReportButton_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError()
If errorInfo IsNot Nothing Then
ErrorHandling.SendAlertToAdmin(errorInfo.Id, DescriptionTextBox.Text, errorInfo.Exception.Message)
ErrorHandling.ClearApplicationError()
ApologizeMessage.Visible = False
ReportForm.Visible = False
Details.Visible = False
ReportResult.Visible = True
End If
End Sub
Protected Sub NavigateToStart_Click(ByVal sender As Object, ByVal e As EventArgs)
WebApplication.Instance.LogOff()
End Sub
End Class