📄 bar.asp
字号:
<%@EnableSessionState=False%>
<%
Response.Expires = -1
PID = Request("PID")
TimeO = Request("to")
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
format = "%T文件传输中，请稍候...%t%B3%T剩余时间：%R秒 速度：%S/秒 %r%U/%V(%P)%l%t"
bar_content = UploadProgress.FormatProgress(PID, TimeO, "#00007F", format)
If "" = bar_content Then
%>
<HTML>
<HEAD>
<TITLE>Upload Finished</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT LANGUAGE="JavaScript">
function CloseMe()
{
window.parent.close();
return true;
}
</SCRIPT>
</HEAD>
<BODY OnLoad="CloseMe()" BGCOLOR="#EFEBDE">
</BODY>
</HTML>
<%
Else ' Not finished yet
%>
<HTML>
<HEAD>
<!--% If left(bar_content, 1) <> "." Then %-->
<meta HTTP-EQUIV="Refresh" CONTENT="1;URL=<%
Response.Write Request.ServerVariables("URL")
Response.Write "?to=" & TimeO & "&PID=" & PID %>">
<!--% End If %-->
<TITLE>Uploading Files...</TITLE>
<style type='text/css'>td {font-family:arial; font-size: 12px } td.spread {font-size: 6pt; line-height:6pt } td.brick {font-size:6pt; height:12px}</style>
</HEAD>
<BODY BGCOLOR="#EFEBDE" topmargin=0>
<% = bar_content %>
</BODY>
</HTML>
<% End If %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -