-
Notifications
You must be signed in to change notification settings - Fork 11
/
Error.aspx.vb
73 lines (66 loc) · 3.11 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
Imports System
Imports System.Web.UI
Imports DevExpress.ExpressApp.Web
Imports DevExpress.ExpressApp.Web.SystemModule
Imports DevExpress.ExpressApp.Web.Templates
Imports DevExpress.ExpressApp.Web.TestScripts
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
Protected Overrides Sub OnPreInit(ByVal e As EventArgs)
MyBase.OnPreInit(e)
BaseXafPage.SetupCurrentTheme()
End Sub
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If TestScriptsManager.EasyTestEnabled Then
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()
ClientScript.RegisterStartupScript(Me.GetType(), "EasyTest", testScriptsManager.GetScript(), True)
End If
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
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()
End Sub
Private Sub ErrorPage_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles Me.PreRender
RegisterThemeAssemblyController.RegisterThemeResources(DirectCast(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)
ClientScript.RegisterStartupScript(Me.GetType(), "alert", "alert('Your report has been sent. Thank you.');", True)
End If
End Sub
Protected Sub NavigateToStart_Click(ByVal sender As Object, ByVal e As EventArgs)
WebApplication.Instance.LogOff()
End Sub
End Class