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> </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> </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
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
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..
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)
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..
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 -------------------------
20. oktober 2003 - 11:41
#5
ik nogen der ka hjælpe :)
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") -----------------------------
Kurser inden for grundlæggende programmering