home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advfile / act_uploadas.asp < prev    next >
Encoding:
Text File  |  2000-12-22  |  2.7 KB  |  75 lines
  1. <html>
  2. <head>
  3.     <title>AdvFile Component</title>
  4. </head>
  5. <body>
  6. <%
  7.     Server.ScriptTimeout = 20000
  8.     Response.Write Time & "<br>"
  9. dim File
  10. set File = Server.CreateObject("AdvFile.File")
  11.     File.NameConflict = "MakeUnique" 'other values are OverWrite, Error, Skip
  12. '    File.SetMaxFileSize = 100000
  13. '    File.Truncate = true
  14.     set Upload = File.UploadAs("c:\temp")
  15.     if (File.IsError = 1) then
  16.         Response.Write File.ErrorReason & "<br>"
  17.     else
  18.         Response.Write File.Count & " files successfully uploaded" & "<br>"%>
  19.                 <TABLE WIDTH=75% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
  20.                 <TR bgcolor="black">
  21.                     <TD bgcolor="black"><b><font color="white">ClientFileName</font></b></TD>
  22.                     <TD bgcolor="black"><font color="white">ClientFileExtension</font></b></TD>
  23.                     <TD bgcolor="black"><font color="white">ServerFileName</font></b></TD>
  24.                     <TD bgcolor="black"><font color="white">ServerFileExtension</font></b></TD>
  25.                     <TD bgcolor="black"><font color="white">ContentType</font></b></TD>
  26.                     <TD bgcolor="black"><font color="white">FileField</font></b></TD>
  27.                     <TD bgcolor="black"><font color="white">CreationTime</font></b></TD>
  28.                     <TD bgcolor="black"><font color="white">LastModifiedTime</font></b></TD>
  29.                     <TD bgcolor="black"><font color="white">FilePath</font></b></TD>
  30.                     <TD bgcolor="black"><font color="white">FileSize</font></b></TD>
  31.                 </TR>
  32.                 <%
  33.                 Count = 0
  34.                 for each Member in Upload%>
  35.                 <TR>
  36.                     <%
  37.                     if (Member.FileField = "File1") then
  38.                         Member.NameConflict = "MakeUnique" 'other values are OverWrite, Error, Skip
  39.                         'you can specify NameConflict property for individual files
  40.                         Member.SaveAs File.Form("FileName1")
  41.                         if (Member.IsError) then 'you can check error here for SaveAs method
  42.                             Response.Write Member.ErrorReason & "<br>"
  43.                         end if
  44.                     end if
  45.                     if (Member.FileField = "File2") then
  46.                         Member.SaveAs File.Form("FileName2")
  47.                         if (Member.IsError) then 'you can check error here for SaveAs method
  48.                             Response.Write Member.ErrorReason & "<br>"
  49.                         end if
  50.                     end if
  51.                     %>
  52.                     <TD><%=Member.ClientFileName%></TD>
  53.                     <TD><%=Member.ClientFileExtension%></TD>
  54.                     <TD><%=Member.ServerFileName%></TD>
  55.                     <TD><%=Member.ServerFileExtension%></TD>
  56.                     <TD><%=Member.ContentType%></TD>
  57.                     <TD><%=Member.FileField%></TD>
  58.                     <TD><%=Member.CreationTime%></TD>
  59.                     <TD><%=Member.LastModifiedTime%></TD>
  60.                     <TD><%=Member.FilePath%></TD>
  61.                     <TD><%=Member.FileSize%></TD>
  62.                 </TR>
  63.                 <%
  64.                 next
  65.                 %>
  66.                 </TABLE>
  67.     <%end if
  68.     Response.Write Time
  69. set File = Nothing
  70. set Upload = Nothing
  71. %>
  72. <a href="<%=Request.QueryString("filename")%>">Back</a>
  73. </body>
  74. </html>
  75.