ContentType com Dundas upload Não aceita

[Kalahan Santhiago 0]

Olá pessoal, estou com problema de upload com Dundas.Não estou conseguindo verificar o tipo da imagem antes de salvar.Uso SaveAs, então preciso saber a extensão do arquivo. ContentType

[thicomp 0]

Tenta fazer a comparação do arquivo a ser enviado com a extensão da imagem que você quer, se foi isso mesmo que entendi...Abçs

[Ted k' 126]

tente isso cara

 

For Each File In Upload.Files
		If File.ImageType <> "JPG" And File.ImageType <> "GIF" And File.ImageType <> "PNG" Then
			File.Delete
			Response.Write("<script>alert('Formato de arquivo inválido! Verifique seu arquivo corretamente!');location='java script:history.back(-1)'</script>")
			Response.End()
		End If
Next

[Kalahan Santhiago 0]

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01B6)

O objeto não dá suporte para a propriedade ou método: 'ImageType'

/gtethos/inserethumnails.asp, line 29

 

 

usei o codigo q o Ted k' postou, mas naum deu.

vejam o codigo

 

If File.ImageType = "JPG" Then

objUploadedFile.SaveAs strPathFile &"/thumb_"&codNoticia&"_entrevista.jpg"

Else if File.ImageType = "GIF" then

objUploadedFile.SaveAs strPathFile &"/thumb_"&codNoticia&"_entrevista.gif"

End If

End If

Next

 

Set ObjFso = Nothing

resultado =resultado+1

Next

 

%> _linenums:0'><% codNoticia = Request.Querystring("codNoticia") response.write codNoticia Dim ObjUpload, x, FCONT Set ObjUpload = Server.CreateObject("Dundas.Upload.2") ObjUpload.MaxFileSize = 10485760 ObjUpload.UseUniqueNames = False ObjUpload.UseVirtualDir = False objUpload.SaveToMemory resultado = 1 For Each objUploadedFile in objUpload.Files strPathFile = Server.MapPath("img/") Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") For Each File In objUpload.Files linha 29 <strong class='bbc'>If File.ImageType = "JPG" Then</strong> objUploadedFile.SaveAs strPathFile &"/thumb_"&codNoticia&"_entrevista.jpg" Else if File.ImageType = "GIF" then objUploadedFile.SaveAs strPathFile &"/thumb_"&codNoticia&"_entrevista.gif" End If End If Next Set ObjFso = Nothing resultado =resultado+1 Next %>

[Ted k' 126]

amigo o ImageType foi só um nome que coloquei você tem que colocar o que você está desenvolvendo

 

exp:

 

objUpload

[Kalahan Santhiago 0]

amigo o ImageType foi só um nome que coloquei você tem que colocar o que você está desenvolvendoexp:objUpload

Nossa , não funcionau. http://forum.imasters.com.br/public/style_emoticons/default/upset.gif Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01B6)O objeto não dá suporte para a propriedade ou método: 'ObjUpload'/gtethos/inserethumnails.asp, line 28

[Ted k' 126]

cara como frizei é só um exemplo, pelo que estou vendo você está usando o objUploadedFile