'取得文件名，文件大小
    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.LoadFromF

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

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

	Web www.51ec.org