Help with an upload script

freel0ader

12-06-2006, 03:57 PM

Hi All,

I need some help with an upload script I am trying to use for my site. I am new to ASP, and I need this script to work a little diferently than it does. I was designed to save all the files you upload to the same folder in the directory. What I need it to do is save files from diferent form inputs to seperate folders on the server. Any help would be greatly appreciated.

<%@ Language=VBScript %>


<%

Dim uploadsDirVar
uploadsDirVar = "e:\web\realequityh\htdocs\_images\large_images"

Dim uploadsDirVar
uploadsDirVar = "e:\web\realequityh\htdocs\_images\thumb_images"

function OutputForm()

%>

<%
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 = ""
for each fileKey in Upload.UploadedFiles.keys

next
else
SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
end if

end function
%>

<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>

<script>
function onSubmitForm() {
var formDOMObj = document.frmSend;
if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "" )
alert("Please press the browse button and pick a file.")
else
return true;
return false;
}
</script>

</HEAD>

<BODY>

<%
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

%>

<form name="frmSend" method="POST" enctype="multipart/form-data" action="" 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>

<br>
<input style="margin-top:4" type=submit value="Upload">
</form>

</BODY>
</HTML>

Thanks,

-Adam

nikkiH

12-06-2006, 04:37 PM

You declared a variable twice by accident.

Dim uploadsDirVar
uploadsDirVar = "e:\web\realequityh\htdocs\_images\large_images"

Dim uploadsDirVar
uploadsDirVar = "e:\web\realequityh\htdocs\_images\thumb_images"

freel0ader

12-06-2006, 07:33 PM

Ya,

That is just where I was trying to creat a variable for the other file path. ahould look more like this.

Dim uploadsDirVar
uploadsDirVar = "e:\web\realequityh\htdocs\_images\large_images"

Dim uploadsDirVar2
uploadsDirVar2 = "e:\web\realequityh\htdocs\_images\thumb_images"

Still, I thing where I need to make the change to make it work is in this block of code.

function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey

Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)

I need to to make it look something like this.

If x
Upload.Save(uploadsDirVar)
then

If y
Upload.Save(uploadsDirVar2)

Its just that I cat look at the form with DOM in ASP, like I can with Javascript.

How do I get ASP to look at the input and see if the file is comming from attach1, or attach2?

Thanks,

-Adam

nikkiH

12-06-2006, 10:43 PM

From what I can tell from their docs, you can't do this.
You may want to contact them for support. Their object appears to handle it as an all or nothing save.

http://www.freeaspupload.net/freeaspupload/documentation.asp

FreeASPUpload quick Reference

Main class FreeASPUpload

Public properties:

UploadedFiles - A Dictionary of UploadedFile objects. You can check the length of keys to verify if the user actually uploaded any files; see example in the SaveFiles function of the uploadTester.asp code sample.

Files - Equivalent to: UploadedFiles.Items . The SaveFiles function in uploadTester.asp provides an example of how to loop over the Files array to get access to all file descriptions.

Form - A collection with the values of the form elements posted by the upload form. This collection is empty until the Save method is called.

Public methods:

Save(upload directory path) - Saves all the uploaded files to the specified directory using same names the files had in the origin.

Baleric

12-07-2006, 01:48 AM

to get the value from a textfield use upload.form("") just like you would do request.form("")

but only use upload.form before the function upload.save is called,
then you can use an if statement on your directory at the top of your page

Dim uploadsDirVar

if upload.form("attach1") <> "" and upload.form("attach2") = "" then
'attach2 is empty and attach1 is full

uploadsDirVar = "e:\web\realequityh\htdocs\_images\large_images"

else
end if

if upload.form("attach1") = "" and upload.form("attach2") <> "" then
'attach1 is empty and attach2 is full

uploadsDirVar = "e:\web\realequityh\htdocs\_images\thumb_images"

else
end if

this way when attach1 is used it makes the first directory if attach2 form is used to call the script it changes to the second directory

Hope this is what you needed

let us know if it helped, ive had alot of problems with this script and it can get annoying!