Avatar billede bramsing Nybegynder
08. december 2004 - 21:41 Der er 13 kommentarer og
2 løsninger

ASPupload filtype begrænsning - Genåbnet

Jeg har følgende upload og mail script som jeg gerne skulle have lagt en begrænsning ind i så det kun er zip,doc,pdf,bmp,jpg,tiff og gif der kan uploades og derved sendes....

--------------------------------------------------
    Set JMail = Server.CreateObject("JMail.Message")
    Set Upload = Server.CreateObject("Persits.Upload")
    JMail.logging = true
    JMail.silent = true
    Upload.SetMaxSize 120000, True
    On Error Resume Next
    Upload.save
    For Each File in Upload.Files
        File.SaveAsVirtual "/db/"&File.FileName
        fullname = "/db/"&File.FileName
        JMail.AddCustomAttachment fullname, fullname, false
    next
        JMail.From = upload.form("email")
        JMail.FromName = upload.form("name")&" - Kontakt fra Website"
        JMail.Subject = upload.form("about")&" - "&upload.form("headline")
        JMail.AddRecipient "info@bramsing-develop.dk","Mig"
        JMail.HTMLBody = replace(upload.form("body"), vbcrlf, "<br>")
        JMail.Priority = 1
        JMail.send("localhost")
        Upload.Files(1).Delete

Håber på hjælp ;o) - Da den tilsyneladende er lidt problematisk har jeg sat lidt flere point på højkant end normalt :o)
Avatar billede mikkelk Nybegynder
08. december 2004 - 21:59 #1
Du kan vel tjekke på endelsen af filnavnet...
if lcase(right(File.FileName, 4)) = ".jpg" then
godkendt...
Avatar billede cpufan Juniormester
08. december 2004 - 22:00 #2
Set JMail = Server.CreateObject("JMail.Message")
    Set Upload = Server.CreateObject("Persits.Upload")
    JMail.logging = true
    JMail.silent = true
    Upload.SetMaxSize 120000, True
    'On Error Resume Next udkommenteret for at se fejl
    Upload.save
    For Each File in Upload.Files
If File.imageType <> "bmp" and  File.imageType <> "tiff" and  File.imageType <> "jpg" and  File.imageType <> "gif" and  File.imageType <> "zip" and File.imageType <> "pdf" and File.imageType <> "doc" Then
Response "ERROR"
file.delete
else       
File.SaveAsVirtual "/db/"&File.FileName
        fullname = "/db/"&File.FileName
        JMail.AddCustomAttachment fullname, fullname, false
end if   
next
        JMail.From = upload.form("email")
        JMail.FromName = upload.form("name")&" - Kontakt fra Website"
        JMail.Subject = upload.form("about")&" - "&upload.form("headline")
        JMail.AddRecipient "info@bramsing-develop.dk","Mig"
        JMail.HTMLBody = replace(upload.form("body"), vbcrlf, "<br>")
        JMail.Priority = 1
        JMail.send("localhost")
        Upload.Files(1).Delete
Avatar billede bramsing Nybegynder
08. december 2004 - 22:49 #3
cpu fan Den skriver kun error.. Nu modtager jeg dog emailen men ikke filen.... mikkelk Jeg kigger lige på dit forslag....
Avatar billede cpufan Juniormester
08. december 2004 - 23:02 #4
skriver den også error når det er en gif f.eks.
Avatar billede bramsing Nybegynder
08. december 2004 - 23:19 #5
Jeg har nu prøvet .ini - .txt - .bmp - .jpg - .gif - .pdf og alle giver ikke nogen ERROR... men filen bliver heller ikke vedhæftet... og mikkelk Jeg kan heller ikke få din til at fungere :o(
Avatar billede cpufan Juniormester
08. december 2004 - 23:23 #6
har du et link
Avatar billede bramsing Nybegynder
08. december 2004 - 23:24 #7
cpufan Har du MSN ?? diddl_2400@hotmail.com
Avatar billede cpufan Juniormester
08. december 2004 - 23:29 #8
Avatar billede bramsing Nybegynder
08. december 2004 - 23:32 #9
Jo, men problemet er at Web10 ikke har w3.Upload ... De har kun ASPupload... Hevde de så bare haft ASPsmartUpload ville det ikke være så svært....
Avatar billede mikkelk Nybegynder
09. december 2004 - 08:07 #10
acceptedExtensions = ".zip,.doc,.pdf,.bmp,.jpg,.tiff,.gif,"
    Set JMail = Server.CreateObject("JMail.Message")
    Set Upload = Server.CreateObject("Persits.Upload")
    JMail.logging = true
    JMail.silent = true
    Upload.SetMaxSize 120000, True
    On Error Resume Next
    Upload.save
    For Each File in Upload.Files
    strExtension = right(File.FileName, 4)
    if instr(acceptedExtensions, strExtension) then
        File.SaveAsVirtual "/db/"&File.FileName
        fullname = "/db/"&File.FileName
        JMail.AddCustomAttachment fullname, fullname, false
    end if
    next
        JMail.From = upload.form("email")
        JMail.FromName = upload.form("name")&" - Kontakt fra Website"
        JMail.Subject = upload.form("about")&" - "&upload.form("headline")
        JMail.AddRecipient "info@bramsing-develop.dk","Mig"
        JMail.HTMLBody = replace(upload.form("body"), vbcrlf, "<br>")
        JMail.Priority = 1
        JMail.send("localhost")
        Upload.Files(1).Delete
Avatar billede bramsing Nybegynder
10. december 2004 - 16:58 #11
Jeg har droppet idéen indtil nu.... Men jeg vil gerne lade jer dele point'ne for jeres tålmodige hjælp :o) (40 mikkilm - 60 cpufan)

Håber det er ok
Avatar billede cpufan Juniormester
10. december 2004 - 17:04 #12
jamen fik du det ikke til at virke?
Avatar billede mikkelk Nybegynder
10. december 2004 - 17:38 #13
ok :-) Fair nok, men det burde nu kunne komme til at virke...
Avatar billede bramsing Nybegynder
11. december 2004 - 17:41 #14
cpufan.. Nej... Den uploade fint til serveren men det gik galt i vedhæftningen et eller andet sted... De gange hvor den fik sendt vedhaftningen hæftede den vidst kun en form for genvej, hvor jeg troede at den fik hæftet hele filen...
Avatar billede cpufan Juniormester
11. december 2004 - 17:55 #15
så skal der måske stå:

JMail.AddCustomAttachment fullname, file, false

i stedet for det andet
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