link环境下如何通过codefirst技术实现制作的网盘软件的剩余空间进度条？

http://www.zzjs.net/html/414.html

后台调用的过程

Imports System.Collections
Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Partial Class frmNotice
Inherits System.Web.UI.Page

Dim list As New ArrayList
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

Dim strPath As String = Server.MapPath(".")
Dim strFolder As String = strPath & "/FolderNotice"
Dim strDir As String
For Each obj In My.Computer.FileSystem.GetDirectories(strFolder)
strDir = obj.ToString
PlaceHolder1.Controls.Add(gbHandler.getListFolder("FolderNotice", strDir))
Next
End Sub
后台调用的过程

Imports System.Collections
Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Partial Class frmNotice
Inherits System.Web.UI.Page

Dim list As New ArrayList
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

Dim strPath As String = Server.MapPath(".")
Dim strFolder As String = strPath & "/FolderNotice"
Dim strDir As String
For Each obj In My.Computer.FileSystem.GetDirectories(strFolder)
strDir = obj.ToString
PlaceHolder1.Controls.Add(gbHandler.getListFolder("FolderNotice", strDir))
Next
End Sub

后台调用的过程

Imports System.Collections
Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Partial Class frmNotice
Inherits System.Web.UI.Page

Dim list As New ArrayList
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

Dim strPath As String = Server.MapPath(".")
Dim strFolder As String = strPath & "/FolderNotice"
Dim strDir As String
For Each obj In My.Computer.FileSystem.GetDirectories(strFolder)
strDir = obj.ToString
PlaceHolder1.Controls.Add(gbHandler.getListFolder("FolderNotice", strDir))
Next
End Sub
后台调用的过程

Imports System.Collections
Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Partial Class frmNotice
Inherits System.Web.UI.Page

Dim list As New ArrayList
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

Dim strPath As String = Server.MapPath(".")
Dim strFolder As String = strPath & "/FolderNotice"
Dim strDir As String
For Each obj In My.Computer.FileSystem.GetDirectories(strFolder)
strDir = obj.ToString
PlaceHolder1.Controls.Add(gbHandler.getListFolder("FolderNotice", strDir))
Next
End Sub