08. december 2004 - 21:41Der 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)
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
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(
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...
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.