aspupload

יש לי לולאה כזו:


<%
    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("F:webspacedisk20tamam.co.iltamam.co.ilwww")
    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

response.write '" & File.FileName
Next
%>
</TABLE>
<%
    End If