Função para verificar se a URL da imagem existe

[hargon 64]

A função retornará True para URL de imagem válida e False para URL inválida.

 

Function verificaImagem(url)
	'-------------------------------------
	' Função desenvolvida por Hargon
	' Fórum iMasters
	'-------------------------------------
	Dim objHttp, resultado
	
	On Error Resume Next
	
	Set objHttp = Server.CreateObject("MSXML2.XMLHTTP")
	objHttp.Open "GET", url, False
	objHttp.Send
	resultado = objHttp.getResponseHeader("Content-type")
	Set objHttp = Nothing
	
	If ((inStr(resultado,"image") > 0) And (Err.Number = 0)) Then
		resultado = True
	Else
		resultado = False
	End If
	
	verificaImagem = resultado
End Function

Response.Write verificaImagem("http://forum.imasters.com.br/style_images/10/logo5.gif")

[augustoclaro 2]

muito bom!

 

obrigado pelo código, com certeza me vai ser muito útil!

[hargon 64]

Bacana augustoclaro.

 

Criei o código para ajudar o Patrique, mas espero que ajude muitas pessoas. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Mário Monteiro 179]

otimo codigo mesmo

 

pode ser muito util