改进文件上传的进度条，"实时"反映上传情况

asp中使用组件上传时，有点麻烦就是不知道上传进度是多少，虽然有的提供了上传进度条，例如abcupload（下载地址：http://www.websupergoo.com）已经提供了显示当前上传状态的方法，里面就有专门的实例（在安装目录的Examples下面的progressupload.htm），它是提交数据的同时弹出一个反映进度的页面（progressbar.asp），然后通过这个页面自刷新来每隔一点时间获取当时的上传状态，然后把它们显示出来，但是用页面自刷新的方法效率比较低，不不好调节刷新时间间隔（最小间隔为1秒），而且服务器端返回数据量大，所以不能很好的实时反映上传情况。在客户端使用javascript调用MSXMl对象和setTimout方法去定时load一个xml文件可以实现无刷新定时获取服务器端数据，在这里可以让progressbar.asp输出xml格式的数据，然后供客户端load，仅返回必要的几个参数，这样：页面不刷新；传输的数据少，不需要把所有数据全传到客户端 ，只传输反映状态的数据，如果定时器设置的时间足够小，那么我们就可以"实时"看到上传的状况了。以下就以abcupload4为例来说明怎么来制作实时的文件上传进度条。 （注：我们在abcupload自带例子基础上改进。） progressupload.htm（上传文件的前台提交，我们让进度条在这个里面显示）

传送:

剩余时间: 分 秒 ( KB of KB 已上传) 传送速度: KB/秒 信息:

progressbar.asp（返回上传状况数据的文件） <%@EnableSessionState=False%> <% On Error Resume Next Set theProgress = Server.CreateObject("ABCUpload4.XProgress") '创建上传组件对象 theProgress.ID = Request.QueryString("ID") '将返回数据以xml格式输出 %> <%=theProgress.PercentDone%> <%=Int(theProgress.SecondsLeft/60)%> <%=theProgress.SecondsLeft Mod 60%> <%=Round(theProgress.BytesDone / 1024, 1)%> <%=Round(theProgress.BytesTotal / 1024, 1)%> <%=Round(theProgress.BytesPerSecond/1024, 1)%> <%=theProgress.Note%> progressupload.asp（处理上传文件） <%@EnableSessionState=False%> <% Response.Expires = -10000 Server.ScriptTimeOut = 300 Set theForm = Server.CreateObject("ABCUpload4.XForm") theForm.Overwrite = True theForm.MaxUploadSize = 8000000 theForm.ID = Request.QueryString("ID") Set theField = theForm("filefield1")(1) If theField.FileExists Then theField.Save theField.FileName End If %> 传送结束 对于其他组件上传，原理也就差不多了，只是方法不一样罢了。 希望大家有什么意见和建议和我联系：） junminliu@msn.com QQ(9619774) http://www.dotey.net (建设中)

HTML在线编辑器的调用方法：【上一篇】
用XMLHTTP Post/Get HTML页面时的中文乱码问题之完全Script解决方案：【下一篇】