asp 如何计算客户端下载了多大的视频

怎么没人懂啊。

当客户打开视频页面，视频文件也会被下载，那么asp怎么计算出该视频文件被客户端下载进度，当下载一半时，跳到其他页面。

ADODB.Stream

用ADODB.Stream 可以防止盗链等，但是有缺点需要经过复杂的负载处理，要不然就会假死

定义每次请求下载的字节，这样每次请求累计得到下载的字节，判断下载字节

使用ASP做这件来，有些免为其难！

有没有代码呢

有，这个我为我的框架底层写的，你参考一下  ChunkSize = 2*1024*1024 这里就是第一每次请求最快下载速度，我限制是2M 你可以能的更小，就是你带宽不管有多大都可以用asp来控制下载的速度，下面的循环判断 就可以判读下载大小了
转载说明出处啊 ，呵呵

    '函数格式 Download(StrFile,NewName)
    '功能描述 下载一个已经存的的文件,处理中文不能下载的问题
    '应用代码 By HT.Liu
    Public FunctIon Download(StrFile,NewName)
        Dim  StrFIlename,ALLOW_FILE_EXT,FileExt,Fso,IntFIlelength,Upload,S,TotalSize,offset,f,ChunkSize,strChunk
        StrFIlename = Server.MapPath(strFile)
        ALLOW_FILE_EXT = ",ASP,ASA,ASPX,ASAX,MDB,PHP,JSP,SHTML,HTML,HTM,TV,DATA,Config,INI,VBS,JS,"
        FileExt=MId(StrFIlename,InStrRev(StrFIleName, ".")+1) 
        Response.Buffer=True 
        Response.Clear
    
        If InStr("," & ALLOW_FILE_EXT & ",", "," & FileExt & ",") > 0 Then
            Download = "不允许下载此文件格式." 
            Exit Function
        End If
        
        Set Fso=Server.CreateObject("ScrIptIng.FIleSystemObJect") 
        If Not Fso.FIleExists(StrFIleName) Then
            Download = "下载的文件不存在."
            Exit Function
        End If
    
        Set F=Fso.GetFIle(StrFIlename)
        IntFIlelength=F.SIze
        
        If Err Then
            Download = "该文件数据不完整或许已损坏." 
            Exit Function
        End If
        
        Set S=Server.CreateObject("ADODB.Stream")
        S.Type = 1
        S.Open
        'Response.write StrFIlename
        'Response.end
        
        s.LoadFromFIle(StrFIlename)
        TotalSize = S.Size
        Response.ContentType = "application/x-download; charset=UTF-8"
        'Response.ContentType = "application/x-download"
        Response.AddHeader "Content-DIsposItIon","attachment; filename="&NewName
        Response.AddHeader "Content-Length",IntFilelength
        offset = 0
        '定义每次请求的下载流字节
        ChunkSize = 2*1024*1024
        While offset < TotalSize
            If (TotalSize - offset < ChunkSize) Then
                ChunkSize = TotalSize - offset
            End If
            strChunk = S.Read(ChunkSize)
            'Response.write strChunk
            Response.BinaryWrite strChunk
            Response.Flush
            offset = offset + ChunkSize
        Wend
        S.Close
        Set S = NothIng
        Set Fso = Nothing
        Call Log_Write("下载文件："&StrFIlename&"=>"&NewName)
    End FunctIon 

[ 本帖最后由 coretear 于 2012-7-17 19:57 编辑 ]

收到的鲜花

• ysf0181 于 2012-07-18 15:57 送鲜花  29朵   附言：我很赞同，加我QQ：461840539，有问题一起讨 ...