admin_logmang.aspx.vb

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

Imports System.Data
Imports System.Xml
Imports System.Web
Imports System.IO
Imports System.Configuration
Imports flyangel.article.twotipclass

Public Class admin_logmang
    Inherits System.Web.UI.Page
    Protected WithEvents logEntryRepeater As System.Web.UI.WebControls.TextBox
    Protected WithEvents backup_button As System.Web.UI.WebControls.Button
    Protected WithEvents delete_button As System.Web.UI.WebControls.Button
    Protected WithEvents addzhuanti_error_message As System.Web.UI.WebControls.Label
    Protected WithEvents logtype_Label As System.Web.UI.WebControls.Label
    Dim xsdXmlSchema As String = ConfigurationSettings.AppSettings("logxsd")
    Dim myXmlDataDocument As New XmlDataDocument()
    Dim mytempdata As DataView
    Protected WithEvents aboutHyperLink As System.Web.UI.WebControls.HyperLink
    Dim _temp_xmlfilename As String

#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)
        '在此处放置初始化页的用户代码
        If Session("KEY") <> "super" Then
            Response.Redirect("index.aspx")
            Response.End()
        End If


        '修改或删除时错误提示代码
        Dim _temp_message As String
        _temp_message = Request.QueryString("message")
        If _temp_message <> "" Then
            addzhuanti_error_message.Text = _temp_message
        End If
        '修改或删除时错误提示代码
        Dim action As String
        action = Request.QueryString("action")
        If action = "usereventlog" Then
            _temp_xmlfilename = ConfigurationSettings.AppSettings("eventxml")
            delete_button.Text = "删除用户操作日志"
            backup_button.Text = "用户操作日志备份"
            logtype_Label.Text = "用户操作日志"
            aboutHyperLink.Text = "数据操作日志"
            aboutHyperLink.NavigateUrl = "admin_logmang.aspx"
        Else
            _temp_xmlfilename = ConfigurationSettings.AppSettings("logxml")
            logtype_Label.Text = "数据操作日志"
            aboutHyperLink.Text = "用户操作日志"
            aboutHyperLink.NavigateUrl = "admin_logmang.aspx?action=usereventlog"
        End If


        Try
            myXmlDataDocument.DataSet.ReadXmlSchema(xsdXmlSchema)
            myXmlDataDocument.Load(_temp_xmlfilename)

            ' Databind our datasource to our guestbook repeater
            mytempdata = myXmlDataDocument.DataSet.Tables("Entry").DefaultView
            mytempdata.Sort = "ID Desc"

            Dim i As Integer
            For i = 0 To mytempdata.Table.Rows.Count - 1
                logEntryRepeater.Text += "记录时间：" & mytempdata.Table.Rows(i)("Date") & Chr(10)
                logEntryRepeater.Text += "事件主题：" & mytempdata.Table.Rows(i)("Tittle") & "    事件人：" & mytempdata.Table.Rows(i)("Name") & "    IP地址：" & mytempdata.Table.Rows(i)("IpAdress") & Chr(10)
                logEntryRepeater.Text += "事件内容： " & mytempdata.Table.Rows(i)("Message") & Chr(10) & Chr(10)
            Next
        Catch ex As Exception
            addzhuanti_error_message.Text = "读入日志文件出错，请与管理员联系"
        End Try


    End Sub

    Private Sub backup_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backup_button.Click
        Dim backupfile, message, sFilename, sFiletime As String
        sFiletime = File.GetLastAccessTime(_temp_xmlfilename)
        sFilename = System.IO.Path.GetFileName(_temp_xmlfilename)

        sFiletime = Replace(sFiletime, "-", "")
        sFiletime = Replace(sFiletime, " ", "")
        sFiletime = Replace(sFiletime, ":", "")

        sFilename = Replace(sFilename, ".", "_" & sFiletime & ".")
        backupfile = ConfigurationSettings.AppSettings("LogBackUpContent") & sFilename
        If File.Exists(_temp_xmlfilename) Then
            File.Copy(_temp_xmlfilename, backupfile, True)
        End If

        Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
        If delete_button.Text = "用户操作日志备份" Then
            message = "备份用户操作日志成功！备份日志为：" & backupfile
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache("备份用户操作日志", Session("trueName"), message, Request.UserHostAddress)
        Else
            message = "备份数据操作日志成功！备份日志为：" & backupfile
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
            dplog.Log_Add_cache("备份数据操作日志", Session("trueName"), message, Request.UserHostAddress)
        End If
        Response.Redirect("admin_logmang.aspx?message=" & message)

    End Sub

    Private Sub delete_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete_button.Click
        Dim normalxml, message As String
        normalxml = ConfigurationSettings.AppSettings("normalxml")
        If File.Exists(normalxml) Then
            File.Copy(normalxml, _temp_xmlfilename, True)
        End If
        Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
        If delete_button.Text = "删除用户操作日志" Then
            message = "删除用户操作日志成功！"
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache("删除用户操作日志", Session("trueName"), message, Request.UserHostAddress)
        Else
            message = "删除数据操作日志成功！"
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache("删除数据操作日志", Session("trueName"), message, Request.UserHostAddress)
        End If
        Response.Redirect("admin_logmang.aspx?message=" & message)

    End Sub
End Class