admin.aspx.vb

留言版用ddd dd!

Imports System.Data
Imports System.Data.OleDb
Public Class admin
    Inherits System.Web.UI.Page
    Dim MidForm As New WebForm1
    Dim SqlTxt As String
    Protected WithEvents PnAdmin As System.Web.UI.WebControls.Panel
    Protected WithEvents LbAdminHead As System.Web.UI.WebControls.Label
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents RequiredFieldValidator7 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    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 ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents TxtAdminPwd1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtAdminEmail 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 TxtPageSize As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtNote As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtTopHtml As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtBtmHtml As System.Web.UI.WebControls.TextBox
    Protected WithEvents RfvSize As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RfvSizeNum As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents TPwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents PnSuper As System.Web.UI.WebControls.Panel
    Protected WithEvents DgSuper As System.Web.UI.WebControls.DataGrid

#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 BtLoginOk As System.Web.UI.WebControls.Button
    Protected WithEvents PnLogin As System.Web.UI.WebControls.Panel
    Protected WithEvents Rfv01 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Rfv02 As System.Web.UI.WebControls.RequiredFieldValidator

    '注意: 以下占位符声明是 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
        If Not IsNothing(Request.Cookies("UserType")) Then
            LbAdminHead.Text = "<table><tr><td class=gbtitle align=center height=21><B><A href=http://www.blue1000.com>BK留言簿(www.blue1000.com)管理</A>：[" & Request.Cookies("UserType").Value & "]</B></td></tr><tr><td><a href=index.aspx?Id=" & Request.Cookies("UserType").Value & "><font color=blue>处理帖子</font></a></td></tr></table>"
            PnLogin.Visible = False
            PnAdmin.Visible = True
            If Not IsPostBack Then GiveInfor(Request.Cookies("UserType").Value)
            If Request.Cookies("BKGB").Value = 1 Then
                GetGd()
            End If
        End If
    End Sub

    Private Sub BtLoginOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLoginOk.Click
        Dim AdminId, AdminPwd As String
        Dim AdminType As Short
        AdminId = Trim(Replace(TxtAdminId.Text, "'", "''"))
        AdminPwd = Trim(Replace(TxtAdminPwd.Text, "'", "''"))
        SqlTxt = "Select * From AdminInfor Where AdminId = '" & AdminId & "' And AdminPwd = '" & AdminPwd & "'"
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        Dim ObjReader As OleDbDataReader = ObjCmd.ExecuteReader()
        If Not ObjReader.Read() Then
            Response.Write("<font color=red>管理ID或者管理密码错误！请重试！</font>")
            ObjReader.Close()
        Else
            AdminType = ObjReader.Item("AdminType")
            Response.Cookies("BKGB").Value = AdminType
            Response.Cookies("UserType").Value = AdminId
            ObjReader.Close()
            ObjCmd.Connection.Close()
            ObjCmd.Dispose()
            Response.Redirect("Admin.aspx")
        End If
    End Sub
    Sub GiveInfor(ByVal StrId As String)
        SqlTxt = "Select * From AdminInfor Where AdminId = '" & StrId & "'"
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        Dim ObjReader As OleDbDataReader = ObjCmd.ExecuteReader()
        ObjReader.Read()
        PnLogin.Visible = False
        PnAdmin.Visible = True
        TxtAdminEmail.Text = ObjReader.Item("AdminEmail")
        TxtSiteName.Text = ObjReader.Item("AdminSiteName")
        TxtSiteUrl.Text = ObjReader.Item("AdminSiteUrl")
        TxtSiteInfor.Text = ObjReader.Item("AdminSiteInfor")
        TxtPageSize.Text = ObjReader.Item("AdminPageSize")
        TxtNote.Text = Trim(ObjReader.Item("AdminSiteNote")) & " "
        TxtTopHtml.Text = Trim(ObjReader.Item("AdminSiteTop")) & " "
        TxtBtmHtml.Text = Trim(ObjReader.Item("AdminSiteButtom")) & " "
        ObjReader.Close()
        ObjCmd.Connection.Close()
        ObjCmd.Dispose()
    End Sub
    Function TxtRe(ByVal MidStr As String)
        MidStr = Server.HtmlEncode(Trim(Replace(MidStr, "'", "''")))
        Return MidStr
    End Function

    Private Sub BtOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOk.Click
        Dim MidPwd, MidNote, MidTop, MidBtm, MidAdminPwd, MidAdminSiteName, MidAdminSiteUrl, MidAdminEmail, MidAdminSiteInfor As String
        Dim MidPageSize As Short
        MidPwd = Trim(Replace(TPwd.Text, "'", "''"))
        MidAdminEmail = TxtRe(TxtAdminEmail.Text)
        MidAdminSiteName = TxtRe(TxtSiteName.Text)
        MidAdminSiteUrl = TxtSiteUrl.Text
        MidAdminSiteInfor = TxtRe(TxtSiteInfor.Text)
        MidPageSize = TxtPageSize.Text
        MidNote = Trim(Replace(TxtNote.Text, "'", "''"))
        MidTop = Trim(Replace(TxtTopHtml.Text, "'", "''"))
        MidBtm = Trim(Replace(TxtBtmHtml.Text, "'", "''"))
        If MidPageSize = 0 Then MidPageSize = 10
        If Left(MidAdminSiteUrl, 7) <> "HTTP://" And Left(MidAdminSiteUrl, 7) <> "Http://" And Left(MidAdminSiteUrl, 7) <> "http://" Then MidAdminSiteUrl = "HTTP://" & MidAdminSiteUrl
        If TPwd.Text = "" Then
            SqlTxt = "Update AdminInfor set AdminSiteName='" & MidAdminSiteName & "',AdminSiteUrl='" & MidAdminSiteUrl & "',AdminEmail='" & MidAdminEmail & "',AdminSiteInfor='" & MidAdminSiteInfor & "',AdminSiteTop='" & MidTop & "',AdminSiteButtom='" & MidBtm & "',AdminPageSize= " & MidPageSize & ",AdminSiteNote='" & MidNote & "' Where AdminId ='" & Request.Cookies("UserType").Value & "'"
        Else
            SqlTxt = "Update AdminInfor set AdminPwd='" & MidPwd & "',AdminSiteName='" & MidAdminSiteName & "',AdminSiteUrl='" & MidAdminSiteUrl & "',AdminEmail='" & MidAdminEmail & "',AdminSiteInfor='" & MidAdminSiteInfor & "',AdminSiteTop='" & MidTop & "',AdminSiteButtom='" & MidBtm & "',AdminPageSize= " & MidPageSize & ",AdminSiteNote='" & MidNote & "' Where AdminId ='" & Request.Cookies("UserType").Value & "'"
        End If
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        ObjCmd.ExecuteNonQuery()
        ObjCmd.Connection.Close()
        ObjCmd.Dispose()
        Response.Write("<font color=red>成功修改！</font><br>")
        Response.Redirect("Admin.aspx")
    End Sub
    Sub GetGd()
        PnSuper.Visible = True
        SqlTxt = "Select * From AdminInfor Where AdminType = 0"
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        Dim ObjAd As New OleDbDataAdapter(ObjCmd)
        Dim Ds As New DataSet
        ObjAd.Fill(Ds, "AdminTable")
        DgSuper.DataSource = Ds.Tables("AdminTable")
        DgSuper.DataBind()
        ObjCmd.Dispose()
    End Sub
    Sub Dg_Edit(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        DgSuper.EditItemIndex = e.Item.ItemIndex
        GetGd()
    End Sub
    Sub Dg_Cancel(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        DgSuper.EditItemIndex = -1
        GetGd()
    End Sub
    Sub Dg_Update(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        SqlTxt = "Delete * From AdminInfor Where AdminId='" & DgSuper.DataKeys(e.Item.ItemIndex) & "'"
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        ObjCmd.ExecuteNonQuery()
    End Sub
    Sub PageChange(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
        DgSuper.CurrentPageIndex = e.NewPageIndex
        GetGd()
    End Sub
End Class