ASP Upload Form

Author	Message

cheater2478

Total Posts : 12
Scores: 0
Reward points : 0
Joined: 10/17/2008
Location: WPB , FL
Status: offline

ASP Upload Form Saturday, June 13, 2009 1:35 AM (permalink)

0

I am having problems with this script, can someone help?

<%@ Language=VBScript %>
 <% 
 option explicit 
 Response.Expires = -1
 Server.ScriptTimeout = 600
 %>
 #include file="freeaspupload.asp"
 <%
   Dim uploadsDirVar
   uploadsDirVar = "/Uploads" 
 function OutputForm()
 %>
     <form name="frmSend" method="POST" enctype="multipart/form-data" action="uploadTester.asp" onSubmit="return onSubmitForm();">
 	<B>File names:</B><br>
     File 1: <input name="attach1" type="file" size=35><br>
     File 2: <input name="attach2" type="file" size=35><br>
     File 3: <input name="attach3" type="file" size=35><br>
     File 4: <input name="attach4" type="file" size=35><br>
     <br>
     <input style="margin-top:4" type=submit value="Upload">
     </form>
 <%
 end function
 
 function TestEnvironment()
     Dim fso, fileName, testFile, streamTest
     TestEnvironment = ""
     Set fso = Server.CreateObject("Scripting.FileSystemObject")
     if not fso.FolderExists(uploadsDirVar) then
         TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
         exit function
     end if
     fileName = uploadsDirVar & "\test.txt"
     on error resume next
     Set testFile = fso.CreateTextFile(fileName, true)
     If Err.Number<>0 then
         TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
         exit function
     end if
     Err.Clear
     testFile.Close
     fso.DeleteFile(fileName)
     If Err.Number<>0 then
         TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder."
         exit function
     end if
     Err.Clear
     Set streamTest = Server.CreateObject("ADODB.Stream")
     If Err.Number<>0 then
         TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries."
         exit function
     end if
     Set streamTest = Nothing
 end function
 
 function SaveFiles
     Dim Upload, fileName, fileSize, ks, i, fileKey
 
     Set Upload = New FreeASPUpload
     Upload.Save(uploadsDirVar)
 
 	' If something fails inside the script, but the exception is handled
 	If Err.Number<>0 then Exit function
 
     SaveFiles = ""
     ks = Upload.UploadedFiles.keys
     if (UBound(ks) <> -1) then
         SaveFiles = "<B>Files uploaded:</B> "
         for each fileKey in Upload.UploadedFiles.keys
             SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
         next
     else
         SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
     end if
 	SaveFiles = SaveFiles & "<br>Enter a number = " & Upload.Form("enter_a_number") & "<br>"
 	SaveFiles = SaveFiles & "Checkbox values = " & Upload.Form("checkbox_values") & "<br>"
 	SaveFiles = SaveFiles & "List values = " & Upload.Form("list_values") & "<br>"
 	SaveFiles = SaveFiles & "Text area = " & Upload.Form("t_area") & "<br>"
 end function
 %>
 
 <HTML>
 <HEAD>
 <TITLE>Test Free ASP Upload 2.0</TITLE>
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
 <style>
 BODY {background-color: white;font-family:arial; font-size:12}
 </style>
 <script>
 function onSubmitForm() {
     var formDOMObj = document.frmSend;
     if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "" && formDOMObj.attach3.value == "" && formDOMObj.attach4.value == "" )
         alert("Please press the Browse button and pick a file.")
     else
         return true;
     return false;
 }
 </script>
 
 </HEAD>
 
 <BODY>
 
 <br><br>
 <div style="border-bottom: #A91905 2px solid;font-size:16">Upload files to your server</div>
 <%
 Dim diagnostics
 if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
     diagnostics = TestEnvironment()
     if diagnostics<>"" then
         response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">"
         response.write diagnostics
         response.write "<p>After you correct this problem, reload the page."
         response.write "</div>"
     else
         response.write "<div style=""margin-left:150"">"
         OutputForm()
         response.write "</div>"
     end if
 else
     response.write "<div style=""margin-left:150"">"
     OutputForm()
     response.write SaveFiles()
     response.write "<br><br></div>"
 end if
 
 %>
 
 
 </BODY>
 </HTML>

#1

webber123456 Total Posts : 58 Scores: 0 Reward points : 0 Joined: 9/20/2007 Status: offline	Re:ASP Upload Form Saturday, August 29, 2009 4:25 AM (permalink) 0 exactly what problem are you having ?
	#2

TNO Total Posts : 2094 Scores: 36 Reward points : 0 Joined: 12/18/2004 Location: Earth Status: offline	Re:ASP Upload Form Sunday, August 30, 2009 12:59 PM (permalink) 0 Remove all the instances of on error resume next from your code and see what pops up *To iterate is human, to recurse divine.* -- L. Peter Deutsch
	#3

Online Bookmarks Sharing:

Jump to:

Current active users

There are 0 members and 1 guests.

Icon Legend and Permission

New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages

Read Message
Post New Thread
Reply to message
Post New Poll
Submit Vote
Post reward post
Delete my own posts
Delete my own threads
Rate post