Avatar billede thomas_b Nybegynder
29. januar 2008 - 14:33 Der er 29 kommentarer

aspSmartUpload - rename

Hej...

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

strUploadPath = "cut/"

objUpload.Upload

objUpload.Save(Server.MapPath(strUploadPath))

If Err Then
%>FEJL!!!<%
Else
%>Godkendt<%
End If

On Error Goto 0
Set objUpload = Nothing
%>
Avatar billede 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:

objUpload.Save(Server.MapPath(strUploadPath & "fil_navn.jpg"))

- i stedet for:

objUpload.Save(Server.MapPath(strUploadPath))

\Dan
Avatar billede thomas_b Nybegynder
29. januar 2008 - 17:44 #2
Det virker ikke... den viser "FEJL!!!"

nogen anden idé ?? :)
Avatar billede keysersoze Ekspert
29. januar 2008 - 22:32 #3
smartupload bruger saveas til omdøbning - fx;

File.SaveAs (Server.Mappath(strUploadPath & "filnavn.xxx"))
Avatar billede thomas_b Nybegynder
29. januar 2008 - 22:49 #4
det virker stadig ikke... der kommer ingen fil... og den skriver fejl!!! stadig...
Avatar billede thomas_b Nybegynder
29. januar 2008 - 22:54 #5
Den kommer med en fejl der hedder: Object required
Avatar billede keysersoze Ekspert
29. januar 2008 - 23:10 #6
hvilken linie fejler scriptet præcist i?
Avatar billede thomas_b Nybegynder
29. januar 2008 - 23:12 #7
Altså hvis jeg sætter Err.Description ind skriver den Object required ellers hvis jeg sletter

If Err Then
%>FEJL!!!<%
Else
%>Godkendt<%
End If

kommer den bare med en blank side, men uden og oprette nogen fil...
Avatar billede thomas_b Nybegynder
29. januar 2008 - 23:18 #8
Så der kommer ikke en alm. fejlside...
Avatar billede keysersoze Ekspert
29. januar 2008 - 23:37 #9
hvis du udkommenterer hele din fejl-håndtering så kommer der en reel fejlmeddelelse.

Men hvis du har brugt mit direkte er det årsagen til fejlen for mit objekt hedder noget andet end det så det skal du lave om til

objUpload.SaveAs (Server.Mappath(strUploadPath & "filnavn.xxx"))
Avatar billede thomas_b Nybegynder
29. januar 2008 - 23:44 #10
fejlen hedder nu "Object doesn't support this property or method: 'objUpload.SaveAs'" i den linie her objUpload.SaveAs (Server.Mappath(strUploadPath & "filnavn.xxx"))
Avatar billede thomas_b Nybegynder
30. januar 2008 - 13:08 #11
keysersoze> Virker det hos dig med dette ?

<%
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.AllowedFilesList = "jpg,jpeg"
objUpload.DownloadBlockSize = 32768
strUploadPath = "cut/"
objUpload.Upload
objUpload.SaveAs (Server.Mappath(strUploadPath & "filnavn.jpg"))
Set objUpload = Nothing
%>

Eller hvis der er noget helt helt galt med komponenten... kan man så finde ud af hvor filen hedder man vil uploade ?
Avatar billede keysersoze Ekspert
30. januar 2008 - 17:50 #12
nu skal jeg vidst også lige have kigget scriptet rigtigt igennem.

Når du uploader på den måde du gør skal du have fat i filen først - fx;

Set File = objUpload.files("dinbilledform")

herefter kan du gemme med

File.SaveAs (Server.Mappath(strUploadPath & "nytfilnavn.jpg"))

og så slutter vi lige af med at lukke for objektet

Set File = Nothing

Navnet kan du få med File.FileName og extension med File.FileExt.

En god ide er så inden disse ændringer at tjekke om der i det hele tager er en fil - fx med

If Not objUpload.files("dinbilledform").isMissing Then
  'kode
End If
Avatar billede thomas_b Nybegynder
30. januar 2008 - 18:34 #13
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
%>
Avatar billede keysersoze Ekspert
30. januar 2008 - 23:16 #14
det er navn på dit formfelt

<%
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
%>
Avatar billede thomas_b Nybegynder
30. januar 2008 - 23:42 #15
Det er fordi så kommer den med sådan en fejl her...: "Invalid Files Name 'dinbilledform'"
Avatar billede keysersoze Ekspert
31. januar 2008 - 00:09 #16
jamen - hvad har du da kaldt dit formfelt?
Avatar billede thomas_b Nybegynder
31. januar 2008 - 00:11 #17
det er denne du mener ikke ?

<form action="upload.asp" name="dinbilledform" method="post" enctype="multipart/form-data">
<input type="file" size=40 name="File1"><br>
<input type="file" size=40 name="File2"><br>
<input type="file" size=40 name="File3"><br>
<input type="submit" value="Upload">
</form>
Avatar billede keysersoze Ekspert
31. januar 2008 - 07:40 #18
nej - det input felt
Avatar billede keysersoze Ekspert
31. januar 2008 - 07:40 #19
det = dit.

altså fx File1
Avatar billede thomas_b Nybegynder
31. januar 2008 - 15:44 #20
så kommer denne fejl: "Object doesn't support this property or method: 'objUpload.SaveAs'" igen...
Avatar billede keysersoze Ekspert
31. januar 2008 - 18:26 #21
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
%>
Avatar billede thomas_b Nybegynder
31. januar 2008 - 20:24 #22
Jeg undskylder meget hvis jeg har forvirret lidt  :)
Jeg har ikke afprøvet men har jeg ikke ret i at hvis jeg har denne form...

<form action="upload.asp" name="dinbilledform" method="post" enctype="multipart/form-data">
<input type="file" size=40 name="File1"><br>
<input type="file" size=40 name="File2"><br>
<input type="file" size=40 name="File3"><br>
<input type="submit" value="Upload">
</form>

Så virker File2 og File3 (osv.) ikke ? - eller er jeg helt gal på den ?
I så fald hvordan orndnes det... :) - hvis det kan...
Avatar billede keysersoze Ekspert
31. januar 2008 - 21:38 #23
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.
Avatar billede thomas_b Nybegynder
31. januar 2008 - 22:37 #24
Det virker super... 1000 tak for hjælpen... :)

smider du et svar... :)
Avatar billede thomas_b Nybegynder
31. januar 2008 - 22:43 #25
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
%>
Avatar billede thomas_b Nybegynder
31. januar 2008 - 22:50 #26
Den fik jeg ige klaret aligevel... smidder du et svar... :)
Avatar billede thomas_b Nybegynder
31. januar 2008 - 23:37 #27
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" ??
Avatar billede keysersoze Ekspert
01. februar 2008 - 09:15 #28
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.
Avatar billede keysersoze Ekspert
17. marts 2008 - 17:49 #29
lukketid?
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