📄 bar.asp

📁 采用三级目录

💻 ASP

字号:

  <%@EnableSessionState=False%>   
  <%   
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   
  '''作者信息：雪疯整理收集，www.sweet8.cn,hxf3591126@yahoo.com.cn，qq：21841443   '''   
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   
  %>   
  <%   
  Response.Expires   =   -1   
  PID   =   Request("PID")   
  TimeO   =   Request("to")   
  Set   UploadProgress   =   Server.CreateObject("Persits.UploadProgress")   
  format   =   "<br><CENTER><b>正在上传，请耐心等待...</b></CENTER><br>%T%t%B3%T   速度：(%S/秒)     估计剩余时间：%R   %r%U   /   %V(%P)%l%t"   
  bar_content   =   UploadProgress.FormatProgress(PID,   TimeO,   "#00007F",   format)   
      If   ""   =   bar_content   Then   
  %>   
  <HTML>   
  <HEAD>   
  <TITLE>Upload   Finished</TITLE>   
  <SCRIPT   LANGUAGE="JavaScript">   
  function   CloseMe()   
  {   
  window.parent.close();   
  return   true;   
  }   
  </SCRIPT>   
  </HEAD>   
  <BODY   OnLoad="CloseMe()"   BGCOLOR="menu">   
  </BODY>   
  </HTML>   
  <%   
      Else         '   Not   finished   yet   
  %>   
  <HTML>   
  <HEAD>   
  <meta   HTTP-EQUIV="Refresh"   CONTENT="1;URL=<%   
    Response.Write   Request.ServerVariables("URL")   
    Response.Write   "?to="   &   TimeO   &   "&PID="   &   PID   %>">   
  <TITLE>Uploading   Files...</TITLE>   
  <style   type="text/css">   
  body,td   {font-family:Tahoma;   font-size:   8pt   }   
  td.spread   {font-size:   6pt;   line-height:6pt   }   
  td.brick   {font-size:6pt;   height:12px}   
  </style>   
  </HEAD>   
  <BODY   BGCOLOR="menu"   topmargin=0>   
  <%   =   bar_content   %>   
  </BODY>   
  </HTML>   
  <%   End   If   %>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -