站内搜索：

VB.NET博客系统(11)

来源：xiaoniu168.com 作者：本站原创添加时间：2011-11-27 点击数：28568

5.7 文件管理
本模块的功能是实现文件共享，管理员可以把会员需要的文件资料等信息上传到服务器，供会员或者游客下载，提供好的交流空间。

以下是引用片段：

相关代码如下：
    Dim tmpData As New DataControl
    Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand
        Dim key As String = GridView1.DataKeys(Convert.ToInt32(e.CommandArgument)).Value.ToString()
        If e.CommandName = "Mod" Then
            '跳转页面
            Response.Redirect("FileEdit.aspx?ID=" & key)
        ElseIf e.CommandName = "Del" Then
            Dim DPath As String
            If Server.ath("").Substring(Server.MapPath("").Length - 1, 1) = "\" Then
                DPath = Server.MapPath("")
            Else
                DPath = Server.MapPath("") + "\"
            End If
            DPath = DPath + "File\"
            Dim PicName As String = tmpData.Get_Table("select 文件 from 文件 where 编号=" + key + "").Rows(0)(0).ToString()
            '/删除关联的图片文件
            If File.Exists(DPath & PicName) Then File.Delete(DPath & PicName)
            '删除文件信息
            tmpData.ExecSql("delete from 文件 where 编号=" + key + "")
            GridView1.DataSource = tmpData.Get_Table("select * from 文件 ")
            GridView1.DataBind()
        End If
    End Sub