register.aspx.vb

教务实验室选课系统

Public Class register
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents email As System.Web.UI.WebControls.TextBox
    Protected WithEvents phone As System.Web.UI.WebControls.TextBox
    Protected WithEvents valid1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents password2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents rfd4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents password1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents rfd3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents username As System.Web.UI.WebControls.TextBox
    Protected WithEvents rfd2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents realname As System.Web.UI.WebControls.TextBox
    Protected WithEvents rfd1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents number As System.Web.UI.WebControls.TextBox
    Protected WithEvents message As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents HyperLink2 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents memo As System.Web.UI.WebControls.TextBox

    '注意: 以下占位符声明是 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
        '提交注册信息
        Dim bool1 As Boolean = False
        Dim bool2 As Boolean = False
        Dim dsn As String = ConfigurationSettings.AppSettings("DSN_student")
        Dim conn As New SqlClient.SqlConnection
        conn.ConnectionString = dsn
        Dim cmd As IDbCommand = conn.CreateCommand()
        
        If Page.IsValid Then   '页面验证成功		
            cmd.CommandText = "select * from student_infor where s_id='" + number.Text + "'"
            Try
                conn.Open()
                Dim reader As IDataReader
                reader = cmd.ExecuteReader()
                If reader.Read Then '如果有此账号
                    '比较填写的真实姓名一栏的值和数据库表项中的s_name内容
                    If Trim(realname.Text) = Trim(reader.Item("s_name")) Then
                        If reader.Item("s_iflogin") = True Then 's_iflogin字段表示学生是否已经注册
                            Label1.Text = "该用户已经注册"
                        Else
                            bool1 = True
                            Label1.Text = ""
                        End If
                    Else
                        Label1.Text = "您所输入的号码和姓名不匹配，请重新填写"
                    End If
                Else
                    Label1.Text = "你所输入的学号/老师号不存在，请重新填写"
                End If
                reader.Close()
            Catch
                Label1.Text = "数据库操作失败，可能是服务器出现错误，请稍后再试！非常抱歉影响了您的工作！"
            Finally
                conn.Close()
            End Try

        Else
            Label1.Text = "页面有错误"
        End If

        'sql2表示插入语句中values中的值
        Dim sql2 As String = "'" + number.Text + "','" + username.Text + "','" + password1.Text + "','" + DateTime.Now.Date + "','" + email.Text + "','" + phone.Text + "','" + memo.Text + "'"

        If bool1 Then '如果此用户账号存在、并且未注册
            bool1 = False
            '插入注册信息
            cmd.CommandText = "insert into student_login (S_ID,SL_NAME,SL_Pwd,SL_Date,SL_MailBox,SL_phone,sl_memo) values (" + sql2 + ")"
            Try
                conn.Open()
                cmd.ExecuteReader()
                bool2 = True
            Catch
                Label1.Text = "数据库操作失败，可能是服务器出现错误，请稍后再试！非常抱歉影响了您的工作！"
                bool2 = False
            Finally
                conn.Close()
            End Try
            If bool2 Then '判断在注册是是否出现意外情况，                
                '将student_infor的对应项的s_iflogin置为1,表示已经注册过了
                cmd.CommandText = "UPDATE student_infor SET s_iflogin = '1' WHERE (s_id = '" + number.Text + "')"
                Try
                    conn.Open()
                    cmd.ExecuteReader()
                Catch
                    Label1.Text = "数据库操作失败，可能是服务器出现错误，请稍后再试！非常抱歉影响了您的工作！"
                Finally
                    conn.Close()
                End Try
                '显示注册成功信息
                Panel1.Visible = False
                Panel2.Visible = True
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '重置各项textbox内容为空
        number.Text = ""
        realname.Text = ""
        username.Text = ""
        password1.Text = ""
        password2.Text = ""
        phone.Text = ""
        email.Text = ""
    End Sub
End Class