当前文件路径：DNN/Library/Controls/ModuleAuditControl.vb

		            
 1'
 2' DotNetNuke?- http://www.dotnetnuke.com
 3' Copyright (c) 2002-2008
 4' by DotNetNuke Corporation
 5'
 6' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
 7' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
 8' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
 9' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
10'
11' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
12' of the Software.
13'
14' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
15' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
16' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
17' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
18' DEALINGS IN THE SOFTWARE.
19'
20Imports System.IO
21
22Namespace DotNetNukeNamespace DotNetNuke.UI.UserControls
23
24    Public MustInherit Class ModuleAuditControlClass ModuleAuditControl
25        Inherits System.Web.UI.UserControl
26
27        Protected lblCreatedBy As System.Web.UI.WebControls.Label
28
29        Private _CreatedDate As String = ""
30        Private _CreatedByUser As String = ""
31
32        Private MyFileName As String = "ModuleAuditControl.ascx"
33
34
35        ' public properties
36        Public WriteOnly Property CreatedDate()Property CreatedDate() As String
37            Set(ByVal Value As String)
38                _CreatedDate = Value
39            End Set
40        End Property
41
42        Public WriteOnly Property CreatedByUser()Property CreatedByUser() As String
43            Set(ByVal Value As String)
44                _CreatedByUser = Value
45            End Set
46        End Property
47
48        '*******************************************************
49        '
50        ' The Page_Load server event handler on this page is used
51        ' to populate the role information for the page
52        '
53        '*******************************************************
54
55        Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
56            Try
57
58                If Not Page.IsPostBack Then
59
60                    If IsNumeric(_CreatedByUser) Then
61                        ' contains a UserID
62                        Dim objUsers As New UserController
63                        Dim objUser As UserInfo = UserController.GetUser(PortalController.GetCurrentPortalSettings.PortalId, Integer.Parse(_CreatedByUser), False)
64                        If Not objUser Is Nothing Then
65                            _CreatedByUser = objUser.DisplayName
66                        End If
67                    End If
68
69                    Dim str As String = Services.Localization.Localization.GetString("UpdatedBy", Services.Localization.Localization.GetResourceFile(Me, MyFileName))
70                    lblCreatedBy.Text = String.Format(str, _CreatedByUser, _CreatedDate)
71
72                End If
73
74            Catch exc As Exception    'Module failed to load
75                ProcessModuleLoadException(Me, exc)
76            End Try
77        End Sub
78
79    End Class
80
81End Namespace
82