六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

ASP.NET上传文件到数据库VB版

Admin | 2007-11-13 22:38:19 | ReadNums | 5275 | 标签 asp.net | 打印本页
     

代码如下:敬请过目!

If Me.FileUpload1.PostedFile.ContentLength > 0 Then
  Dim cn As New Data.OleDb.OleDbConnection
  Dim dc As Data.OleDb.OleDbCommand
  Dim para As Data.OleDb.OleDbParameter
  Dim SQL, FileName As String
  '连线字符串
  cn.ConnectionString = Me.AccessDataSource1.ConnectionString
  cn.Open()
  '运行 TextBox 中的 SQL 指令
  FileName = Me.FileUpload1.PostedFile.FileName
  SQL = "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.FileBytes
  dc.Parameters.Add(para)
  '运行(通过 Parameters 将文件存储到数据库)
  dc.ExecuteNonQuery()
  ShowAlertMsg("上传文件存储完毕!")
Else
  ShowAlertMsg("上传文件不存在!")
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 = 0
  Response.Buffer = True
  Dim 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.ContentType = "Application/octet-stream"
  '传出要让使用者下载的内容
  Response.BinaryWrite(dv.Item(0).Item("FileBody"))
  '释放资源
  Response.End()


问题未解决:在线咨询我要在线咨询问题

香港正版挂牌正挂2017

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日