register.aspx.vb

来自「这是用ASP.NET和SQLserver编写的购物网站的程序」· VB 代码 · 共 129 行

Imports System.Data.SqlClient
Public Class register
    Inherits System.Web.UI.Page
    Dim cstring As String = ConfigurationSettings.AppSettings("ConnectionString")
    Protected WithEvents ImageButton1 As System.Web.UI.WebControls.ImageButton
    Protected WithEvents HyperLink6 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink5 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink4 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink3 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink2 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents TextBox10 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label9 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox9 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label8 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox8 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label7 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox7 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label6 As System.Web.UI.WebControls.Label
    Protected WithEvents Label12 As System.Web.UI.WebControls.Label
    Protected WithEvents Label10 As System.Web.UI.WebControls.Label
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents user1 As System.Web.UI.WebControls.Label
    Protected WithEvents id1 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents id2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label11 As System.Web.UI.WebControls.Label
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents RegularExpressionValidator2 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents Hyperlink11 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Label14 As System.Web.UI.WebControls.Label
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Dim conn As SqlConnection = New SqlConnection(cstring) '定义数据库连接
#Region " Web 窗体设计器生成的代码 "

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

    End Sub
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label

    '注意: 以下占位符声明是 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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim cmd As New SqlCommand  '定义控件
        conn.Open() '打开连接
        If TextBox1.Text <> "" Then
            cmd.CommandText = "select userid from account where userid='" & TextBox1.Text & "'"
            cmd.Connection = conn
            Dim s As String = cmd.ExecuteScalar() '返回一个值
            If s <> "" Then
                Dim strscript As String = "<script language=javascript>alert('您的用户名已存在')</script>"
                RegisterClientScriptBlock("系统消息", strscript) '弹出对话框
            Else
                Dim strscript As String = "<script language=javascript>alert('您可以使用该用户名')</script>"
                RegisterClientScriptBlock("系统消息", strscript) '弹出对话框
            End If
        Else
            Dim strscript As String = "<script language=javascript>alert('用户名不能为空')</script>"
            RegisterClientScriptBlock("系统消息", strscript) '弹出对话框
        End If
        conn.Close() '关闭连接
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmd As New SqlCommand  '定义控件
        Dim strscript As String
        If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" And TextBox7.Text <> "" And TextBox8.Text <> "" And TextBox9.Text <> "" And TextBox10.Text <> "" Then
            conn.Open() '打开连接
            cmd.CommandText = "select userid from account where userid='" & TextBox1.Text & "'" '查询用户名是否存在
            cmd.Connection = conn
            Dim s As String = cmd.ExecuteScalar '返回一个值
            If s <> "" Then
                strscript = "<script language=javascript>alert('您的用户名已存在')</script>"
                RegisterClientScriptBlock("系统消息", strscript) '弹出对话框
            Else
                If TextBox3.Text <> TextBox2.Text Then
                    strscript = "<script language=javascript>alert('与上面填写的密码不一致')</script>"
                    RegisterClientScriptBlock("系统消息", strscript) '弹出对话框
                Else
                    cmd.CommandText = "insert into account values('" & TextBox1.Text & "','" & TextBox4.Text & "','" & TextBox10.Text & "','" & TextBox8.Text & "','" & TextBox6.Text & "' ,'" & TextBox5.Text & "','" & TextBox7.Text & "' ,'" & TextBox9.Text & "')" '把用户信息添加到数据库中
                    cmd.Connection = conn
                    cmd.ExecuteNonQuery() '不返回值
                    cmd.CommandText = "insert into signon values('" & TextBox1.Text & "','" & TextBox2.Text & "')"  '把密码添加到数据库中
                    cmd.Connection = conn
                    cmd.ExecuteNonQuery() '不返回值
                    strscript = "<script language=javascript>alert('注册成功,您可以登录了')</script>"
                    RegisterClientScriptBlock("系统消息", strscript) '弹出对话框                    
                End If
            End If
            conn.Close() '关闭连接
        Else
            strscript = "<script language=javascript>alert('您填写的信息不完全')</script>"
            RegisterClientScriptBlock("系统消息", strscript) '弹出对话框
        End If
    End Sub

    Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Response.Redirect("webform1.aspx")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class