txtedit.aspx.vb

留言版用ddd dd!

Imports System.Data
Imports System.Data.OleDb
Public Class TxtEdit
    Inherits System.Web.UI.Page
    Dim MidForm As New WebForm1
    Dim SqlTxt, MidAct, ReUrl As String
    Dim MidBdId, MidTxtId As Integer
    Protected WithEvents PnReTo As System.Web.UI.WebControls.Panel
    Protected WithEvents TxtReTo As System.Web.UI.WebControls.TextBox
    Protected WithEvents BtReTo As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator5 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents BtNotRe As System.Web.UI.WebControls.Button
    Protected WithEvents BtReSet As System.Web.UI.WebControls.Button
    Protected WithEvents PnModify As System.Web.UI.WebControls.Panel
    Protected WithEvents TxtModifySubject As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtModifyContent As System.Web.UI.WebControls.TextBox
    Protected WithEvents BnModify As System.Web.UI.WebControls.Button
    Protected WithEvents BnModifyReset As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator6 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator7 As System.Web.UI.WebControls.RequiredFieldValidator
#Region " Web 窗体设计器生成的代码 "

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

    End Sub
    Protected WithEvents TxtWriter As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtHomePage As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtQQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents ImgUserFace As System.Web.UI.WebControls.Image
    Protected WithEvents DlUserFace As System.Web.UI.WebControls.DropDownList
    Protected WithEvents RbType As System.Web.UI.WebControls.CheckBox
    Protected WithEvents TxtSubject As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtContent 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 RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RegularExpressionValidator2 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents PnAddNew As System.Web.UI.WebControls.Panel

    '注意: 以下占位符声明是 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 Request.Browser.Cookies Then Response.Write("你的浏览器关闭了cookies功能，所以浏览本系统可能给你带来不便，望请谅解！请开启cookies功能……")
        If Not IsNothing(Request.Cookies("HomePage")) Then ReUrl = Request.Cookies("HomePage").Value
        If ReUrl = "" Then
            Response.Redirect("index.aspx")
            Response.End()
        End If
        MidBdId = Request.QueryString("BdId")
        MidTxtId = Request.QueryString("TxtId")
        MidAct = Request.QueryString("Act")
        Select Case MidAct
            Case "AddNew"
                AddNew()
            Case "Modify"
                WhoIsIt()
                modify()
            Case "ReTo"
                ReTo()
            Case "Del"
                WhoIsIt()
                Del(MidTxtId)
            Case Else
                Response.Redirect(ReUrl)
        End Select
    End Sub
    Sub modify()
        If Not IsPostBack Then
            SqlTxt = "Select TxtSubject,TxtContent From TxtInfor Where TxtId=" & MidTxtId
            Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
            Dim ObjReader As OleDbDataReader = ObjCmd.ExecuteReader()
            If Not ObjReader.Read() Then
                Response.Redirect("index.aspx")
                Response.End()
            Else
                TxtModifySubject.Text = ObjReader.Item("TxtSubject")
                TxtModifyContent.Text = ObjReader.Item("TxtContent")
                PnModify.Visible = True
            End If
            ObjReader.Close()
            ObjCmd.Connection.Close()
            ObjCmd.Dispose()
        End If
    End Sub
    Sub ReTo()
        PnReTo.Visible = True
    End Sub
    Private Sub BtReTo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtReTo.Click
        Dim MidTxtReTo As String
        MidTxtReTo = TxtRe(TxtReTo.Text)
        SqlTxt = "Insert Into TxtInfor(TxtContent,TxtParentId,TxtBoardId) Values ('" & MidTxtReTo & "','" & MidTxtId & "','" & MidBdId & "')"
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        ObjCmd.ExecuteNonQuery()
        ObjCmd.Connection.Close()
        ObjCmd.Dispose()
        PnReTo.Visible = False
        Response.Redirect(ReUrl)
    End Sub
    Sub Del(ByVal TxtId As Integer)
        SqlTxt = "Delete * From TxtInfor Where TxtId=" & TxtId
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        ObjCmd.ExecuteNonQuery()
        ObjCmd.Connection.Close()
        ObjCmd.Dispose()
        Response.Redirect(ReUrl)
    End Sub
    Sub AddNew()
        PnAddNew.Visible = True
    End Sub
    Sub SelectUserFace(ByVal sender As Object, ByVal e As System.EventArgs)
        ImgUserFace.ImageUrl = DlUserFace.SelectedValue
    End Sub
    Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOK.Click
        Dim Subject, Content, Writer, UserEmail, HomePage, UserFace, UserQQ, TxtDate As String
        Dim TxtType As Short
        If RbType.Checked() Then TxtType = 1
        HomePage = TxtHomePage.Text
        If Left(HomePage, 7) <> "HTTP://" Then HomePage = "HTTP://" & HomePage
        Subject = TxtRe(TxtSubject.Text)
        Content = TxtRe(TxtContent.Text)
        Writer = TxtRe(TxtWriter.Text)
        UserEmail = TxtRe(TxtEmail.Text)
        HomePage = TxtRe(HomePage)
        UserFace = DlUserFace.SelectedValue
        UserQQ = TxtQQ.Text.ToString
        TxtDate = CStr(Date.Now)
        SqlTxt = "Insert Into TxtInfor(TxtSubject,TxtContent,TxtDate,TxtWriter,TxtUserEmail,TxtUserQQ,TxtUserHomePage,TxtUserFace,TxtType,TxtBoardId) Values ('" & Subject & "','" & Content & "','" & TxtDate & "','" & Writer & "','" & UserEmail & "','" & UserQQ & "','" & HomePage & "','" & UserFace & "'," & TxtType & "," & MidBdId & ")"
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        ObjCmd.ExecuteNonQuery()
        ObjCmd.Connection.Close()
        ObjCmd.Dispose()
        PnAddNew.Visible = False
        Response.Cookies("UserName").Value = TxtDate
        Response.Cookies("UserName").Expires = DateTime.Now.AddMinutes(30)
        Response.Write("<script language=JavaScript>window.alert('留言已提交，感谢你的支持!')</script>")
        Response.Redirect(ReUrl)
    End Sub
    Function TxtRe(ByVal MidStr As String)
        MidStr = Trim(Replace(MidStr, "'", "''"))
        MidStr = Replace(MidStr, ">", "&gt;")
        MidStr = Replace(MidStr, "<", "&lt;")
        MidStr = Replace(MidStr, Chr(32), "&nbsp;")
        MidStr = Replace(MidStr, Chr(9), "&nbsp;")
        MidStr = Replace(MidStr, Chr(34), "&quot;")
        MidStr = Replace(MidStr, Chr(39), "&#39;")
        MidStr = Replace(MidStr, Chr(13), "")
        MidStr = Replace(MidStr, Chr(10), "<BR> ")
        Return MidStr
    End Function
    Private Sub BtNotRe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtNotRe.Click
        Response.Redirect(ReUrl)
    End Sub
    Private Sub BtReSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtReSet.Click
        Response.Redirect(ReUrl)
    End Sub
    Private Sub BnModifyReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BnModifyReset.Click
        Response.Redirect(ReUrl)
    End Sub
    Private Sub BnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BnModify.Click
        Dim MidModifySubject, MidModifyContent As String
        MidModifySubject = TxtRe(TxtModifySubject.Text)
        MidModifyContent = TxtRe(TxtModifyContent.Text)
        SqlTxt = "Update TxtInfor set TxtSubject='" & MidModifySubject & "',TxtContent='" & MidModifyContent & "' Where TxtId =" & MidTxtId
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        ObjCmd.ExecuteNonQuery()
        ObjCmd.Connection.Close()
        ObjCmd.Dispose()
        PnModify.Visible = False
        Response.Redirect(ReUrl)
    End Sub
    Sub WhoIsIt()
        Dim MidStrUser, MidStrType, StrUser, StrType As String
        If Not IsNothing(Request.Cookies("UserName")) Then StrUser = Request.Cookies("UserName").Value
        If Not IsNothing(Request.Cookies("UserType")) Then StrType = Request.Cookies("UserType").Value
        SqlTxt = "Select TxtInfor.TxtDate,AdminInfor.AdminId From TxtInfor,AdminInfor Where TxtInfor.TxtId=" & MidTxtId & " and AdminInfor.AdminBoardId = " & MidBdId
        Dim ObjCmd As OleDbCommand = MidForm.AddCmd(SqlTxt)
        Dim ObjReader As OleDbDataReader = ObjCmd.ExecuteReader()
        If ObjReader.Read() Then
            MidStrType = ObjReader.Item("AdminId")
            MidStrUser = ObjReader.Item("TxtDate")
        End If
        ObjCmd.Connection.Close()
        ObjReader.Close()
        ObjCmd.Dispose()
        If StrUser <> MidStrUser And StrType <> MidStrType Then
            Response.Write("<script language=JavaScript>{window.alert('你无权操作!');}</script>")
            Response.Redirect(ReUrl)
            Response.End()
        End If
    End Sub
End Class