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

<%
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

[1] [2] [3] 下一页

在google里搜索更多ASP中自定义文件下载

	Web www.51ec.org