酷源CMS网站集群产品交流论坛

这次我们来看看怎么把文件上传到数据库中，这边需要注意一个小地方，在上传文件到数据库的部分，数据栏位的形态若是Access请选择Ole对象，若是SQL Server请选择Image格式。接着，您可以通过下面的代码进行文件的上传：If Me.FileUpload1.PostedFile.ContentLength > 0 ThenDim cn As New Data.OleDb.OleDbConnectionDim dc As Data.OleDb.OleDbCommandDim para As Data.OleDb.OleDbParameterDim SQL, FileName As String'连线字符串cn.ConnectionString = Me.AccessDataSource1.ConnectionStringcn.Open()'运行 TextBox 中的 SQL 指令FileName = Me.FileUpload1.PostedFile.FileNameSQL = "insert into FileStorage (FileName,FileBody) values ('" & FileName & "',?)"'建立 SqlCommand 对象dc = New Data.OleDb.OleDbCommand(sql, cn)para = New Data.OleDb.OleDbParameter("file", Data.OleDb.OleDbType.Binary)para.Value = Me.FileUpload1.FileBytesdc.Parameters.Add(para)'运行(通过 Parameters 将文件存储到数据库)dc.ExecuteNonQuery()ShowAlertMsg("上传文件存储完毕!")ElseShowAlertMsg("上传文件不存在!")End If 上传至数据库中的文件，可以通过下面的方式重新下载回来，请特别这注意这张网页在调用的时候必须提供文件编号做为URL中的命令行参数：Me.AccessDataSource1.SelectCommand = "select * from FileStorage where uid=" & Request.QueryString("FileID")Dim dv As Data.DataView = Me.AccessDataSource1.Select(New DataSourceSelectArguments)'准备下载文件Response.ClearHeaders()Response.Clear()Response.Expires = 0Response.Buffer = TrueDim fileName As String = dv.Item(0).Item("FileName")'通过 Header 设定文件名Response.AddHeader("content-disposition", "attachment; filename=" & Chr(34) & System.Web.HttpUtility.UrlEncode(IO.Path.GetFileName(fileName), System.Text.Encoding.UTF8) & Chr(34))Response.C'传出要让使用者下载的内容Response.BinaryWrite(dv.Item(0).Item("FileBody"))'释放资源Response.End()