上传的进度条实时反映上传情况

　2002-10-17 11:09:24　来源：WEB开发网　　　

核心提示：asp中使用组件上传时，有点麻烦就是不知道上传进度是多少，上传的进度条实时反映上传情况，虽然有的提供了上传进度条，例如abcupload（下载地址：http://www.websupergoo.com）已经提供了显示当前上传状态的方法，你也可以根据你的情况修改获取数据时间间隔}//--></script&

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（上传文件的前台提交，我们让进度条在这个里面显示）

<html>

<body>

<script language="Javascript">



</script>

<form name="myform" method="post" action="progressupload.asp" enctype="multipart/form-data" target=up>

<input type="file" name="filefield1"><br>

<input type="button" name="dosubmit" value="Upload" onclick="s()"><br>

<div id=bar1 style="display:none">

<table border="0" width="100%">

　<tr>

　　<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>传送:</b></font></td>

　</tr>

　<tr bgcolor="#999999">

　　<td>

　　　<table border="0" width="" cellspacing="1" bgcolor="#0033FF" id=PercentDone>

　　　　<tr>

　　　　　<td><font size=1> </font></td>

　　　　</tr>

　　　</table>

　　</td>

　</tr>

　<tr>

　　<td>

　　　<table border="0" width="100%">

　　　　<tr>

　　　　　<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">剩余时间:</font></td>

　　　　　<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">

　　　　　　　　 <span id=min></span> 分　

　　　　　　　<span id=secs></span> 秒

　　　　　　　(<span id=BytesDone></span> KB of

　　　　　　　<span id=BytesTotal></span> KB 已上传)</font></td>

　　　　</tr>

　　　　<tr>

　　　　　<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">

　　　　　　　传送速度:</font></td>

　　　　　<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">

　　　　　　　<span id=BytesPerSecond></span> KB/秒</font></td>

　　　　</tr>

　　　　<tr>

　　　　　<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">信息:</font></td>

　　　　　<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><span id=Information></span></font></td>

　　　　</tr>

　　　</table>

　　</td>

　</tr>

　<tr></tr>

</table>

</div>

<iframe name="up" style="display:none"></iframe>

</form>

</body>

</html>

progressbar.asp（返回上传状况数据的文件）

<%@EnablesessionState=False%>

<%

On Error Resume Next

Set theProgress = Server.CreateObject("ABCUpload4.XProgress")　'创建上传组件对象

theProgress.ID = Request.QueryString("ID")

'将返回数据以xml格式输出

%>

<?xml version="1.0" encoding="gb2312" ?>

<plan>

　　　 <PercentDone><%=theProgress.PercentDone%></PercentDone>

　　　 <min><%=Int(theProgress.SecondsLeft/60)%></min>

　　　 <secs><%=theProgress.SecondsLeft Mod 60%></secs>

　　　 <BytesDone><%=Round(theProgress.BytesDone / 1024, 1)%></BytesDone>

　　　 <BytesTotal><%=Round(theProgress.BytesTotal / 1024, 1)%></BytesTotal>

　　　 <BytesPerSecond><%=Round(theProgress.BytesPerSecond/1024, 1)%></BytesPerSecond>

　　　 <Information><%=theProgress.Note%></Information>

</plan>

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

%>

<html>

<body>

传送结束

</body>

</html>

对于其他组件上传，原理也就差不多了，只是方法不一样罢了。

希望大家有什么意见和建议和我联系：）

junminliu@msn.com