Upload 4 filer HASTER

http://www.asp.dk/sources.asp?mode=view_source&id=746&tech_id=1 ?

ellers skal du jo ha installeret nogle komponenter

Du kan finde dem her

http://www.asp.dk/components.asp?mode=show_components&parent=22

http://www.asp101.com/articles/jacob/scriptupload.asp

hmmmmm... dem kan jeg ikke bruge til noget.. de uploader jo kun 1 fgngen.. den skal uploade 4!

http://www.aspupload.com

Det er en ret ok komponent, koster ca. 860 kr.

Den kan bl.a. angive pixel dimensioner, og meget andet

/søren 

det har jeg ikke brug for, det skal være gratis let og kunne uploade 4 filer på smme tid!

4 filer samtidigt uden komponent, vil blive noget tungt at danse med...

/søren

jeg har ikke sagt noget med uden komponent

Den jeg foreslog kan da sagtens uploade 4 filer...

Moondog gider du ikke lige sætte koden ordenligt op med 4 upload felter så for du 100 point.. er det ok? eller vil du hve flere?

<!-- #include file=\"upload.asp\" -->
<%
Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Form(\"cmd\") = \"Upload\" Then

    \' Check if any files were uploaded
    If Uploader.Files.Count = 0 Then
        Response.Write \"File(s) not uploaded.\"
    Else
        \' Loop through the uploaded files
        For Each File In Uploader.Files.Items
                File.SaveToDisk \"G:\\Inetpub\\wwwroot\\temp\\\"
       
            \' Output the file details to the browser
            Response.Write \"File Uploaded: \" & File.FileName & \"<br/>\"
            Response.Write \"Size: \" & File.FileSize & \" bytes<br/>\"
            Response.Write \"Type: \" & File.ContentType & \"<br/><hr/>\"
        Next
    End If
   
Else
%>
<Form method=\"post\"  ENCTYPE=\"multipart/form-data\" action=\"<%=Request.ServerVariables.Item(\"SCRIPT_NAME\")%>\">
<input type=\"hidden\" name=\"cmd\" value=\"Upload\">
<input type=\"file\" name=\"file1\"/><br/>
<input type=\"file\" name=\"file2\"/><br/>
<input type=\"file\" name=\"file3\"/><br/>
<input type=\"file\" name=\"file4\"/><br/>
<input type=\"submit\" valeu=\"Upload\">
</form>

<%
End If
%>

Denne her skulle klare det... Husk at IUSR webserverens bruger skal have skriverettigheder til mappen

moonduck hvordan henter jeg så filnanene på de enklte?

hvordan får jeg den til at uploade i mappen Images som ikke ligger i root?

Hvor mange point skal du have?

DEt gør scriptet selv i løkken men du kan også gøre det selv bagefter med:

for each file Uploader.Files.Items
  Response.write File.FileName
Next

Skriv stien på images istedet for min sti, brug evt: \"Server.MapPath(\".\")\" hvis upload filerne skal ligge  i samme mappe som den hvor scriptet ligger.

500 Er fint men mindre kan også gøre det.

kan man ikke requeste filnavnet?

Jo som vist.

jeg vil gerne kunne requeste hvert enkelt filnavn fx.

filename1 skulle tager filnavnet fra formen file1
filename2 skulle tager filnavnet fra formen file2
filename3 skulle tager filnavnet fra formen file3
filename4 skulle tager filnavnet fra formen file4

kan du ikke alve det? så for du 500!

Nååh jo:

Uploader.Files(\"file1\").FileName
Uploader.Files(\"file2\").FileName
Uploader.Files(\"file3\").FileName
Uploader.Files(\"file4\").FileName

Den siger denne fejl:

Microsoft VBScript runtime error \'800a01fa\'

Class not defined: \'FileUploader\'

/raistlin/forum/upload.asp, line 3

Du har ikke været ved at rette i den fil der hedder upload.asp vel?

jeg ha slet ikke nogen uplaod.asp

Du skal hente filen upload.asp her, den bliver jo inkluderet.

http://www.asp101.com/articles/jacob/scriptupload.asp

hvordan sætter jeg den til at uploade ind i mapen \"images\" som ligger samme sted som uploadscriptet... hvordan gør jeg det?

Byt denne linie:
File.SaveToDisk \"G:\\Inetpub\\wwwroot\\temp\\\"

Ud med dette:

File.SaveToDisk Server.MapPath(\"images\")

Weeee... nu virker upload scriptet, men hvorfr skrive den ikke navnene på billederne?

her er min kode:


<!-- #include file=\"upload.asp\" -->
<%
Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Form(\"cmd\") = \"Upload\" Then

    \' Check if any files were uploaded
    If Uploader.Files.Count = 0 Then
        Response.Write \"File(s) not uploaded.\"
    Else
        \' Loop through the uploaded files
        For Each File In Uploader.Files.Items
        File.SaveToDisk Server.MapPath(\"images\")

        Next
%>
Hej hvad hedder du?
<%=Uploader.Files(\"file1\").FileName%>
<%=Uploader.Files(\"file2\").FileName%>
<%=Uploader.Files(\"file3\").FileName%>
<%=Uploader.Files(\"file4\").FileName%>
<%
    End If
Else
%>
<Form method=\"post\"  ENCTYPE=\"multipart/form-data\" action=\"<%=Request.ServerVariables.Item(\"SCRIPT_NAME\")%>\">
<input type=\"hidden\" name=\"cmd\" value=\"Upload\">
<input type=\"file\" name=\"file1\"/><br/>
<input type=\"file\" name=\"file2\"/><br/>
<input type=\"file\" name=\"file3\"/><br/>
<input type=\"file\" name=\"file4\"/><br/>
<input type=\"submit\" valeu=\"Upload\">
</form>

<%
End If
%>