Avatar billede stanz2002 Nybegynder
17. oktober 2003 - 19:52 Der er 4 kommentarer og
2 løsninger

ASPsmartUpload SaveAs!

Hej..

Jeg har en side med følgede form :

----------------------------------------

<form action="image_done_dk.asp" method="post" ENCTYPE="multipart/form-data" name="image_upload">
                    <p>&nbsp;</p>
                    <table width="325" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td><input name="image" type="file" class="tekst" id="image" size="50">
                        </td>
                      </tr>
                      <tr>
                        <td>&nbsp;</td>
                      </tr>
                      <tr>
                        <td align="center"><input name="Submit" type="submit" class="tekst-bold" value="Upload billede"></td>
                      </tr>
                    </table>
                    <p> <br>
                    </p>
                    </form>

----------------------------------------

Samt følgede kode i filen image_done_dk.asp, som formen ovenover henviser til..

----------------------------------------

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim intCount
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
  ' intCount = mySmartUpload.Save("../../applicants/images/")
  ' sample with a physical path
  ' intCount = mySmartUpload.Save("c:\temp\")

    mySmartUpload.SaveAs("../../applicants/images/" & (RecImage.Fields.Item("ID").Value))

%>

----------------------------------------

Jeg får så denne fejl :

--------------
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'SaveAs'

/enmulighed/sitedk/cv/image_done_dk.asp, line 161
--------------

Hvad skal jeg ændre for det virker..

Det den skal gøre er at gemme billede (fx testfoto.jpg) med personens ID-nr fra databasen som filnavn (fx 006565.jpg)

Desuden skal der tilføjes begrænsninger på maks 100kb og at det kun må være JPG, GIF og JPEG billeder der kan uploades..

Håber der er nogen der kan fikse det for mig :) :)

/ Kenneth
Avatar billede thefatman Nybegynder
17. oktober 2003 - 21:58 #1
Brug denne kode:
<%
' Tjekker om der overhoved er blevet posted fra en form
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then

' Variabler
  Dim mySmartUpload,intCount     
' Sætter Object
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Sætter MAX upload size - 10000bytes - 100kb
  mySmartUpload.MaxFileSize = 100000
' Sætter allowed endelser
  mySmartUpload.AllowedFilesList = "gif,jpg,jpeg" 
' Upload filer
  mySmartUpload.Upload
  mySmartUpload.SaveAs("../../applicants/images/" & (RecImage.Fields.Item("ID").Value)) & "." & mySmartUpload.FileExt)
' Close object
  Set mySmartUpload = nothing
 
End if 
%>


Jeg har tilføjet, så den tjekker om siden overhoved er blevet posted fra en form, da man ellers kunne loade image_done_dk.asp og få en fejl.


Skriv lige hvis det ikke virker..
Avatar billede stanz2002 Nybegynder
17. oktober 2003 - 22:55 #2
Den gir den her fejl :

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'FileExt'

/enmulighed/sitedk/cv/image_done_dk.asp, line 155

------------------------------------

Linie 55 :

mySmartUpload.SaveAs("../../applicants/images/" & (RecImage.Fields.Item("ID").Value) & "." & mySmartUpload.FileExt)
Avatar billede stanz2002 Nybegynder
17. oktober 2003 - 23:03 #3
Hov.. kommer i tanke om at når jeg nu skal ha billeder vist igen på en helt anden side, så kan den jo ikke finde ud af om det er jpg, gif osv..

så jeg tror jeg bliver nødt til at sige at det kun er JPG billeder der må uploades..

Gør det det nemmere at løse.. Så skal filen bare omdøbes til ID.jpg..
Avatar billede stanz2002 Nybegynder
17. oktober 2003 - 23:16 #4
Hvis jeg bruger den her linie i linie 155 :

-------------------------
  mySmartUpload.SaveAs("../../applicants/images/" & (RecImage.Fields.Item("ID").Value) & ".jpg")
-------------------------

så får jeg følgende fejl i stedet for!

-------------------------
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'SaveAs'

/enmulighed/sitedk/cv/image_done_dk.asp, line 155
-------------------------
Avatar billede stanz2002 Nybegynder
20. oktober 2003 - 11:41 #5
ik nogen der ka hjælpe :)
Avatar billede stanz2002 Nybegynder
21. oktober 2003 - 00:19 #6
Har fundet løsningen selv...

-----------------------------
mySmartUpload.Files.Item(1).Saveas server.mappath("\applicants\images\" & (RecImage.Fields.Item("ID").Value) & ".jpg")
-----------------------------
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