Ok :)
Dette er selve filen som jeg henter først:
<%
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
PID = "PID=" & UploadProgress.CreateProgressID()
barref = "framebar.asp?to=10&" & PID
%>
<SCRIPT LANGUAGE="JavaScript">
function ShowProgress()
{
strAppVersion = navigator.appVersion;
if (document.MyForm.FILE1.value != "" || document.MyForm.FILE2.value != "" || document.MyForm.FILE3.value != "")
{
if (strAppVersion.indexOf('MSIE') != -1 && strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)
{
if( strAppVersion.indexOf("Macintosh") != -1 && strAppVersion.charAt(0) >= 3 )
{
window.open('<% = barref %>&b=NN','','width=370,height=115', true);
}
else
{
winstyle = "dialogWidth=385px; dialogHeight:140px; center:yes";
window.showModelessDialog('<% = barref %>&b=IE',null,winstyle);
}
}
else
{
window.open('<% = barref %>&b=NN','','width=370,height=115', true);
}
}
return true;
}
</SCRIPT>
</HEAD>
<BODY>
<BASEFONT FACE="Arial" SIZE="2">
<h3>Progress bar</h3>
<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="progress_upload.asp?<% = PID %>"
OnSubmit="return ShowProgress();">
<TABLE CELLSPACING=0 CELLPADDING=3 BORDER=1>
<TD BGCOLOR="#FFFFCC">
<INPUT TYPE=FILE SIZE=40 NAME="FILE1"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE2"><BR>
<INPUT TYPE=FILE SIZE=40 NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload">
</TD>
</TABLE>
</FORM>
----
Her er filen den henter efterfølgende. Den fil som gemmer (eller skulle gemme):
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.CodePage = 65001
Upload.OverwriteFiles = False
Upload.ProgressID = Request.QueryString("PID")
Upload.SetMaxSize 52428, False
On Error Resume Next
n = Upload.Save("c:\upload\aspupload3")
ErrorNum = Err.Number
Descr = Err.Description
On Error Goto 0
If ErrorNum <> 0 Then
Response.Write "<B>The following error occurred: <FONT COLOR=""#FF0000"">" & Descr & "</FONT></B>"
Else
Response.Write "<B>" & n & " file(s) have been uploaded. " & Upload.TotalBytes & " bytes were transferred in " & Upload.TotalSeconds & " sec.<P>"
%>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=3>
<%
For Each File in Upload.Files
' File.SaveAsVirtual "/uploadedfiles/" & File.FileName
%>
<TR><TD BGCOLOR="#A0A0A0" COLSPAN="2"><B><FONT FACE="Arial" SIZE="2" COLOR="white"><% = File.Name & ": " & Server.HTMLEncode(File.OriginalFileName) %></FONT></B></TD></TR>
<TR>
<TD><B><FONT FACE="Arial" SIZE="2">Original Path:</FONT></B></TD>
<TD><FONT FACE="Arial" SIZE="2"><% = Server.HTMLEncode(File.OriginalPath) %></FONT></B></TD></TR>
<TR><TD><B><FONT FACE="Arial" SIZE="2">Current Path:</FONT></B></TD>
<TD><FONT FACE="Arial" SIZE="2"><% = Server.HTMLEncode(File.Path) %></FONT></B></TD></TR>
<TR><TD><B><FONT FACE="Arial" SIZE="2">Size:</B></FONT></TD>
<TD><FONT FACE="Arial" SIZE="2"><% = File.OriginalSize %> bytes</FONT></B></TD></TR>
<TR><TD><B><FONT FACE="Arial" SIZE="2">Content-Type:</B></FONT></TD>
<TD><FONT FACE="Arial" SIZE="2"><% = File.ContentType %> </FONT></B></TD></TR>
<%
' On Error Resume Next
' File.Delete
' On Error Goto 0
Next
%>
</TABLE>
<%
End If
Response.Write Server.HTMLEncode(Upload.Form("Texpa"))
%>
Ny bruger
Nybegynder
Opret
Preview
