Hvordan kan jeg rename denne fil som jeg vil oploade i mit script ?
<% Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") objUpload.AllowedFilesList = "jpg,jpeg" objUpload.DownloadBlockSize = 32768 On Error Resume Next
fejlen hedder nu "Object doesn't support this property or method: 'objUpload.SaveAs'" i den linie her objUpload.SaveAs (Server.Mappath(strUploadPath & "filnavn.xxx"))
r ikke helt med på hvad der skal stå i ("dinbilledform") ???
mit sctipt ser nu således ud...:
<% Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") Set File = objUpload.files("dinbilledform") If Not objUpload.files("dinbilledform").isMissing Then objUpload.AllowedFilesList = "jpg,jpeg" objUpload.DownloadBlockSize = 32768 strUploadPath = "cut/" objUpload.Upload objUpload.SaveAs (Server.Mappath(strUploadPath & "filnavn.jpg")) End If Set File = Nothing Set objUpload = Nothing %>
<% Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") objUpload.AllowedFilesList = "jpg,jpeg" objUpload.DownloadBlockSize = 32768 strUploadPath = "cut/" objUpload.Upload If Not objUpload.files("dinbilledform").isMissing Then Set File = objUpload.files("dinbilledform") objUpload.SaveAs (Server.Mappath(strUploadPath & "filnavn.jpg")) Set File = Nothing End If Set objUpload = Nothing %>
ja - nu skal du jo heller ikke trække mig helt ned i sølet ved at navngive forkert i forhold til hvad jeg skriver og bare lader mig copy/paste fra dig bagefter :)
<% Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") objUpload.AllowedFilesList = "jpg,jpeg" objUpload.DownloadBlockSize = 32768 strUploadPath = "cut/" objUpload.Upload If Not objUpload.files("dinbilledform").isMissing Then Set File = objUpload.files("dinbilledform") File.SaveAs (Server.Mappath(strUploadPath & "filnavn.jpg")) Set File = Nothing End If Set objUpload = Nothing %>
med den postede kode virker de ikke nej - men det kan let løses ved enten at lave if-delen lige så mange gange som du har input-felter eller lave en foreach løkke (noget i retning af "For Each File In objUpload.Files...")
Og så skal du stadig huske på at "dinbilledform" er navnet på dit input-felt og ikke på selve formen.
keysersoze> Jeg kan ikke få fastlagt mine fejmeddeleser igen...! hvor skal de være ?
If Err Then %>FEJL!!!<% Else %>Godkendt<% End If
On Error Resume Next On Error Goto 0
i mit script her:
<% Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") objUpload.AllowedFilesList = "jpg,jpeg" objUpload.DownloadBlockSize = 32768 strUploadPath = "cut/" objUpload.Upload uphead="1" For Each File in objUpload.files If Not objUpload.files("fil"& uphead).isMissing Then Set File = objUpload.files("fil"& uphead) File.SaveAs (Server.Mappath(strUploadPath & "filnavn"& uphead &".jpg")) Set File = Nothing End If uphead=uphead+1 Next Set objUpload = Nothing %>
keysersoze > kan man lave så hvis der er en fejl f.eks. et gif billede så uploader den stadig jpg-billederne mens den skriver en specifik fejl der hedder "blandt billederne var der et eller flere gif billeder" ??
Jeg ved ikke hvordan aspsmartupload håndterer disallowed filtyper - altså om den barer ignorerer den enkelte fil eller hele uploaden melder fejl - så det må du prøve dig frem med.
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.