Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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")
Carregando comentários...