aspupload文件重命名及上传进度条的解决方法附代码第2/2页
更新时间：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>正在上传，请耐心等待...</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 %>
framebar.asp
复制代码 代码如下:
<%@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>
相关文章
ip138之asp小偷程序代码...2007-08-08
下面,我们会来编写一个非常简单的组件,重点是知道怎样开发DLL组件,而不是其复杂的代码!这些都要靠你们自己以后的努力了2012-08-08
用asp实现网页邮箱访问的方法...2007-04-04
不能使用“；文件已在使用中 Microsoft JET Database Engine
不能使用 ''；文件已在使用中。说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息2012-06-06
关于无限分级(ASP+数据库+JS)的实现代码...2007-05-05
这篇文章主要介绍了ASP中if语句、select 、while循环的使用方法,需要的朋友可以参考下2015-11-11
用asp实现网页调用doc附Response.ContentType 详细列表
最近研究一下如何用网页调用doc,最好能直接打开就成功了.2008-05-05
asp最常用的分页函数...2006-08-08
用javascript解决外部数据抓取中的乱码问题...2007-04-04
这篇文章主要介绍了asp实现的sha1加密解密代码,可以和ASP.NET（C#）相互兼容,需要的朋友可以参考下2014-08-08
最新评论