webdiskinfo.aspx.vb

来自「是可以运行的电子光盘 有程序与PPT介绍 对于学习VB。NET的有参考意义」· VB 代码 · 共 71 行

Imports System.web.Configuration
Imports System.data
Partial Class Help_WebDiskInfo
    Inherits WebDiskBasePage
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Me.Page.IsPostBack Then
            lblUser.Text = Session("User")

            '从Web.config中获取system.web/httpRuntime项中的最大上传文件
            Dim config As Configuration = WebConfigurationManager.OpenWebConfiguration("~/web.config")
            Dim section As HttpRuntimeSection = CType(config.GetSection("system.web/httpRuntime"), HttpRuntimeSection)
            Dim maxFileSize As Long = section.MaxRequestLength  '本身以M为单位
            lblSingleFile.Text = Math.Round(section.MaxRequestLength / 1024.0, 1).ToString & "M"

            Dim lngTotalUse As Long = FileDirServer.GetDirectorySize(Session("UserDir"))
            lblTotalUse.Text = FileDirServer.FormatSize(lngTotalUse)

            '按照百分比显示空间使用量
            Dim Percent As Single

            Dim LoginType As Data.LoginType
            LoginType = Session("LoginType")
            If LoginType = Data.LoginType.SUPUERMANAGER Then
                '管理员
                lblTotalDisk.Text = FileDirServer.FormatSize(Data.C_LargeManagerDir)
                lblSpare.Text = FileDirServer.FormatSize((Data.C_LargeManagerDir - lngTotalUse))
                Percent = lngTotalUse / Data.C_LargeManagerDir
            Else
                '普通用户
                lblTotalDisk.Text = FileDirServer.FormatSize(Data.C_LargeUseDir)
                lblSpare.Text = FileDirServer.FormatSize((Data.C_LargeUseDir - lngTotalUse))
                Percent = lngTotalUse / Data.C_LargeUseDir
            End If
            lblPercent.Text = Format(Percent, "0.00%")
            If Percent >= 1 Then
                imgDiskUse.Width = 300
            Else
                imgDiskUse.Width = Percent * 300 'lngTotalUse \ Data.C_LargeUseDir
            End If
            '共享给我的目录数
            Dim ds As DataSet
            Dim dv As DataView
            ds = ShareXmlServer.GetDataSetByXml(Data.C_ShareDirXmlMapPath)
            If Not IsNothing(ds) Then
                dv = ds.Tables(0).DefaultView
                dv.RowFilter = "EnableUser='" + Session("User") + "'"
                lblShareToMeDir.Text = dv.Count.ToString
                '公共共享的目录数
                lblPublicDir.Text = ds.Tables(0).Rows.Count
                ds = Nothing
                dv = Nothing
            End If
            '共享给我的文件数
            ds = ShareXmlServer.GetDataSetByXml(Data.C_ShareFileXmlMapPath)
            If Not IsNothing(ds) Then
                dv = ds.Tables(0).DefaultView
                dv.RowFilter = "EnableUser='" + Session("User") + "'"
                lblShareToMeFile.Text = dv.Count.ToString
                '公共共享的文件数
                lblPublicFile.Text = ds.Tables(0).Rows.Count
                ds = Nothing
                dv = Nothing
            End If
            '我的网络硬盘总目录数和总文件数
            Dim dirCount As Long
            lblTotalFile.Text = FileDirServer.GetFileCount(FileDirServer.GetUserDir(Session("User")), dirCount)
            lblTotalDir.Text = dirCount
        End If
    End Sub
End Class