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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Slettet bruger
29. januar 2008 - 16:08#1
hej
- så vidt jeg husker så kan du gøre sådan her i denne her komponent:
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.