在ASP里实现数据库备份并下载，但下载的文件.bak不能用

Question

错误提示是这样的：设备 'D:\db.bak' 的文件不是有效的 Microsoft 磁带格式备份集。

Answer 1

谢谢邹建大哥，但还是不行呀，好像是类型的问题，同样的路径下RAR就可以下载，BAK就不行。
用server.createobject("adodb.stream")的话下载下来又不能用，大家帮忙看看吧~

Answer 2

Sub GetFile(Name)
 If bkfname<>"" Then
'******************************下载文件存放的服务端目录
  url2=server.MapPath("/")&"\"&bkfname
'***************************************************
 End If
'Response.write url2
  Set fso=Server.CreateObject("Scripting.FileSystemObject")
  Set fl=fso.getfile(url2)
  flsize=fl.size
  flName=fl.name
  Set fl=Nothing
  Set fso=Nothing
'Response.write flsize
  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Open
  objStream.Type = 1
  objStream.LoadFromFile url2
  Select Case lcase(Right(flName, 4))
    Case ".asf"
     ContentType = "video/x-ms-asf"
    Case ".avi"
     ContentType = "video/avi"
    Case ".doc"
     ContentType = "application/msword"
    Case ".zip"
     ContentType = "application/zip"
    Case ".xls"
     ContentType = "application/vnd.ms-excel"
    Case ".gif"
     ContentType = "image/gif"
    Case ".jpg", "jpeg"
     ContentType = "image/jpeg"
    Case ".wav"
     ContentType = "audio/wav"
    Case ".mp3"
     ContentType = "audio/mpeg3"
    Case ".mpg", "mpeg"
     ContentType = "video/mpeg"
    Case ".rtf"
     ContentType = "application/rtf"
    Case ".htm", "html"
     ContentType = "text/html"
    Case ".txt"
     ContentType = "text/plain"
    Case Else
     ContentType = "application/octet-stream"
   End Select  
   Response.AddHeader "Content-Disposition", "attachment; filename=" & bkfname
   Response.AddHeader "Content-Length", flsize   Response.Charset = "gb2312"
   Response.ContentType = ContentType   Response.BinaryWrite objStream.Read
   Response.Flush
   response.Clear()
  objStream.Close
  Set objStream = Nothing
End Sub
GetFile(bkfname)

Answer 3

谢谢葡萄，但这里没有.BAK呀。

Answer 4

在iis中配置你的元数据，添加.bak后就可以下载。