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
（上传文件的前台提交，我们让进度条在这个里面显示）
</P><P></P><P><html></P><P><body></P><P></P><P>
<script language="javascript"></P><P><!--</P>
<P>theUniqueID = (new Date()).getTime() % 1000000000;</P><P>function s() file://让数据提交的同时执行显示进度条的函数</P><P>{</P><P>
bar(); file://开始执行反映上传情况的函数</P><P>
document.myform.action = "progressupload.asp?ID=" + theUniqueID;
file://处理上传数据的程序</P><P>
document.myform.target="up" file://将提交的数据放在一个名字是up隐藏的iframe里面处理，这样提交的页面就不会跳转到处理数据的页
document.myform.submit(); file://提交表单</P><P></P><P></P><P>}
</P><P>function bar()</P><P>{</P><P>
bar1.style.display= ; file://让显示上传进度显示的层的可见</P><P>
var timeoutid=null; file://这个变量是作定时器的ID</P><P>
var oXMLDoc = new ActiveXObject( MSXML );
file://创建 MSXML 对象</P><P>
sURL = "progressbar.asp?ID=" + theUniqueID + "&temp="+Math.random();
file://获取上传状态数据的地址</P><P>
oXMLDoc.url = sURL;
file://load数据
var oRoot=oXMLDoc.root;
file://获取返回xml数据的根节点
if(oRoot.children != null) {
if (oRoot.children.item(0).text-100==0) file://文件上传结束就取消定时器
clearTimeout(timeoutid)
PercentDone.style.width=oRoot.children.item(0).text+"%"; file://设置进度条的百分比例
file://根据返回的数据在客户端显示
min.innerHTML=oRoot.children.item(1).text; file://显示剩余时间（分钟）
secs.innerHTML=oRoot.children.item(2).text; file://显示剩余时间（秒钟）
BytesDone.innerHTML=oRoot.children.item(3).text; file://已上传数据大小
BytesTotal.innerHTML=oRoot.children.item(4).text; file://总大小
BytesPerSecond.innerHTML=oRoot.children.item(5).text; file://传输速率
Information.innerHTML=oRoot.children.item(6).text; file://上传信息
}
if (oRoot.children.item(0).text-100<0) file://只要文件没有传完，就每隔多少时间获取一次数据
timeoutid = setTimeout("bar()",50)
file://这里设定时间间隔是0.05秒，你也可以根据你的情况修改获取数据时间间隔
}</P><P>//--></P><P></script>nbsp; </tr></P><P>
</table></P><P> </td></P><P> </tr></P><P> <tr></P><P><td></P><P>
<table border="0" width="100%"></P><P><tr></P><P> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
剩余时间:</font></td></P><P>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></P><P>
<span id=min></span>分</P><P><span id=secs></span> 秒 </P><P>
(<span id=BytesDone></span> KB of </P><P><span id=BytesTotal></span> KB 已上传)</font></td></P><P>
</tr></P><P> <tr></P><P>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></P><P>
传送速度:</font></td></P><P>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></P><P>
<span id=BytesPerSecond></span> KB/秒</font></td></P><P>
</tr></P><P> <tr></P><P>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">信息:</font></td></P><P>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><span id=Information>
</span></font></td></P><P> </tr></P><P> </table></P><P> </td></P><P> </tr></P><P> <tr></tr></P><P></table></P><P></div></P><P><iframe name="up" style="display:none"></iframe></P><P></form></P><P></P><P></body></P><P>
</html></P><P></P><P>progressbar.asp（返回上传状况数据的文件）
</P><P></P><P><%@EnableSessionState=False%></P><P><%</P><P>
On Error Resume Next</P><P>Set theProgress = Server.CreateObject("ABCUpload4.XProgress") 创建上传组件对象</P><P>theProgress.ID = Request.QueryString("ID")</P><P> 将返回数据以xml格式输出
</P><P>%></P><P><?xml version="1.0" encoding="gb2312" ?></P><P><plan></P><P> <PercentDone><%=theProgress.PercentDone%></PercentDone></P><P>
<min><%=Int(theProgress.SecondsLeft/60)%></min></P><P>
<secs><%=theProgress.SecondsLeft Mod 60%></secs></P><P>
<BytesDone><%=Round(theProgress.BytesDone / 1024, 1)%></BytesDone></P><P>
; <BytesTotal><%=Round(theProgress.BytesTotal / 1024, 1)%></BytesTotal></P><P> <BytesPerSecond><%=Round(theProgress.BytesPerSecond/1024, 1)%></BytesPerSecond></P><P> <Information><%=theProgress.Note%></Information></P><P></plan></P><P></P>
<P>progressupload.asp（处理上传文件）</P><P></P><P><%@EnableSessionState=False%>
</P><P><%</P><P>Response.Expires = -10000</P><P>Server.ScriptTimeOut = 300</P>
<P></P><P>Set theForm = Server.CreateObject("ABCUpload4.XForm")</P>
<P>theForm.Overwrite = True</P><P>theForm.MaxUploadSize = 8000000</P>
<P>theForm.ID = Request.QueryString("ID")</P><P>Set theField = theForm("filefield1")(1)
</P><P>If theField.FileExists Then</P><P> theField.Save theField.FileName</P><P>End If</P><P>%></P><P
