数据存储与交换系统—毕业设计论文

数据存储与交换系统—毕业设计论文内容摘要：

类型设定为“ 1”，即普通用户，享有空间大小为 50MB；将用户锁定类型设为空，即默认未锁；将用户积分等级设为 0，刚注册用户对未共享过任何文件，未为资源共享做贡献，所以不 具有收费优惠。 主要代码如下： = INSERT INTO Users(UserId,UserPwd,PwdQuestion,PwdAnwser,Email,Ser,,UserName,Telephone,vUserRank,vRegDate,vUserLock,vContrbRank,UserIn,vUserSore) VALUES(39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 ser amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 1 amp。 39。 ,39。 amp。 Today amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ) If 0 Then Dim filepath As String = ((.) amp。 \myfile, ) MkDir(filepath) 39。 新建个人文件夹，文件名为用户名 (script language=javascriptalert(39。 注册成功。 39。 )。 =39。 39。 /script) End If 用户主界面模块 用户主界面（ ）采用分页技术显示，主要有上和左、右 3 部分。 左边固定显示 页 面，主要给用户提供操作链接，通过点击左边的链接（包括有：文件管理、文件上传、我的共享、公共共享、空间升级、空间信息、个人资料和退出系统），将相应的操作页面在右边显示出来，右边的初始页面为用户个人空间信息页面（ ），具体界面如图 2。 图 2 用户主界面操作图 文件存储管理模块 在主界面 左边的链 接中点 击“文 件管理” 连接到 文件管 理页面（ ），该页面利用 DataGrid 的强大显示功能为用户显示了当前用户所上传的所有文件，并可以对任 何一个文件通过“编辑”超链接到编辑页面（ ）进行共享和文件名的修改；还可以通过点击文件名下载当前文件，还可以通过点击删除，删除相应行文件信息和文件（删除文件运用的是Kill( )）。 主要代码如下： (1) 初始化页面和声明绑定数据过程 Bind()主要代码如下： If Not () Then () End If Sub Bind() Dim userid As String = Session(UserId) Sql = Select * From UserFiles WHERE UserId=39。 amp。 userid amp。 39。 SqlServer = Data Source=86BC14A814F7477。 Initial Catalog=NWMS。 User ID=sa。 Password=123 Dim objAdapter As New SqlDataAdapter(Sql, SqlServer) (ds, UserFiles) = ds () () () End Sub (2) 点击文件名触发下载文件 事件的主要 代码 如下 ： Dim fileW As String = (0).Text Dim filepath As String = (fileW) Dim filename As String = (filepath) () = application/octetstream (ContentDisposition, attachment。 filename= + filename) () (filepath) (3) 点击删除时，删除当前行文件和文件信息，主要代码如下： Dim Sql As String = Delete UserFiles WHERE vWay=@vWay Dim cmd As New SqlCommand(Sql, conn) (New SqlParameter(@vWay, , 50)) (@vWay).Value = (0).Text () () Dim pathname As String = ((.), (0).Text) Kill(pathname) () () () () (4) 点击 datagrid 控件中的超链接列“编辑”，连接到相应文件编辑页面（ =?file={0}） ，通过 file 将相应行的文件路径值传给文件编辑页面，文件编辑主要代码如下：  初始化页的代码如下： Way = (file) 39。 获取传值 If Not () Then = (Way) 39。 从路径中获取不含扩展名的用户名 End If  修改 Button 触发的事件主要代码如下： Dim FileNameW As String = 39。 获取 TextBox的控件中的用户名 Dim FileNameE As String = (Way)39。 从路径中提取文件扩展名 Dim FileNameA As String = FileNameW amp。 FileNameE 39。 合并两字符串 Dim FilenewWay As String = ((Way), FileNameA) 39。 合并两路径字符串，合并成新路径 Dim pathnameO As String = ((.), Way) Dim pathnameN As String = ((.), FilenewWay) 39。 更新数据库数据表中的文件信息 = UPDATE UserFiles SET vWay=39。 amp。 FilenewWay amp。 39。 , vUpDate=39。 amp。 Now amp。 39。 ,vFileName=39。 amp。 FileNameA amp。 39。 ,vSharType=39。 amp。 type amp。 39。 WHERE vWay=39。 amp。 Way amp。 39。 n = () Rename(pathnameO, pathnameN)39。 修改相对应的文件的文件名 文件上传模块 在主界面左边的链接中或文件管理 页面的 右上角点击 “ 文件上传 ” 就 链接到文件上传 页面 （ ），该 页面 用 File Field 控件完成文件上传，通过 上传 代码 “ ( )” 将文件上传保存到用户个人文件夹下面 ,并将文件信息写如数据库 UserFiles 表。 上传之前判定控件内是否存在上传文件地址，如果没有则提示 “ 未发现文件。 ” ，如果有则继续下步 ，搜索用户已经上传文件的总大小，加上当前将要上传的文件大小之和，判断其是否超过用户等级限定的空间大小，如果超过，则弹出对话框 “ 你的空间不足。 ” ；如果未超过，表示还可以上传，再检测上传空间内是否存在相同文件名（包括扩展名），如果有则将文件覆盖，修改文件保存相关信息提示 “ XX文件被覆盖 ” ，如果没有则提示 “ XX 文件成功上传到服务器 ” ，保存文件相关信息和文件。 主 要 代码如下： Dim userid As String = Session(UserId) FileNname = () 39。 提取控件路径中的文件名 FileUname1 = (myfile, userid) FileUname = ((.), FileUname1) 39。 获得了文件上传目录 FileNewW = (FileUname1, FileNname) Filepath = (FileUname, FileNname) FileNewl = FileNewlB = ConvertBytes(FileNewl) (1) 统计已用空间大小主要代码如下： = “Select UserId From UserFiles” objReader = () Do While () If userid = (“UserId”) Then () = “Select SUM(vFileSb) From UserFiles WHERE UserId=‟” amp。 userid amp。 “‟” objReader = () () FileOldl = (0) „统计用户空间文件大小 Exit Do End If Loop (2) 获得用户空间大小主要代码如下： = “SELECT vUserRank From Users WHERE UserId= „” amp。 userid amp。 “‟” objReader = () UserRank = (0) „获得用户等级 () = “SELECT vSpaceSb From UsersRank WHERE vIserRank=‟” amp。 UserRank amp。 “‟” objReader = () SpaceSb = (0) „获得用户相应等级空间 () If FileSuml SpaceSb Then = “SELECT vWay FROM UserFiles” objReader = () Do While () If FileNewW = (“vWay”) Then I = 1 „搜寻用户空间中是否存在相同文件名 Exit Do End If Loop (3) 如空间内没有相同文件，则主要代码如下： = “INSERT INTO UserFiles(UserId,vFileSize,vFileSb,vFileName,vWay,vSharType,vUpDate,vDownCount,vFileLock,vFileUp) VALUES(„” amp。 userid amp。 “‟,‟” amp。 FileNewlB amp。 “‟,‟” amp。 FileNewl amp。 “‟,‟” amp。 FileNname amp。 “‟,‟” amp。 FileNewW amp。 “‟,‟” amp。 “不共享 ” amp。 “‟,‟” amp。 Now amp。 “‟,‟” amp。 “” amp。 “‟,‟” amp。 “” amp。 “‟,‟” amp。 “” amp。 “‟)” n = (Filepath) „上传文件到指定目录 = “文件 b” amp。 FileNname amp。 “/b成功上传到服务器，大小为 ” amp。 FileNewl。