Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
date_time = Now.ToString("hh:mm, MMM-dd-yy")
Dim constrng As String = ConfigurationManager.ConnectionStrings("cs").ConnectionString
If Session("user_id") Is Nothing Then
Response.Redirect("Login.aspx")
Else
Welcome_id.Text = "Welcome " + Session("user_id").ToString
fill_zone()
grid_view_load()
End If
End If
End Sub
想要全局用户登录会话和连接字符串