【正文】 nd download file and share resources by browser。 Upload and Download。而且當今人們需要存儲的數據量越來越大，還要要求使用方便，能夠在網絡的任何地方訪問存儲的數據，單靠 USB 存儲也已經不能完全滿足這些需求了。因此，許多人都希望擁有一個良好的“網絡存儲與交換系統(tǒng)”，解決資料信息的存儲、攜帶和交流的煩惱。我們常用的文件傳輸 FTP、 Email 郵件、網上鄰居都 能 實現文件的傳送。 由此看來，以上三種方式雖然在一定程度上實現了文件數據的交流，但它們都主要面向 “ 點對點 ” 的傳送（你只能被動地等對方放置數據而不能主動 “ 可視化 ” 地索?。?，無法實現 “ 一塊空間，資源互見 ” 的應用需求，這種基于 “ 點對多 ” 的共享方式需要尋求另外的傳輸途徑， 網絡存儲與交換系統(tǒng) 就是一種很好的解決方式。那 么為了提高信息交流的效率，就因該想辦法讓信息交流的方式更加簡單、方便、有效。我們就簡單稱之為網絡硬盤，它 是服務器上的一塊硬盤空間，在這里，如果你具備足夠的權限，你可以對它隨意操 作，就 像 使用你的本地計算機一樣。從此我們在很多情況下不用隨身攜帶移動硬盤等 USB 存儲工具，不用再為你的 USB 存儲工具攜帶保管犯愁，不用再為你的數據存儲擔憂。通過 提供的 3個功能強大的數據顯示控件： Repeater， DataList和 GataGrid，這 3個控 件與 強大的數據訪問功能相結合，完成對文件的共享、顯示、下載等功能。 (3) 收費管理：按照空間大小收費、根據用戶的積分、 等級 實施優(yōu)惠收費，為用戶提供共享的文件提供積分累計。 3 系統(tǒng)功能設計 該數據存儲與交 換系統(tǒng)，主要是為用戶提供一個網上存儲空間，方便用戶隨時隨地上網通過瀏覽器就可以進行數據資料的存儲、下載與共享，主要有以下基本功能。 用戶管理 管理員可以對用戶進行添加、刪除和修改操作，可以鎖定和解鎖定用戶，可以修改用戶等級。 共享管理 管理員可根據舉報查看文件內容確認后可將該文件鎖定，不允許其在共享區(qū)域顯示。 收費管理 管理員可以添加、刪除、修改用戶積分等級， 根據用戶的積分 等級 實施優(yōu)惠收費。 用戶注冊 用戶注冊必須指定用戶名、密碼、密碼保護資料、電子郵箱，注冊同時在服務器指定文件夾 myfile 內新建一個用戶 個人文件夾，作為用戶個人文件保存的空間，新用戶注冊默認等級為普通用戶，空間大小為 50MB。 共享查詢 顯示所有用戶共享的而且未被管理員鎖定的文件，并可以下載共享文件 ,如發(fā)現共享內容為不健康或帶反動言語等不良共享文件可進行舉報。 修改個人資料 用戶對自己注冊資料可進行修改，包括密碼、密碼保護資料。 4 數據庫設計 該系統(tǒng)采用 SQL Server 2020 數據庫，根據系統(tǒng)的功能，共設計了 5張表單，包括管理員信息表、用戶等級表、積分等級表、用戶信息表、文件信息表，這些表單都在數據庫 NWMS 中。 admin 表 此表用來記錄系統(tǒng)管理員信息，并且只能由管理員操作管理，如表 1。 表 2 UsersRank（用戶等級）表 字 段 數據類型 說 明 vUserRank int(4) 用戶等級編號（主鍵） vRankName varchar(20) 等級名稱 vSpaceSize varchar(20) 空間大小 vSpaceSb bigint(8) 空間大小（ Byte） vCharge varchar(20) 該等級價格 圖 1 系統(tǒng) 功能模塊 圖 用戶管理 共享管理 管理員管理 收費管理 后臺管理 文件管理 升級查詢 共享查詢 空間信息 資料修改 用戶空間管理 Users 表 此表用于記錄用戶信息，如表 3。 表 4 UserFiles（文件信息）表 字 段 數據類型 說 明 UserId varchar(50) 用戶 ID vFileSize varchar(50) 文件大小 vFileSb bigint(8) 文件大?。?Byte） vFileName varchar(50) 文件名 vWay varchar(100) 文件路徑（主鍵） vSharType varchar(50) 共享類型 vUpDate varchar(50) 修改日期 vDownCount int(4) 下載統(tǒng)計 vFileLock varchar(10) 文件鎖定狀態(tài) vFileUp int(4) 舉報狀態(tài) IntegralRank 表 此表用于記錄用戶積分等級信息，如表 5。 用戶登錄模塊 用戶登錄界面（ ）是起始界面，必須登錄后才可以進行其他的操作。其中登錄 Button 的觸發(fā)主要代碼如下： = Data Source=86BC14A814F7477。User ID=sa。在數據庫 Users表中搜尋與輸入的用戶名和密碼相匹 配的數 組 Session(UserId) = 39。登錄成功跳轉頁面 Exit Do End If Loop () () ()39。當這些都滿足后點擊注冊，觸發(fā)事件代碼開始搜索用戶信息表（ Users），檢驗是否存在相同用戶名，如存在，那么提示“該用戶已經注冊！”，退回注冊頁面，主要代碼如下： = Select UserId From Users objReader = () Do While () If = (UserId) Then () 39。同時將用戶等級類型設定為“ 1”，即普通用戶，享有空間大小為 50MB；將用戶鎖定類型設為空，即默認未鎖；將用戶積分等級設為 0，剛注冊用戶對未共享過任何文件，未為資源共享做貢獻，所以不 具有收費優(yōu)惠。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 \myfile, ) MkDir(filepath) 39。注冊成功！39。=39。/script) End If 用戶主界面模塊 用戶主界面（ ）采用分頁技術顯示，主要有上和左、右 3 部分。 圖 2 用戶主界面操作圖 文件存儲管理模塊 在主界面 左邊的鏈 接中點 擊“文 件管理” 連接到 文件管 理頁面（ ），該頁面利用 DataGrid 的強大顯示功能為用戶顯示了當前用戶所上傳的所有文件，并可以對任 何一個文件通過“編輯”超鏈接到編輯頁面（ ）進行共享和文件名的修改；還可以通過點擊文件名下載當前文件，還可以通過點擊刪除，刪除相應行文件信息和文件（刪除文件運用的是Kill( )）。 amp。 39。Initial Catalog=NWMS。Password=123 Dim objAdapter As New SqlDataAdapter(Sql, SqlServer) (ds, UserFiles) = ds () () () End Sub (2) 點擊文件名觸發(fā)下載文件 事件的主要 代碼 如下 ： Dim fileW As String = (0).Text Dim filepath As String = (fileW) Dim filename As String = (filepath) () = application/octetstream (ContentDisposition, attachment。獲取傳值 If Not () Then = (Way) 39。獲取 TextBox的控件中的用戶名 Dim FileNameE As String = (Way)39。 FileNameE 39。合并兩路徑字符串，合并成新路徑 Dim pathnameO As String = ((.), Way) Dim pathnameN As String = ((.), FilenewWay) 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。修改相對應的文件的文件名 文件上傳模塊 在主界面左邊的鏈接中或文件管理 頁面的 右上角點擊 “ 文件上傳 ” 就 鏈接到文件上傳 頁面 （ ），該 頁面 用 File Field 控件完成文件上傳，通過 上傳 代碼 “ ( )” 將文件上傳保存到用戶個人文件夾下面 ,并將文件信息寫如數據庫 UserFiles 表。 ” ，如果有則繼續(xù)下步 ，搜索用戶已經上傳文件的總大小，加上當前將要上傳的文件大小之和，判斷其是否超過用戶等級限定的空間大小，如果超過，則彈出對話框 “ 你的空間不足！ ” ；如果未超過，表示還可以上傳，再檢測上傳空間內是否存在相同文件名（包括擴展名），如果有則將文件覆蓋，修改文件保存相關信息提示 “ XX文件被覆蓋 ” ，如果沒有則提示 “ XX 文件成功上傳到服務器 ” ，保存文件相關信息和文件。提取控件路徑中的文件名 FileUname1 = (myfile, userid) FileUname = ((.), FileUname1) 39。 userid amp。 userid amp。 UserRank amp。 userid amp。 FileNewlB amp。 FileNewl amp。 FileNname amp。 FileNewW amp。 “不共享 ” amp。 Now amp。 “” amp。 “” amp。 “” amp。 FileNname amp。 FileNewlB (4) 如空間有相同文件，則主要代碼如下： = UPDATE UserFiles SET vFileSize=39。 FileNewlB amp。,vFileSb=39。 FileNewl amp。,vUpDate=39。 Now amp。,vDownCount=39。 amp。,vFileLock=39。 amp。,vFileUp=39。 amp。 WHERE vWay=39。 FileNewW amp。 n = (Filepath) 39。 FileNname amp。 FileNewlB (5) 自定義一個換算字符長度的 Function代碼如下： Public Function ConvertBytes(ByVal Bytes As Long) As String 39。 GB ElseIf Bytes = 1048576 Then Return Format(Bytes / 1024 / 1024, ) amp。 KB ElseIf Bytes 0 And Bytes 1024 Then Return Fix(Bytes) amp。如果鎖定欄下有“√”符號，那么證明你所共享的文件被別人舉報，經過管理員核查屬于不合適文件，它將不會再被顯示到共享區(qū)域。 amp。 39。 amp。 39。Initial Catalog=NWMS。Password=123 Dim objAdapter As New SqlDataAdapter(Sql, SqlServer) (ds, UserFiles) = ds () (2) 取消 Button 觸發(fā)事件主要代碼： Dim cmd As New SqlCommand(Sql, conn) (New SqlParameter(vWay, , 50)) (vWay).Value = (0).Text 公共共享查詢模塊 在主界面左邊的鏈接中點擊“公共共享”就鏈接到公共共享查詢頁面（ ），該頁面也采用 DateGrid 控件顯示所有人共享的文件的信息，用戶可以從表中看到文件名、提供用戶、文件大小、更新時間、下載統(tǒng)計， 默認是按下載統(tǒng)計次數排列。當用戶下載了共享區(qū)域的文件后，那么該文件