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 
11Imports System.Data.OleDb 
12
13Public Partial Class adminClass admin 
14    Inherits System.Web.UI.Page 
15    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
16            
17    End Sub 
18
19    Protected Sub Button1_Click()Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) 
20        Try 
21        Using oleconn As New OleDbConnection() 
22            oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
23            oleconn.Open() 
24            Dim strSQL As String = "Select * From admin where admin_name='" + admin_name.Text.ToString() + "' " 
25            Dim command As New OleDbCommand(strSQL, oleconn) 
26            Dim dataReader As OleDbDataReader = command.ExecuteReader() 
27            If dataReader.Read() Then 
28                Dim mypassword As String = dataReader("admin_pwd").ToString() 
29                If mypassword = admin_pwd.Text.ToString() Then 
30                    Session("admin") = dataReader("admin_name").ToString() 
31                    Session("loginpwd") = dataReader("admin_pwd").ToString() 
32                    Session("loginname") = dataReader("admin_name").ToString() 
33                    Response.Redirect("admin_main.aspx") 
34                Else 
35                    Response.Write("<script language='javascript'>window.confirm('密码不正确，请后退重填！！');</script>") 
36                    Response.Write("<script language='javascript'>parent.window.history.go(-1);</script>") 
37                                        
38                End If 
39            Else 
40                Response.Write("<script language='javascript'>window.confirm('用户名不正确！！');</script>") 
41                Response.Write("<script language='javascript'>parent.window.history.go(-1);</script>") 
42            End If 
43            dataReader.Close() 
44            oleconn.Close() 
45            oleconn.Dispose() 
46        End Using 
47        Catch err As Exception 
48            Dim str As String = err.Message.Replace("'", "") 
49            Response.Write("<script>alert('" + str + "');</script>") 
50        End Try 
51    End Sub 
52End Class