快捷導(dǎo)航

aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼第2/2頁(yè)

更新時(shí)間：2007年08月10日 18:59:01 作者：

bar.asp

<% 
        Response.Expires = -1 
        PID = Request("PID") 
        TimeO = Request("to") 
        Set UploadProgress = Server.CreateObject("Persits.UploadProgress") 
        format = "<br><CENTER><b>正在上傳，請(qǐng)耐心等待...</b></CENTER><br>%T%t%B3%T 速度：(%S/秒)  估計(jì)剩余時(shí)間：%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 %> 

framebar.asp

復(fù)制代碼代碼如下:

<%@EnableSessionState=False%> 
<% Response.Expires = -1 %> 
<title>正在上傳--</title> 
<style type='text/css'>td {font-family:Tahoma; font-size: 8pt }</style> 
<BODY BGCOLOR="menu" scroll="NO" frameborder="NO" status="no" style="border:0px;"> 
<script language="JavaScript"> 
<!-- 
function Stopupload() 
{ 
        if (typeof(window.opener)!="undefined"){ 
                try{ 
                        window.opener.document.execCommand("stop"); 
                } 
                catch(e){} 
        } 
        else if(typeof(window.dialogArguments)!="undefined"){ 
                try{ 
                        window.dialogArguments.document.execCommand("stop"); 
                } 
                catch(e){} 
        } 
        window.close(); 
} 
//--> 
</script> 
<IFRAME src="bar.asp?PID=<%= Request("PID") & "&to=" & Request("to") %>" title="Uploading" noresize scrolling=no 
frameborder=0 framespacing=10 width=369 height=115></IFRAME> 
<TABLE BORDER="0" WIDTH="100%" cellpadding="2" cellspacing="0"> 
  <TR><TD ALIGN="center"><button onclick="Stopupload()" style="font-size:12px;">取消上傳</button> 
</TD></TR> 
</TABLE> 
</BODY> 
</HTML> 