login.aspx.vb

该学生信息管理系统是我自己写的

Imports System.Data
Imports System.Data.SqlClient
Imports System
Imports System.Collections
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Public Class login
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents RadioButton1 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents RadioButton2 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents username As System.Web.UI.WebControls.TextBox
    Protected WithEvents pass As System.Web.UI.HtmlControls.HtmlInputText

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then     '选择权限  管理员
            Dim conn As New SqlConnection
            Dim cmd As New SqlCommand
            Dim objReader As SqlDataReader
            Dim i As Integer

            conn.ConnectionString = "Data Source=MY-TOMATO;Initial Catalog=Student;User ID=sa;Password=sa"
            conn.Open()
            cmd.Connection = conn
            cmd.CommandText = "Select * From admin"
            objReader = cmd.ExecuteReader()
            Do While objReader.Read()
                If username.Text = objReader.Item("adminname") And pass.Value = objReader.Item("passwd") Then
                    Session("usrname") = username.Text
                    Response.Redirect("Admin0.aspx") '登录成功
                
                    Exit Do
                End If
            Loop
            Response.Write("<h2 align=center>请重新输入</h2>")
            objReader.Close()
            conn.Close()
        Else                     '选择权限 学生
            Dim conn As New SqlConnection
            Dim cmd As New SqlCommand
            Dim objReader As SqlDataReader
            Dim i As Integer

            conn.ConnectionString = "Data Source=MY-TOMATO;Initial Catalog=Student;User ID=sa;Password=sa"
            conn.Open()
            cmd.Connection = conn
            cmd.CommandText = "Select * From users"
            objReader = cmd.ExecuteReader()
            Do While objReader.Read()
                If username.Text = objReader.Item("Username") And pass.Value = objReader.Item("passwd") Then
                    Session("usrname") = username.Text
                    Response.Redirect("User.aspx") '登录成功
                
                    Exit Do
                End If
            Loop
            Response.Write("<h2 align=center>请重新输入</h2>")
            objReader.Close()
            conn.Close()
        End If
    End Sub


End Class