user_reg.aspx.vb

程序设计:Flyangel 用到了vb.net c# asp.net xml等 最大特别是核心功能组件化. 特色: 强大的后台管理功能 支持二级分类 支持匿名投稿 超强用户权限设置

Imports flyangel.article.twotipclass

Public Class user_reg
    Inherits System.Web.UI.Page
    Protected WithEvents UsersName As System.Web.UI.WebControls.TextBox
    Protected WithEvents UsersPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents UsersEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents userpwd_val As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents email_val As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Regular_email As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents username_val As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents check_user As System.Web.UI.WebControls.Label
    Protected WithEvents btnReg As System.Web.UI.WebControls.Button
    Protected WithEvents panel_reg As System.Web.UI.WebControls.Panel
    Protected WithEvents ConfirmPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents confirm_val As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Comparepassword As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents DropDownList_userognization As System.Web.UI.WebControls.DropDownList
    Protected WithEvents return_index As System.Web.UI.WebControls.HyperLink
    Protected WithEvents passwordquestion As System.Web.UI.WebControls.TextBox
    Protected WithEvents Requiredfieldvalidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents questionanswer As System.Web.UI.WebControls.TextBox
    Protected WithEvents Requiredfieldvalidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Panel_reg_resualt As System.Web.UI.WebControls.Panel

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

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

    End Sub

    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
        '在此处放置初始化页的用户代码
        Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
        dpuser.AddUser_UserClass(DropDownList_userognization)
    End Sub

    Private Sub btnReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReg.Click
        Dim regbool As Boolean
        Dim strnormaluserreginfo As NormalUserRegInfo = New NormalUserRegInfo
        strnormaluserreginfo.UserName = Request.Form("UsersName")
        strnormaluserreginfo.UserPassWord = Request.Form("UsersPwd")
        strnormaluserreginfo.Quesion = Request.Form("passwordquestion")
        strnormaluserreginfo.Answer = Request.Form("questionanswer")
        strnormaluserreginfo.UserClass = Request.Form("DropDownList_userognization")
        strnormaluserreginfo.UserEmail = Request.Form("UsersEmail")
        Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
        regbool = dpuser.UserReg(strnormaluserreginfo, False)

        If regbool Then
            panel_reg.Visible = False
            Panel_reg_resualt.Visible = True
            Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache("注册用户", strnormaluserreginfo.UserName, "注册用户 '" & strnormaluserreginfo.UserName & "' 成功！", Request.UserHostAddress)

        Else
            check_user.Text = "提示：此帐号已经存在，请更换用户名称"
        End If
    End Sub

End Class