温馨提示:代码在线浏览功能只能做为源码浏览参考,如果想更进一步了解该代码请下载:Vb.net网上订票系统源码
1Public Class Navigator 2
Inherits System.Web.UI.UserControl 3
4
Web 窗体设计器生成的代码 30
31
Private _flag As String 32
Private 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(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(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(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(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(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(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(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton8.Click 71
Response.Redirect("Download.aspx") 72
End Sub 73
End Class 74







