1Public Class NavigatorClass Navigator
 2    Inherits System.Web.UI.UserControl
 3
 4Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 "
 5
 6    '该调用是 Web 窗体设计器所必需的。
 7    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
 8
 9    End Sub
10    Protected WithEvents ImageButton1 As System.Web.UI.WebControls.ImageButton
11    Protected WithEvents ImageButton4 As System.Web.UI.WebControls.ImageButton
12    Protected WithEvents ImageButton5 As System.Web.UI.WebControls.ImageButton
13    Protected WithEvents ImageButton7 As System.Web.UI.WebControls.ImageButton
14    Protected WithEvents ImageButton8 As System.Web.UI.WebControls.ImageButton
15    Protected WithEvents FONT1 As System.Web.UI.HtmlControls.HtmlGenericControl
16    Protected WithEvents imgorder As System.Web.UI.WebControls.ImageButton
17    Protected WithEvents imgbtnreg As System.Web.UI.WebControls.ImageButton
18
19    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
20    '不要删除或移动它。
21    Private designerPlaceholderDeclaration As System.Object
22
23    Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
24        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
25        '不要使用代码编辑器修改它。
26        InitializeComponent()
27    End Sub
28
29#End Region
30
31    Private _flag As String
32    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
33        If Session("_login") = 1 Then
34            imgbtnreg.ImageUrl = "../Images/Navigator/modify.bmp"
35        Else
36            imgbtnreg.ImageUrl = "../Images/Navigator/register.gif"
37        End If
38    End Sub
39
40    Private Sub ImageButton5_Click()Sub ImageButton5_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton5.Click
41        Response.Redirect("newsPage.aspx")
42    End Sub
43
44    Private Sub ImageButton7_Click()Sub ImageButton7_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton7.Click
45        Response.Redirect("index.aspx")
46    End Sub
47
48    Private Sub ImageButton1_Click()Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
49        Response.Redirect("index.aspx")
50    End Sub
51    Private Sub ImageButton4_Click()Sub ImageButton4_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton4.Click
52        Response.Redirect("aboutus.aspx")
53        Response.Redirect("mailto:ivanstudio@foxmail.com")
54    End Sub
55
56    Private Sub imgorder_Click()Sub imgorder_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgorder.Click
57        Response.Redirect("userInfo.aspx?flag=5")
58    End Sub
59
60    Private Sub imgbtnreg_Click()Sub imgbtnreg_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgbtnreg.Click
61        If Session("_login") = 1 Then
62            Dim userinfo As New users(Session("UserID"))
63            Response.Redirect("register.aspx")
64        Else
65            Response.Redirect("regnotice.aspx")
66        End If
67
68    End Sub
69
70    Private Sub ImageButton8_Click()Sub ImageButton8_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton8.Click
71        Response.Redirect("Download.aspx")
72    End Sub
73End Class
74