1Public Class navigator2Class navigator2
 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 ImageButton7 As System.Web.UI.WebControls.LinkButton
11    Protected WithEvents imgorder As System.Web.UI.WebControls.LinkButton
12    Protected WithEvents imgbtnreg As System.Web.UI.WebControls.LinkButton
13    Protected WithEvents ImageButton8 As System.Web.UI.WebControls.LinkButton
14    Protected WithEvents ImageButton4 As System.Web.UI.WebControls.LinkButton
15    Protected WithEvents ImageButton5 As System.Web.UI.WebControls.LinkButton
16    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
17    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
18    Protected WithEvents HyperLink2 As System.Web.UI.WebControls.HyperLink
19
20    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
21    '不要删除或移动它。
22    Private designerPlaceholderDeclaration As System.Object
23
24    Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
25        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
26        '不要使用代码编辑器修改它。
27        InitializeComponent()
28    End Sub
29
30#End Region
31
32    Private _flag As String
33    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
34        If Session("_login") = 1 Then
35            imgbtnreg.Text = "信息修改"
36            imgbtnreg.ToolTip = "信息修改"
37            ImageButton4.Text = "我的页面"
38            ImageButton4.ToolTip = "进入我的页面"
39        Else
40            imgbtnreg.Text = "用户注册"
41            imgbtnreg.ToolTip = "用户注册"
42            ImageButton4.Text = "关于我们"
43            ImageButton4.ToolTip = "关于我们"
44        End If
45
46
47
48    End Sub
49
50    Private Sub ImageButton7_Click()Sub ImageButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageButton7.Click
51        Response.Redirect("index.aspx")
52    End Sub
53
54    Private Sub imgorder_Click()Sub imgorder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imgorder.Click
55        Response.Redirect("userInfo.aspx?flag=5")
56    End Sub
57
58    Private Sub imgbtnreg_Click()Sub imgbtnreg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imgbtnreg.Click
59        If Session("_login") = 1 Then
60            Dim userinfo As New users(Session("UserID"))
61            Response.Redirect("register.aspx")
62        Else
63            Response.Redirect("regnotice.aspx")
64        End If
65    End Sub
66
67    Private Sub ImageButton8_Click()Sub ImageButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageButton8.Click
68        Response.Redirect("Download.aspx")
69    End Sub
70
71    Private Sub ImageButton4_Click()Sub ImageButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageButton4.Click
72
73        If Session("_login") = 1 Then
74            Response.Redirect("userinfo.aspx")
75        Else
76            Response.Redirect("aboutus.aspx")
77        End If
78
79        ' Response.Redirect("mailto:ivanstudio@foxmail.com")
80    End Sub
81
82    Private Sub ImageButton5_Click()Sub ImageButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageButton5.Click
83        Response.Redirect("newsPage.aspx")
84    End Sub
85
86    Private Sub LinkButton1_Click()Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
87        Response.Redirect("aboutus.aspx")
88    End Sub
89End Class
90