Omdøb uploade filer
Hej eksperterJeg er ved at tilføje en funktion, som gør det muligt for brugeren at uploade billeder. Jeg har følgende simple koder, som virker helt fint:
HTML:
<form action="upload.asp" method="post" enctype="multipart/form-data">
<input type="file" size="40" name="File1">
<p>
<input type="file" size="40" name="File2"></p>
<p>
<input type="file" size="40" name="File3"><br>
<input type="submit" value="Upload">
</p>
</form>
ASP:
<%
Dim objUpload ' Definer en variabel til objektet
' Opret objektet så vi kan begynde at arbejde med det
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' 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
' Her opsætter vi hvortil der skal uploades
Dim strUploadPath ' Definer en variabel til stien
strUploadPath = "/sommerhus/upload/"
' Foretag upload processen
objUpload.Upload
intFileCount = objUpload.Save(Server.MapPath(strUploadPath))
' 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 :<br>" & vbCrLf
Response.Write Err.Description
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 har uden held forsøgt at ændre få ting, hvorfor jeg håber, at I kan hjælpe. Jeg vil gerne have det sådan, at der kun kan uploades .jpg-filer og dernæst, at uanset hvilket navn billedet på computeren har, så skal det omdøbes til henholdsvis 1.JPG, 2.JPG og 3.JPG.
På forhånd tak.
