userreg.aspx.vb

留言版用ddd dd!

Imports System.Data
Imports System.Data.OleDb
Public Class WebForm2
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents TxtAdminId As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtAdminPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtAdminPwd1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtSiteName As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtSiteUrl As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtSiteInfor As System.Web.UI.WebControls.TextBox
    Protected WithEvents BtOk As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator5 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator6 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents TxtAdminEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents RequiredFieldValidator7 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary

    '注意: 以下占位符声明是 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 BtOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOk.Click
        Dim MidForm As New WebForm1
        Dim ObjConn As OleDbConnection = MidForm.SqlCon()
        MidForm.Dispose()
        Dim MidAdminId, MidAdminPwd, MidAdminSiteName, MidAdminSiteUrl, MidAdminEmail, MidAdminSiteInfor As String
        MidAdminId = Replace(TxtAdminId.Text, "'", "''")
        MidAdminPwd = Replace(TxtAdminPwd.Text, "'", "''")
        MidAdminSiteName = TxtRe(TxtSiteName.Text)
        MidAdminSiteUrl = Replace(TxtSiteUrl.Text, "'", "''")
        MidAdminEmail = Replace(TxtAdminEmail.Text, "'", "''")
        MidAdminSiteInfor = TxtRe(TxtSiteInfor.Text)
        If Left(MidAdminSiteUrl, 7) <> "HTTP://" And Left(MidAdminSiteUrl, 7) <> "Http://" And Left(MidAdminSiteUrl, 7) <> "http://" Then MidAdminSiteUrl = "HTTP://" & MidAdminSiteUrl
        Dim SqlTxt As String
        SqlTxt = "Select * From AdminInfor Where AdminId = '" & MidAdminId & "'"
        Dim ObjCmd As New OleDbCommand(SqlTxt, ObjConn)
        Dim ObjReader As OleDbDataReader = ObjCmd.ExecuteReader()
        If ObjReader.Read() Then
            ObjReader.Close()
            Response.Write("<font color=red>你选择的管理Id已经有人注册了！</font>")
        Else
            ObjReader.Close()
            SqlTxt = "Insert Into AdminInfor(AdminId,AdminPwd,AdminSiteName,AdminSiteUrl,AdminEmail,AdminSiteInfor,AdminSiteDate) Values ('" & MidAdminId & "','" & MidAdminPwd & "','" & MidAdminSiteName & "','" & MidAdminSiteUrl & "','" & MidAdminEmail & "','" & MidAdminSiteInfor & "','" & Date.Now & "')"
            ObjCmd.CommandText = SqlTxt
            ObjCmd.ExecuteNonQuery()
            Dim MidUrl As String = Request.Url.ToString
            Response.Write("<font color=red>申请已经成功提交，感谢你的支持！以下是你的留言簿地址：</font><br>")
            Response.Write(Replace(MidUrl, "UserReg.aspx", "index.aspx") & "?Id=" & MidAdminId)
        End If
        ObjConn.Close()
        ObjCmd.Dispose()
    End Sub
    Function TxtRe(ByVal MidStr As String)
        MidStr = Server.HtmlEncode(Trim(Replace(MidStr, "'", "''")))
        Return MidStr
    End Function
End Class