<%@language=vbscript enablesessionstate=false lcid=1033%> <% '===================================================== ' 描述: Asp无组件带进度条上传，宝玉1.0 Beta改进版 ' 作者: 花心萝卜(www.7xiwl.com) ' 修改: 1、图片上传漏洞 2、格式限制 3、上传大小限制 4、文件自动更名 5、上传信息入数据库 ' 日期：2008年7月25日 ' 版权: 本作品由七禧网络修改，但是请勿移除版权信息 '===================================================== Response.CacheControl = "no-cache" Response.Expires = -1 progressID = Request.QueryString("ProgressID") Set upload = New DoteyUpload Set Info = upload.GetProgressInfo(progressID) If Info.ReadyState = "loaded" Then %> 文件上传结束 <% Else %>

文件：共 1 个  总大小：<%= Info.TotalSize %> 已用时间：<%= Info.ElapsedTime %>  剩余时间：<%= Info.TimeLeft %>  进度：<%= Info.Percentage %> 平均速度：<%= Info.TransferRate %>  已经上传：<%= Info.SizeCompleted %>

<% End If %>