ASP.NET数据存储与交换系统设计

摘要

该系统以Microsoft Visual Studio 2003作为开发工具，选用SQL Server 2000数据库来实现数据存储，并设计开发了一种基于B/S模式的数据存储与交换系统。该系统完成了用户注册管理、后台管理和用户空间管理功能；为每个用户提供了个人的存储空间；用户可以通过浏览器实现文件的上传、下载和资源的共享；根据用户空间等级限制用户存储空间的大小；为用户共享文件提供积分制；通过积分制来对用户空间升级实行优惠。最后通过测试，基本满足了用户的需求，但还需要进一步完善，才可以应用于实际中。

关键词：网络存储；上传下载；资源共享

2 系统需求分析

该系统功能要求如下：

(1) 用户管理：用户注册、注册审核、用户存储空间限定管理、用户积分、用户等级

(2) 存储管理：为用户提供基于B/S模式的上传和下载数据，数据为现有的个人用户文件，为用户提供存储文件的添加、修改、删除操作。

(3) 收费管理：按照空间大小收费、根据用户的积分、等级实施优惠收费，为用户提供共享的文件提供积分累计。

(4) 数据共享管理：数据共享文件管理。

5 系统模块代码实现

根据系统功能设计，将整个系统划分为以下几个功能模块。

5.1 用户登录模块

用户登录界面（Default.aspx）是起始界面，必须登录后才可以进行其他的操作。首先通过输入用户名和密码，然后在用户信息表Users中查询输入的用户名和密码两个字段是否有相匹配的数组，如果没有则提示“用户不存在或密码错误！”，返回登录界面；如果登录成功则将用户名赋给Session，然后自动跳转到用户主界面。其中登录Button的触发主要代码如下：

conn.ConnectionString = "Data Source=86BC14A814F7477;Initial Catalog=NWMS;User ID=sa;Password=123"

conn.Open()

cmd.Connection = conn ‘连接数据库

cmd.CommandText = "Select * From Users"

objReader = cmd.ExecuteReader()

Do While objReader.Read()

If UserId.Text = objReader.Item("UserId") And UserPwd.Text = objReader.Item("UserPwd") Then

'在数据库Users表中搜寻与输入的用户名和密码相匹配的数组

Session("UserId") = UserId.Text'将用户名赋给Session

Response.Redirect("User0.aspx") '登录成功跳转页面

Exit Do

End If

Loop

Response.Write("<script>alert('用户不存在或密码错误！')</script>")

objReader.Close()

conn.Close()'断开数据库连接

5.2 用户注册模块

用户注册页面（Reg.aspx），文本框后带**的为必填，其他选填，用户注册时必须输入用户名、密码、密码确认、密码提示问题、密码提示答案和电子邮箱，否则不能注册。当这些都满足后点击注册，触发事件代码开始搜索用户信息表（Users），检验是否存在相同用户名，如存在，那么提示“该用户已经注册！”，退回注册页面，主要代码如下：

cmd.CommandText = "Select UserId From Users"

objReader = cmd.ExecuteReader()

Do While objReader.Read()

If UserIdBox.Text = objReader.Item("UserId") Then

Response.Write("<script>alert('该用户已经注册！')</script>") '验证用户名

i = 1

Exit Do

End If

Loop

objReader.Close()

如果未发现相同用户名，则用SQL语句INSERT将新用户信息写入用户信息表Users，同时运用MkDir( )在服务器系统目录的myfile文件夹内新建一个文件夹，用户名即为文件夹名。同时将用户等级类型设定为“1”，即普通用户，享有空间大小为50MB；将用户锁定类型设为空，即默认未锁；将用户积分等级设为0，刚注册用户对未共享过任何文件，未为资源共享做贡献，所以不具有收费优惠。主要代码如下：

cmd.CommandText = "INSERT INTO Users(UserId,UserPwd,PwdQuestion,PwdAnwser,Email,Ser,QQ,UserName,Telephone,vUserRank,vRegDate,vUserLock,vContrbRank,UserIn,vUserSore) VALUES('" & UserIdBox.Text & "','" & UserPwdBox.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ser & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "' ,'" & 1 & "','" & Today & "' ,'" & "" & "','" & "" & "','" & "" & "','" & "" & "')"

If cmd.ExecuteNonQuery > 0 Then

Dim filepath As String = Path.Combine(Server.MapPath(".") & "\myfile", UserIdBox.Text)

MkDir(filepath) '新建个人文件夹，文件名为用户名

Response.Write("<script language=javascript>alert('注册成功！');window.location='Default.aspx';</script>")

End If

5.3 用户主界面模块

用户主界面（User0.aspx）采用分页技术显示，主要有上和左、右3部分。左边固定显示LeftTree.aspx页面，主要给用户提供操作链接，通过点击左边的链接（包括有：文件管理、文件上传、我的共享、公共共享、空间升级、空间信息、个人资料和退出系统），将相应的操作页面在右边显示出来，右边的初始页面为用户个人空间信息页面（Spatial_inon.aspx），具体界面如图2。

图2 用户主界面操作图

5.4 文件存储管理模块

在主界面左边的链接中点击“文件管理”连接到文件管理页面（File_mgt.aspx），该页面利用DataGrid的强大显示功能为用户显示了当前用户所上传的所有文件，并可以对任何一个文件通过“编辑”超链接到编辑页面（File_edit.aspx）进行共享和文件名的修改；还可以通过点击文件名下载当前文件，还可以通过点击删除，删除相应行文件信息和文件（删除文件运用的是Kill( )）。主要代码如下：

(1) 初始化页面和声明绑定数据过程Bind()主要代码如下：

If Not (Me.IsPostBack) Then

Me.Bind()

End If

Sub Bind()

Dim userid As String = Session("UserId")

Sql = "Select * From UserFiles WHERE UserId='" & userid & "'"

cnSqlServer = "Data Source=86BC14A814F7477;Initial Catalog=NWMS;User ID=sa;Password=123"

Dim objAdapter As New SqlDataAdapter(Sql, cnSqlServer)

objAdapter.Fill(ds, "UserFiles")

DataGrid.DataSource = ds

DataGrid.DataBind()

conn.Close()

conn.Dispose()

End Sub

(2) 点击文件名触发下载文件事件的主要代码如下：

Dim fileW As String = e.Item.Cells(0).Text

Dim filepath As String = Server.MapPath(fileW)

Dim filename As String = System.IO.Path.GetFileName(filepath)

Response.Clear()

Response.ContentType = "application/octet-stream"

Response.AppendHeader("Content-Disposition", "attachment;filename=" + filename)

Response.Flush()

Response.WriteFile(filepath)

(3) 点击删除时，删除当前行文件和文件信息，主要代码如下：

Dim Sql As String = "Delete UserFiles WHERE vWay=@vWay"

Dim cmd As New SqlCommand(Sql, conn)

cmd.Parameters.Add(New SqlParameter("@vWay", SqlDbType.VarChar, 50))

cmd.Parameters("@vWay").Value = e.Item.Cells(0).Text

conn.Open()

cmd.ExecuteNonQuery()

Dim pathname As String = Path.Combine(Server.MapPath("."), e.Item.Cells(0).Text)

Kill(pathname)

conn.Close()

cmd.Dispose()

conn.Dispose()

Me.Bind()

(4) 点击datagrid控件中的超链接列“编辑”，连接到相应文件编辑页面（File_edit.aspx=?file={0}），通过file将相应行的文件路径值传给文件编辑页面，文件编辑主要代码如下：

初始化页的代码如下：

Way = Request.QueryString("file") '获取传值

If Not (Me.IsPostBack) Then

FileName.Text = Path.GetFileNameWithoutExtension(Way) '从路径中获取不含扩展名的用户名

End If

修改Button触发的事件主要代码如下：

Dim FileNameW As String = FileName.Text '获取TextBox的控件中的用户名

Dim FileNameE As String = Path.GetExtension(Way)'从路径中提取文件扩展名

Dim FileNameA As String = FileNameW & FileNameE '合并两字符串

Dim FilenewWay As String = Path.Combine(Path.GetDirectoryName(Way), FileNameA) '合并两路径字符串，合并成新路径

Dim pathnameO As String = Path.Combine(Server.MapPath("."), Way)

Dim pathnameN As String = Path.Combine(Server.MapPath("."), FilenewWay)

'更新数据库数据表中的文件信息

cmd.CommandText = "UPDATE UserFiles SET vWay='" & FilenewWay & "', vUpDate='" & Now & "',vFileName='" & FileNameA & "',vSharType='" & type & "' WHERE vWay='" & Way & "'"

n = cmd.ExecuteNonQuery()

Rename(pathnameO, pathnameN)'修改相对应的文件的文件名

5.5 文件上传模块

在主界面左边的链接中或文件管理页面的右上角点击“文件上传”就链接到文件上传页面（upload.aspx），该页面用File Field控件完成文件上传，通过上传代码“FileUpload.PostedFile.SaveAs( )”将文件上传保存到用户个人文件夹下面,并将文件信息写如数据库UserFiles表。上传之前判定控件内是否存在上传文件地址，如果没有则提示“未发现文件。”，如果有则继续下步，搜索用户已经上传文件的总大小，加上当前将要上传的文件大小之和，判断其是否超过用户等级限定的空间大小，如果超过，则弹出对话框“你的空间不足！”；如果未超过，表示还可以上传，再检测上传空间内是否存在相同文件名（包括扩展名），如果有则将文件覆盖，修改文件保存相关信息提示“XX文件被覆盖”，如果没有则提示“XX文件成功上传到服务器”，保存文件相关信息和文件。主要代码如下：

Dim userid As String = Session("UserId")

FileNname = Path.GetFileName(FileUpload.Value) '提取控件路径中的文件名

FileUname1 = Path.Combine("myfile", userid)

FileUname = Path.Combine(Server.MapPath("."), FileUname1) '获得了文件上传目录

FileNewW = Path.Combine(FileUname1, FileNname)

Filepath = Path.Combine(FileUname, FileNname)

FileNewl = FileUpload.PostedFile.ContentLength

FileNewlB = ConvertBytes(FileNewl)

(1) 统计已用空间大小主要代码如下：

cmd.CommandText = “Select UserId From UserFiles”

objReader = cmd.ExecuteReader()

Do While objReader.Read()

If userid = objReader.Item(“UserId”) Then

objReader.Close()

cmd.CommandText = “Select SUM(vFileSb) From UserFiles WHERE UserId=’” & userid & “’”

objReader = cmd.ExecuteReader()

objReader.Read()

FileOldl = objReader.Item(0) ‘统计用户空间文件大小

Exit Do

End If

Loop

(2) 获得用户空间大小主要代码如下：

cmd.CommandText = “SELECT vUserRank From Users WHERE UserId= ‘” & userid & “’”

objReader = cmd.ExecuteReader

objReader.Read()

UserRank = objReader.Item(0) ‘获得用户等级

objReader.Close()

cmd.CommandText = “SELECT vSpaceSb From UsersRank WHERE vIserRank=’” & UserRank & “’”

objReader = cmd.ExecuteReader

objReader.Read()

SpaceSb = objReader.Item(0) ‘获得用户相应等级空间

objReader.Close()

If FileSuml < SpaceSb Then

cmd.CommandText = “SELECT vWay FROM UserFiles”

objReader = cmd.ExecuteReader()

Do While objReader.Read()

If FileNewW = objReader.Item(“vWay”) Then

I = 1 ‘搜寻用户空间中是否存在相同文件名

Exit Do

End If

Loop

(3) 如空间内没有相同文件，则主要代码如下：

cmd.CommandText = “INSERT INTO UserFiles(UserId,vFileSize,vFileSb,vFileName,vWay,vSharType,vUpDate,vDownCount,vFileLock,vFileUp) VALUES(‘” & userid & “’,’” & FileNewlB & “’,’” & FileNewl & “’,’” & FileNname & “’,’” & FileNewW & “’,’” & “不共享” & “’,’” & Now & “’,’” & “” & “’,’” & “” & “’,’” & “” & “’)”

n = cmd.ExecuteNonQuery

FileUpload.PostedFile.SaveAs(Filepath) ‘上传文件到指定目录

lblMessage.InnerHtml = “文件 <b>” & FileNname & “</b>成功上传到服务器，大小为” & FileNewlB

(4) 如空间有相同文件，则主要代码如下：

cmd.CommandText = "UPDATE UserFiles SET vFileSize='" & FileNewlB & "',vFileSb='" & FileNewl & "',vUpDate='" & Now & "',vDownCount='" & "" & "',vFileLock='" & "" & "',vFileUp='" & "" & "' WHERE vWay='" & FileNewW & "'"

n = cmd.ExecuteNonQuery

FileUpload.PostedFile.SaveAs(Filepath) '上传文件到指定目录

lblMessage.InnerHtml = "文件 <b>" & FileNname & "</b>被覆盖，大小为" & FileNewlB

(5) 自定义一个换算字符长度的Function代码如下：

Public Function ConvertBytes(ByVal Bytes As Long) As String

' 将过大字符长度由Byte转化为GB、MB、KB表示

If Bytes >= 1073741824 Then

Return Format(Bytes / 1024 / 1024 / 1024, "#0.00") & " GB"

ElseIf Bytes >= 1048576 Then

Return Format(Bytes / 1024 / 1024, "#0.00") & " MB"

ElseIf Bytes >= 1024 Then

Return Format(Bytes / 1024, "#0.00") & " KB"

ElseIf Bytes > 0 And Bytes < 1024 Then

Return Fix(Bytes) & " Bytes"

Else

Return "0 Bytes"

End If

End Function

5.6 我的共享查询模块

在主界面左边的链接中点击“我的共享”就链接到我的共享查询页面（Myshar.aspx），该模块也采用DateGrid控件显示个人已经共享的文件的信息，你可以从中看到你所共享的文件被下载次数，是否被管理员锁定，还可点击相应行后边的取消直接取消共享。如果锁定栏下有“√”符号，那么证明你所共享的文件被别人举报，经过管理员核查属于不合适文件，它将不会再被显示到共享区域。主要代码如下：

(1) 绑定数据库主要代码：

Sql = "Select * From UserFiles WHERE UserId='" & userid & "' AND vSharType='" & "共享" & "' ORDER BY vDownCount DESC"

cnSqlServer = "Data Source=86BC14A814F7477;Initial Catalog=NWMS;User ID=sa;Password=123"

Dim objAdapter As New SqlDataAdapter(Sql, cnSqlServer)

objAdapter.Fill(ds, "UserFiles")

DataGrid.DataSource = ds

DataGrid.DataBind()

(2) 取消Button触发事件主要代码：

Dim cmd As New SqlCommand(Sql, conn)

cmd.Parameters.Add(New SqlParameter("@vWay", SqlDbType.VarChar, 50))

cmd.Parameters("@vWay").Value = e.Item.Cells(0).Text

5.7 公共共享查询模块

在主界面左边的链接中点击“公共共享”就链接到公共共享查询页面（Publicshar.aspx），该页面也采用DateGrid控件显示所有人共享的文件的信息，用户可以从表中看到文件名、提供用户、文件大小、更新时间、下载统计，默认是按下载统计次数排列。用户可以点击文件名下载共享文件，如发现共享文件内容属于违法、黄色、反动等不合适信息时可以点击举报举报该文件，以便管理员好根据举报来查看、锁定不合理文件。当用户下载了共享区域的文件后，那么该文件的下载统计次数和提供该文件的用户的积分将自动加1。主要代码如下：

(1) 下载事件的主要代码：

Response.Clear()

Response.ContentType = "application/octet-stream"

Response.AppendHeader("Content-Disposition", "attachment;filename=" + filename)

Response.Flush()

Response.WriteFile(filepath)

(2) 点击文件下载后，文件下载统计和用户积分自动加1,主要代码：

cmd.CommandText = "Select vDownCount,UserId From UserFiles where vWay='" & fileW & "'"

objReader = cmd.ExecuteReader()

objReader.Read()

Dim downcount As Integer = objReader.Item(0)

Dim id As String = objReader.Item(1)

objReader.Close()

cmd.CommandText = "Select vUserSore From Users where UserId='" & id & "'"

objReader = cmd.ExecuteReader

objReader.Read()

Dim usersore As Integer = objReader.Item(0)

objReader.Close()

downcount += 1

usersore += 1

cmd.CommandText = "Update Users set vUserSore='" & usersore & "' where UserId='" & id & "'"

cmd.ExecuteNonQuery()

cmd.CommandText = "Update UserFiles set vDownCount='" & downcount & "' where vWay='" & fileW & "'"

cmd.ExecuteNonQuery()

(3) 点击“举报”触发事件主要代码：

Dim Sql As String = "UPDATE UserFiles SET vFileUp=vFileUp+1 WHERE vWay=@vWay"

Dim cmd As New SqlCommand(Sql, conn)

cmd.Parameters.Add(New SqlParameter("@vWay", SqlDbType.VarChar, 50))

cmd.Parameters("@vWay").Value = e.Item.Cells(0).Text

5.8 用户资料修改模块

在主界面左边的链接中点击“个人资料“就连接到用户资料修改页面（MayRegedit.aspx），该页面主要是用户进行自己除用户名和性别以外的其他信息的修改，包括密码和密码保护材料的修改。在修改密码和密码保护材料时需要旧密码和保护材料，不过就密码和保护资料不符合，那么将不能进行修改。初始化页的主要代码如下：

cmd.CommandText = "Select * From Users where UserId='" & userid & "'"

objReader = cmd.ExecuteReader

objReader.Read()

email.Value = objReader.Item(4)

Label3.Text = objReader.Item(5)

qq.Value = objReader.Item(6)

realname.Value = objReader.Item(7)

phone.Value = objReader.Item(8)

recommend.Value = objReader.Item(9)

5.9 空间升级查询模块

空间升级查询模块Upgrade.aspx，运用两个Datagrid控件将现有用户空间等级和积分等级的相关信息展示给用户，如用户等级划分，相应空间大小、费用，相应积分等级条件、优惠打折。选择想申请用户空间等级，还会查询到实际应该支付费用。其中还用到了DropDownList控件，用于用户现在用户等级。另外在此模块中用到Datagrid控件要注意的是数据绑定的时候注意定义2个不同的DataSet，主要代码如下：

Dim objAdapter As New SqlDataAdapter(Sql, cnSqlServer)

objAdapter.Fill(ds, "IntegralRank")

DataGrid.DataSource = ds

DataGrid.DataBind()

Dim objAdapter1 As New SqlDataAdapter(Sql, cnSqlServer)

objAdapter1.Fill(ds1, "UsersRank")

Datagrid1.DataSource = ds1

Datagrid1.DataBind()

具体页面显示如图3。

图3 空间升级信息查询页面

5.10 后台管理登录模块

由于该系统采用用户和管理员分开登录，管理员所有操作界面模块全包含在系统目录的Admin文件夹下。管理员要进行后台管理必须通过此模块(Admin/Default.aspx)登录到后台管理主界面，在管理员输入ID和密码后，和普通用户登录模块一样查询数据库表Admin表，验证是否存在与之相匹配的ID和密码数组，如果存在则登录成功，将管理员ID值赋给Session，页面跳转到后台管理主界面。

5.11 后台管理主界面模块

通过后台管理登录模块登录到后台管理主界面（Admin/Admin0.aspx），该界面同用户主界面模块类似，作为后台管理的枢纽，也是通过分页技术显示，通过左边的一系列超链接按钮来链接到各个管理界面，在右边分页中显示出来。具体页面如图4。

主界面图

5.12 用户管理模块

管理员通过管理员登录验证后登录到后台管理主界面模块，通过左边的链接在右边分页中显示出来，管理员通过“添加用户”可以对用户进行添加，代码实现类似用户注册模块，只不过没那么详细，在这里只添加了用户信息的用户名、密码、用户等级、锁定状态，其他详细信息需要登录该用户后在个人资料里边完善；通过“管理用户”可以查看所有用户，在通过相应行“编辑”超链接连接到各个用户编辑页面（Admin/Admin_user_edit?username={0}）,在此页面管理员可以对用户进行密码、用户等级、锁定状态的修改，可以删除用户，删除用户时候还要用rmdir()删除用户空间文件夹，主要代码如下：

Dim user As String = Request.QueryString("username") '接收传值

cmd.CommandText = "Delete Users WHERE UserId='" & Label1.Text & "'

通过“添加等级”添加用户等级，通过“管理等级”查询所有用户等级，可点击删除删除相应用户等级，还可以通过修改超链接进入等级修改页面（Admin/admin_rank_edit?id={0}），用户等级设定里边包含了相应用户等级空间大小。其中删除代码类似于文件删除代码，修改代码类型于文件编辑代码。

5.13 管理员管理模块

管理员可以通过该模块的“添加管理员”功能添加新的管理员，权限都相同，添加内容有：管理员帐号、密码、信息联系方式，实现代码类似于用户注册。管理管理员，可以查看所有管理员，可以修改管理员密码、信息联系方式和删除管理员。主要代码如下：

Dim user As String = Request.QueryString("username")

Label1.Text = user

cmd.CommandText = "Select vAdminConn From admin where vAdminId='" & user & "'"

objReader = cmd.ExecuteReader

objReader.Read()

adminconn.Text = objReader.Item(0) '根据传值查询显示相应信息

5.14 共享管理模块

(1) 共享文件页面（Admin/Admin_share_file.aspx）通过DataGrid控件显示出所有的所用户共享的非锁定文件，类似于用户公共共享页面(Publicshar.aspx),包括文件名、大小、提供用户、更新时间、下载统计，管理员可以查看、下载任何共享文件；还可以对共享文件进行锁定，被锁定后的文件将不会在共享区域显示出来，主要代码如下：

Dim Sql As String = "UPDATE UserFiles SET vFileLock='√' WHERE vWay=@vWay"

Dim cmd As New SqlCommand(Sql, conn)

cmd.Parameters.Add(New SqlParameter("@vWay", SqlDbType.VarChar, 50))

cmd.Parameters("@vWay").Value = e.Item.Cells(0).Text

(2) 管理员从“举报查看”中查看被用户举报的文件，从中可以看到文件被举报次数统计，并按被举报次数排列，通过查看文件验证共享文件是否不合适，对不合适文件进行锁定。主要代码如下：

Sql = "Select * From UserFiles WHERE vSharType='共享' AND vFileLock='' AND vFileUp>'0' ORDER BY vFileUp DESC"

Dim objAdapter As New SqlDataAdapter(Sql, cnSqlServer)

objAdapter.Fill(ds, "UserFiles")

DataGrid.DataSource = ds

DataGrid.DataBind()

(3) 管理员还可以从“被锁定文件”链接到被锁定文件查看页面，对错判而锁定的文件进行解锁。主要代码如下：

Dim Sql As String = "UPDATE UserFiles SET vFileLock='' WHERE vWay=@vWay"

Dim cmd As New SqlCommand(Sql, conn)

cmd.Parameters.Add(New SqlParameter("@vWay", SqlDbType.VarChar, 50))

cmd.Parameters("@vWay").Value = e.Item.Cells(0).Text

5.15 收费管理模块

管理员可以添加、删除、修改用户积分等级，按照空间大小收费、根据用户的积分级别实施优惠收费。当某用户申请升级时候，可以查询该用户的积分、积分等级，以及升级到相应等级经过优惠折算后应支付的实际费用。

(1) 添加积分等级SQL语句如下：

cmd.CommandText = "INSERT INTO IntegralRank(vIntegralRank,vUserSoreU,vUserSoreD,vContrbRed) VALUES('" & Textbox1.Text & "','" & Textbox2.Text & "','" & Textbox3.Text & "','" & Textbox4.Text & "')"

(2) 查看积分等级页面（Admin/Admin_sore.aspx）用DataGrid显示，主要代码如下：

Sql = "Select * From IntegralRank ORDER BY vIntegralRank"

Dim objAdapter As New SqlDataAdapter(Sql, cnSqlServer)

objAdapter.Fill(ds, "IntegralRank")

DataGrid.DataSource = ds

DataGrid.DataBind()

(3) 通过查看积分等级页面DataGrid显示中各行的修改超链接链接到积分等级修改页面(Admin/Admin_sore_edit.aspx)，此页面主要代码如下：

Dim id As String = Request.QueryString("id") '获得传值

cmd.CommandText = "Select * From IntegralRank where vIntegralRank='" & id & "'"

objReader = cmd.ExecuteReader

objReader.Read()

Textbox1.Text = objReader.Item(1)