1Imports System
 2Imports System.ComponentModel
 3Imports System.Data
 4Imports System.Web
 5Imports System.Web.SessionState
 6Imports System.Web.UI
 7Imports System.Web.UI.WebControls
 8Imports System.Configuration
 9Imports Microsoft.VisualBasic
10'51aspx.com
11Public Class logClass log
12    Inherits System.Web.UI.Page
13    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
14    Protected WithEvents password As System.Web.UI.WebControls.TextBox
15    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
16    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
17
18Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 "
19
20    '该调用是 Web 窗体设计器所必需的。
21    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
22
23    End Sub
24
25    Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
26        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
27        '不要使用代码编辑器修改它。
28        InitializeComponent()
29    End Sub
30
31#End Region
32
33    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
34        If password.Text <> ConfigurationSettings.AppSettings("密码") Then
35            Label1.Text = "密码错误,请重新输入"
36        Else
37            Session("name") = ConfigurationSettings.AppSettings("站长")
38            Response.Redirect("default.aspx")
39        End If
40    End Sub
41
42    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
43        If Session("name") <> "" Then
44            Session.Abandon()
45            Response.Redirect("default.aspx")
46        End If
47    End Sub
48End Class
49