|
Public Class display
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Session("name") = "" Then
Response.Redirect("logoff.aspx")
End If
Response.Write("<HTML>")
Response.Write("<HEAD>")
Response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='1;display.aspx'>")
Response.Write("</HEAD>")
Response.Write("<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>")
Response.Write("<FONT SIZE=2 FACE='ARIAL'>")
Response.Write(Application("user20") & "<BR>")
Response.Write(Application("user19") & "<BR>")
Response.Write(Application("user18") & "<BR>")
Response.Write(Application("user17") & "<BR>")
Response.Write(Application("user16") & "<BR>")
Response.Write(Application("user15") & "<BR>")
Response.Write(Application("user14") & "<BR>")
Response.Write(Application("user13") & "<BR>")
Response.Write(Application("user12") & "<BR>")
Response.Write(Application("user11") & "<BR>")
Response.Write(Application("user10") & "<BR>")
Response.Write(Application("user9") & "<BR>")
Response.Write(Application("user8") & "<BR>")
Response.Write(Application("user7") & "<BR>")
Response.Write(Application("user6") & "<BR>")
Response.Write(Application("user5") & "<BR>")
Response.Write(Application("user4") & "<BR>")
Response.Write(Application("user3") & "<BR>")
Response.Write(Application("user2") & "<BR>")
Response.Write(Application("user1") & "<BR>")
Response.Write("</FONT>")
Response.Write("</BODY>")
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.