1Imports System 
 2Imports System.Data 
 3Imports System.Configuration 
 4Imports System.Collections 
 5Imports System.Web 
 6Imports System.Web.Security 
 7Imports System.Web.UI 
 8Imports System.Web.UI.WebControls 
 9Imports System.Web.UI.WebControls.WebParts 
10Imports System.Web.UI.HtmlControls 
11
12Public Partial Class viewguestClass viewguest 
13    Inherits System.Web.UI.Page 
14    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
15        If Session("loginname") Is Nothing OrElse Session("loginname").ToString() = "" Then 
16            Response.Write("<script>alert('用户登录时间超时,请重新登录');document.location='admin.aspx'</script>") 
17            Response.[End]() 
18        End If 
19    End Sub 
20End Class