Avatar billede mettecarsten Nybegynder
30. september 2004 - 21:20 Der er 2 kommentarer og
1 løsning

Upload af flere billeder

Hej eksperter

Jeg har lavet en upload-funktion ved brug af AspSmartUpload. Koderne er følgende:

HTML:
<form action="upload.asp" method="post" enctype="multipart/form-data">
  <input type="file" size="40" name="file1"><br>
  <input type="file" size="40" name="file2"><br>
  <input type="submit" value="Upload">
</form>

upload.asp:
<%

Dim objUpload ' Definer en variabel til objektet

' Opret objektet så vi kan begynde at arbejde med det
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Only allow txt or htm files
objUpload.AllowedFilesList = "jpg, jpeg"

' Her sætter vi en begrænsning på filstørrelsen,
' for at undgå at der bliver uploadet alt for store filer
' En maksimal størrelse på 50Kb må være nok
objUpload.MaxFileSize = 50000

' For at undgå at siden bare stopper og for at vi
' kan fange fejlen hvis filen er for stor, slår vi
' fejl-check til
On Error Resume Next

' Foretag upload processen
objUpload.Upload

objUpload.files.item(1).saveas "/sommerhus/upload/1.JPG"
objUpload.files.item(2).saveas "/sommerhus/upload/2.JPG"
' Server.MapPath() benyttes her for at give
' upload objektet den faktiske sti i stedet for den virtuelle.

' Undersøg om der opstod en fejl
If Err Then
  ' Der opstod en fejl
  Response.Write "Der opstod en fejl - filen er enten for stor, eller ikke .jpg"
Else
  ' Nej - det gik godt
  Response.Write intFileCount & " fil(er) uploadet.<br>" & vbCrLf
End If

' Så er vi færdige, så vi rydder pænt op efter os
Set objUpload = Nothing

%>

Jeg vil nu gerne bare have det sådan, at hvis man kun vælger at uploade billede nr. 1 og ikke samtidig nr. 2, så skal billede nr. 2 ikke overskrive et eksisterende med et "tomt" billede - altså kun ændre de billeder, som reelt uploades.

Hvordan skal koderne ændres?

På forhånd tak.
Avatar billede eagleeye Praktikant
30. september 2004 - 21:32 #1
Du kan evt. bruge isMissing som ASPsmartUpload har:

if not objUpload.files.item(1).isMissing then
  objUpload.files.item(1).saveas "/sommerhus/upload/1.JPG"
end if
if not objUpload.files.item(2).isMissing then
  objUpload.files.item(2).saveas "/sommerhus/upload/2.JPG"
end if
Avatar billede mettecarsten Nybegynder
30. september 2004 - 21:50 #2
Super, det virker helt perfekt. Tak for hjælpen :-). Smid et svar
Avatar billede eagleeye Praktikant
30. september 2004 - 21:50 #3
Ok ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester