开发学院WEB开发ASP asp中自定义文件下载 阅读

asp中自定义文件下载

 2006-08-30 10:33:59 来源:WEB开发网   
核心提示:可以用流下载(耗内存,少用)或直接转到该文件.<%Const USE_STREAM = 0 '0.不用流(Adodb.Stream)下载 1.用流下载Const ALLOW_FILE_EXT = "rar,zip,chm,doc,xls,swf,mp3,gif,jpg,jpeg,png,bmp&

可以用流下载(耗内存,少用)或直接转到该文件.


<%

Const USE_STREAM = 0 '0.不用流(Adodb.Stream)下载 1.用流下载
Const ALLOW_FILE_EXT = "rar,zip,chm,doc,xls,swf,mp3,gif,jpg,jpeg,png,bmp" '允许下载的文件的扩展名,防止源代码被下载

Dim sDownFilePath '下载文件路径
sDownFilePath = Trim(Request("FilePath"))
'或者根据传过来的文件ID从数据库中获取文件路径

'如果 sDownFilePath 为绝对路径,一定要将 sDownFilePath 转换为相对 本文件的相对路径

'sDownFilePath = "focus.swf"

Call DownloadFile(sDownFilePath)

Function DownloadFile(s_DownFilePath)
   '判断有没传递文件名
   If IsNull(s_DownFilePath) = True Or Trim(s_DownFilePath) = "" Then
     OutputErr "错误:先确定要下载的文件,下载失败"
   End If

   '判断扩展名是否合法
   Dim s_FileExt
   s_FileExt = Mid(s_DownFilePath, InstrRev(s_DownFilePath, ".")+1)
   If InStr("," & ALLOW_FILE_EXT & ",", "," & s_FileExt & ",") <= 0 Then
     OutputErr "错误:文件类型(" & s_FileExt & ")不允许被下载,下载失败"
   End If
  
   s_DownFilePath = Replace(s_DownFilePath, "\", "/")

   '为了安全,某些目录禁止下载文件,在这里处理
   '
  
   '检测服务器是否支持fso
   Dim o_Fso
   On Error Resume Next
   Set o_Fso = Server.CreateObject("Scripting.FileSystemObject")
   If Err.Number <> 0 Then
     Err.Clear
     OutputErr "错误:服务器不支持fso组件,下载失败"
   End If

   '取得文件名,文件大小
   Dim s_FileMapPath
   Dim o_File, s_FileName, n_FileLength
   s_FileMapPath = Server.MapPath(s_DownFilePath)
   If (o_Fso.FileExists(s_FileMapPath)) = True Then
     Set o_File = o_Fso.GetFile(s_FileMapPath)
     s_FileName = o_File.Name
     n_FileLength = o_File.Size
     o_File.Close
   Else
     OutputErr "错误:文件不存在,下载失败"
   End If
   Set o_Fso = Nothing

   '判断是否下载的文件大小超过限制
   '  
  
   '如果不是用流下载,直接转到该文件
   If USE_STREAM = 0 Then
     Response.Redirect sDownFilePath
     Response.end
   End If

   '检测服务器是否支持Adodb.Stream
   On Error Resume Next
   Set o_Stream = Server.CreateObject("Adodb.Stream")
   If Err.Number <> 0 Then
     Err.Clear
     OutputErr "错误:服务器不支持Adodb.Stream组件,下载失败"
   End If

   o_Stream.Tyep = 1
   o_Stream.Open
   o_Stream.LoadFromFile s_FileMapPath

   Response.Buffer = True
   Response.Clear
   Response.AddHeader "Content-Disposition", "attachment; filename=" & s_FileName
   Response.AddHeader "Content-Length", n_FileLength
   Response.CharSet = "UTF-8"
   Response.ContentType = "application/octet-stream"
   Response.BinaryWrite o_Stream.Read
   Response.Flush

   o_Stream.Close
   Set o_Stream = Nothing

End Function

Sub OutputErr(s_ErrMsg)
   Response.Write "<font color=red>" & s_ErrMsg & "</font>"
   Response.End
End Sub

%>

http://www.cnblogs.com/jiny-z/archive/2006/08/29/489102.html

Tags:asp 定义 文件下载

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接