/
Error.aspx.vb
85 lines (75 loc) · 3.49 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 System
Imports System.ComponentModel
Imports System.Drawing
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.Web.SystemModule
Public Partial Class ErrorPage
Inherits Page
Protected Overrides Sub InitializeCulture()
If WebApplication.Instance IsNot Nothing Then Call WebApplication.Instance.InitializeCulture()
End Sub
Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim testScriptsManager As TestScriptsManager = New TestScriptsManager(Page)
testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "FormCaption", TestControlType.Field, "FormCaption")
testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "RequestUrl", TestControlType.Field, "RequestUrl")
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
RequestUrl.NavigateUrl = errorInfo.Url
RequestUrl.Text = errorInfo.Url
RequestUrl2.NavigateUrl = errorInfo.Url
RequestUrl2.Text = errorInfo.Url
If Not String.IsNullOrEmpty(errorInfo.UrlReferrer) Then
HyperLinkReturn.NavigateUrl = errorInfo.UrlReferrer
Else
LiteralReturn.Visible = False
HyperLinkReturn.Visible = False
End If
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"
Overrides Protected Sub OnInit(ByVal e As EventArgs)
InitializeComponent()
MyBase.OnInit(e)
End Sub
Private Sub InitializeComponent()
AddHandler Load, New EventHandler(AddressOf Page_Load)
AddHandler PreRender, New EventHandler(AddressOf ErrorPage_PreRender)
End Sub
Private Sub ErrorPage_PreRender(ByVal sender As Object, ByVal e As EventArgs)
Call 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)
Call ErrorHandling.ClearApplicationError()
ApologizeMessage.Visible = False
ReportForm.Visible = False
Details.Visible = False
ReportResult.Visible = True
End If
End Sub
End Class