admin_file.aspx.vb

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

Imports System.Configuration
Imports System.IO
Imports flyangel.article.twotipclass
Imports flyangel.article.Components

Public Class admin_file
    Inherits System.Web.UI.Page
    Protected WithEvents addzhuanti_error_message As System.Web.UI.WebControls.Label
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable

#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
        '在此处放置初始化页的用户代码
        If Not Page.IsPostBack Then
            Dim filterstring As String = "(FileName='UPLOAD' or FileName='LOGBACKUP' or FileName='HTML')"
            datebind(ConfigurationSettings.AppSettings("WebSitePath"), "admin_file.aspx", "FileType='Directory'", filterstring)
        End If
        If Request.Params("Action") <> "del" Then
            If Request.Params("FileType") = "Directory" Then
                Session("currentdir") = Request.Params("FileName")
                Dim filterstring As String = ""
                If Request.Params("FileName") = "HTML" Then
                    filterstring = "FileType='htm'"
                End If
                datebind(ConfigurationSettings.AppSettings("WebSitePath") & Request.Params("FileName") & "/", "admin_file.aspx", filterstring, "")
                addzhuanti_error_message.Text = "你现在正在对目录" & Session("currentdir") & "进行操作！"
            Else
                If Request.Params("FileType") <> "" And Request.Params("FileType") <> "Directory" Then
                    Response.Redirect(ConfigurationSettings.AppSettings("SiteWebUrl") & Session("currentdir") & "/" & Request.Params("FileName"), True)
                End If
            End If
        Else
            If Request.Params("FileType") = "Directory" Then
                addzhuanti_error_message.Text = "你不能对系统目录进行删除操作！！"
            Else
                If File.Exists(ConfigurationSettings.AppSettings("WebSitePath") & Session("currentdir") & "/" & Request.Params("FileName")) Then
                    addzhuanti_error_message.Text = Session("currentdir") & "/" & Request.Params("FileName") & "删除成功！"
                    File.Delete(ConfigurationSettings.AppSettings("WebSitePath") & Session("currentdir") & "/" & Request.Params("FileName"))
                    Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
                    dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
                    dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
                    dplog.Log_Add_cache("文件管理-删除操作", Session("trueName"), Session("currentdir") & "/" & Request.Params("FileName") & "删除成功！", Request.UserHostAddress)
                Else
                    addzhuanti_error_message.Text = Session("currentdir") & "/" & Request.Params("FileName") & "文件并不存在！"
                End If
                Dim filterstring As String = ""
                If Session("currentdir") = "HTML" Then
                    filterstring = "FileType='htm'"
                End If
                datebind(ConfigurationSettings.AppSettings("WebSitePath") & Session("currentdir") & "/", "admin_file.aspx", filterstring, "")
            End If
        End If
    End Sub


    Private Sub datebind(ByVal _filepath As String, ByVal _filehttp As String, ByVal _filetype As String, ByVal _selectstring As String)
        Dim listitemtab As New DataView

        Dim dbfly As iFileDoClass = HowToUsingFlyangel.iFileDoClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        listitemtab = dbfly.ShowDirectoryAndFile(_filepath)
        If _filetype <> "" Then
            listitemtab.RowFilter = _filetype
            If _selectstring <> "" Then
                listitemtab.RowFilter = _selectstring
            End If
        End If
        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"文件名称", "文件类型", "文件大小", "文件生成日期"}
        Dim Stringb As String() = {"FileName", "FileType", "FileSize", "LastModifiedTime"}
        Dim Stringc As String() = {_filehttp, "", "", ""}
        Dim Stringd As String() = {"FileType|FileName", "", "", ""}
        Dim Stringe As Integer() = {0, 60, 80, 120}
        myinfo.PadingDataKeyFiled = "FileName"
        myinfo.PadingColumnHeaderName = Stringa
        myinfo.PadingColumnItemFiled = Stringb
        myinfo.PadingColumnUrlExpress = Stringd
        myinfo.PadingColumnUrlName = Stringc
        myinfo.PadingColumnWidth = Stringe
        DataGridPading1.SetPadingPageInfo = myinfo
        DataGridPading1.SetPadingPageSize = 15
        DataGridPading1.SetPadingTotalRecords = listitemtab.Count
        DataGridPading1.DataSource = listitemtab
        DataGridPading1.DataBind()

    End Sub


End Class