Sample code:
- <%
- Option Explicit
- Dim upl, NewFileName
- Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
- If Len(upl.Form("File1")) > 0 Then
- NewFileName = "/Uploads/" & upl.ExtractFileName(upl.Form("File1"))
- If upl.SaveToWeb("File1", NewFileName) Then
- Response.Write("File successfully written to disk.")
- Else
- Response.Write("There was an error saving the file to disk.")
- End If
- End If
- %>
- <html> <head> <title> ASP Simple Upload Example #1 </title> </head>
- <body>
- <form action="Example1.Asp" enctype="multipart/form-data" method="POST">
- Select a file to upload: <input name="File1" size="30" type="file">
- <input name="submit" type="submit" value="Upload Now">
- </form>
- <body>
- <html>
Line # description
- Starts the ASP code section of the file.
- Forces us to declare all of our variables.
- Declare the variables that we're going to use in the code.
- Create an instance of the Upload component so we can use it throughout the code.
- Check to see if the users uploaded a file. If they did, this will contain the name of the file on their hard drive. Also, note that we us the component to get the form fields, not the Request object. You must use the component to read the form variables in all of the forms with file uploads on them.
- Set the NewFileName variable to the /Uploads/ directory in our web server root and append just the name of the file that was uploaded.
- Save the file to our web server. This method automatically calls the Server.MapPath for you so you don't have to figure out where your website is physically located. The first parameter of SaveToWeb is the field name (File1) and the second parameter is the location and filename you want to save this file to.
- If the save was successful, we tell the user.
- Otherwise, tell them the upload failed.
- End the ASP part of the page.
- Start our form making sure to set the method to POST and the enctype to multipart/form-data.
- Add the file input tag to the form with the type of file and the form field name of File1 and a form field length (on the screen) of 30.
- Add the submit button to the form, so that after they select a file to upload, they can submit it to this page for processing.
- End the form.
Note: This may please be noted that this component can be uniformly used by all the users of Windows Shared Hosting. Since ASP is an outdated, this script can work with our older Windows hosting plans only. This will not be available on our latest Windows shared hosting plans.
