SoFunction
Updated on 2025-04-13

Solutions to renaming aspupload file and uploading progress bars with code


<%
         = -1
        PID = Request("PID")
        TimeO = Request("to")
        Set UploadProgress = ("")
format = "<br><CENTER><b>Uploading, please wait patiently...</b></CENTER><br>%T%t%B3%T Speed: (%S/sec)  Estimated remaining time: %R %r%U / %V(%P)%l%t"
        bar_content = (PID, TimeO, "#00007F", format)
  If "" = bar_content Then
%>
<HTML>
<HEAD>
<TITLE>Upload Finished</TITLE>
<SCRIPT LANGUAGE="JavaScript">
function CloseMe()
{
        ();
        return true;
}
</SCRIPT>
</HEAD>
<BODY OnLoad="CloseMe()" BGCOLOR="menu">
</BODY>
</HTML>
<%
  Else    ' Not finished yet
%>
<HTML>
<HEAD>
<meta HTTP-EQUIV="Refresh" CONTENT="1;URL=<%
 ("URL")
 "?to=" & TimeO & "&PID=" & PID %>">
<TITLE>Uploading Files...</TITLE>
<style type="text/css">
body,td {font-family:Tahoma; font-size: 8pt }
 {font-size: 6pt; line-height:6pt }
 {font-size:6pt; height:12px}
</style>
</HEAD>
<BODY BGCOLOR="menu" topmargin=0>
<% = bar_content %>
</BODY>
</HTML>
<% End If %>