<!--This article provides ASP file Upload component persits.uploadprogress to real-time file upload function Oh.
<% @enablesessionstate =false%>
<%
Response.Expires =-1
PID = Request ("pid")
Timeo = Request ("to")
Set uploadprogress = Server.CreateObject ("persits.uploadprogress")
Format = "<br><center><b> is uploading, please wait patiently ... </b></center><br>%t%t%b3%t speed: (%s/seconds) Estimated time Remaining:%r%r%u/%v (%p)%l%t "
Bar_content = uploadprogress.formatprogress (PID, Timeo, "#00007f", format)
If "" = Bar_content Then
%>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title>upload finished</title>
<script language= "Web Effects" >
function Closeme ()
{
Window.parent.close ();
return true;
}
</script>
<body onload= "Closeme ()" Bgcolor= "Menu" >
</body>
<%
Else ' not finished yet
%>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<meta http-equiv= "Refresh" content= "1;url=<%=request.servervariables (" url ") &"? to= "& Timeo &" &pid= "& Pid%>" >
<title>uploading files...</title>
<style type= "Text/css Tutorial" >
BODY,TD {font-family:tahoma; font-size:8pt}
td.spread {font-size:6pt; line-height:6pt}
Td.brick {font-size:6pt; height:12px}
</style>
<body bgcolor= "Menu" topmargin=0>
<% = Bar_content%>
</body>
<% End If%>