ASP Source Code: iaspuploadvb.asp

   ASP Script
   Comments
   HTML and Text

<%
      Set Upload = Server.CreateObject("Persits.Upload")

      Upload.OverwriteFiles = False 'Generates unique names
      Upload.SetMaxSize 1048576 'Truncates files above 1MB
      Upload.Save "c:\temp" 'Needs to call save before further processing
     
      For Each File in Upload.Files
           File.copy "c:\temp\" & File.extractFileName

           ' Copies uploaded files to new files with prefix "new_"
           File.delete
           ' Deletes the uploaded files in c:\temp folder
      Next

      For Each Item in Upload.Form
           Response.Write "Name: " & Item.getName
           Response.Write ", Value: " & Item.getValue & "<BR>"
      Next

%> 


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.