当前文件路径：NetShopForge/Website/Admin/AdminMasterPage.master.vb

		            
 1'该源码下载自http://www.51aspx.com/CV/NetShopForge(５１ａｓｐｘ．ｃｏｍ)
 2
 3Partial Class MasterPageClass MasterPage
 4    Inherits System.Web.UI.MasterPage
 5
 6    Protected Sub Page_PreRender()Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
 7        Page.Title = Resources.ShopSetting.WEBSITE_TITLE
 8
 9    End Sub
10
11    'Private Sub RetainScrollPosition()
12
13    '    Dim saveScrollPosition As New StringBuilder
14    '    Dim setScrollPosition As New StringBuilder
15
16    '    Page.ClientScript.RegisterHiddenField("__SCROLLPOS", "0")
17    '    saveScrollPosition.Append("<script language='javascript'>")
18    '    saveScrollPosition.Append("function saveScrollPosition() {")
19    '    saveScrollPosition.Append(" document.forms[0].__SCROLLPOS.value = thebody.scrollTop;")
20    '    saveScrollPosition.Append("}")
21    '    saveScrollPosition.Append("thebody.onscroll=saveScrollPosition;")
22    '    saveScrollPosition.Append("</script>")
23
24    '    Page.ClientScript.RegisterStartupScript(Me.GetType(), "saveScroll", saveScrollPosition.ToString())
25
26    '    If (Page.IsPostBack = True) Then
27
28    '        setScrollPosition.Append("<script language='javascript'>")
29    '        setScrollPosition.Append("function setScrollPosition() {")
30    '        setScrollPosition.Append(" thebody.scrollTop = " & Request("__SCROLLPOS") & ";")
31    '        setScrollPosition.Append("}")
32    '        setScrollPosition.Append("thebody.onload=setScrollPosition;")
33    '        setScrollPosition.Append("</script>")
34    '        Page.ClientScript.RegisterStartupScript(Me.GetType(), "setScroll", setScrollPosition.ToString())
35
36    '    End If
37
38    'End Sub
39
40
41    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
42
43        If Not System.Web.Security.Roles.IsUserInRole(My.User.Name, "Administrator") Then
44
45            '  Dim ReturnURL As String = Server.MapPath("~")
46
47            'My.Response.Redirect(String.Format("~/Admin/Login.aspx?ReturnURL={0}", ReturnURL)) '?ReturnURL=" & Page. 
48            My.Response.Redirect(String.Format("~/Admin/Login.aspx"))
49        End If
50        SetNotProcessedOrder()
51
52
53    End Sub
54
55    Protected Sub lnkLogout_Click()Sub lnkLogout_Click(ByVal sender As Object, ByVal e As System.EventArgs)
56        ''forget the user
57        'If Not Request.Cookies("shopperID") Is Nothing Then
58        '    Request.Cookies("shopperID").Expires = DateTime.UtcNow.AddDays(-1.0R)
59        '    Response.Cookies("shopperID").Value = ""
60        '    Response.Cookies.Add(Request.Cookies("shopperID"))
61        'End If
62        ''Log it
63        'TrackerController.Add(BehaviorType.LoggingOut)
64        FormsAuthentication.SignOut()
65        Response.Redirect("~/Admin/Login.aspx", False)
66    End Sub
67
68    Private Sub SetNotProcessedOrder()Sub SetNotProcessedOrder()
69        Dim I As Integer
70        If Session("NotProcessOrder") Is Nothing Then
71            I = Order.OrderController.GetNotProcessedOrder
72        Else
73            I = Integer.Parse(Session("NotProcessOrder"))
74        End If
75        If I > 0 Then hlNotProcessedOrder.Text = String.Format(Resources.AdminResources.HEAD_CAPTION_NOTPROCESSEDORDER, I.ToString)
76    End Sub
77End Class
78