har sökt här i forumet och i några andra men jag har inte hittat nått bra.
min fråga är om det går att kontrollera om en bild (man har adressen ex. http://www.domain.com/bild.gif) fungerar eller inte.
nån som vet en bra lösning?
tack på förhand!!
10 svar · 376 visningar · startad av Poffe
har sökt här i forumet och i några andra men jag har inte hittat nått bra.
min fråga är om det går att kontrollera om en bild (man har adressen ex. http://www.domain.com/bild.gif) fungerar eller inte.
nån som vet en bra lösning?
tack på förhand!!
Skulle tro att det är något sånt här du söker:
If objFSO.FileExists(Server.Mappath("enbild.gif")) Then
Response.Write "Filen finns!"
End if
Eftersom du skriver i ASP-forumet :)
jo det funkar om bilden ligger på servern scriptet körs på men det gör den tyvärr inte :(
Jag byggde en sådan funktion för ett tag sedan, den fungerar bra faktiskt. :)
<%
Function CheckImage(strPage)
Set objXMLHttp = Server.CreateObject ("Microsoft.XMLHTTP")
objXMLHttp.Open "GET", strPage ,False,"",""
objXMLHttp.Send
If objXMLHttp.Status = 200 Then
CheckImage = "Ok, denna bild finns!"
Else
CheckImage = "Varning, denna bild finns inte!"
End if
Set objXMLHttp = Nothing
End Function
%>
<%= CheckImage("http://www.webforum.nu/images/wfstandard/smilies/smile.gif") %>
Edit:
Den funkar inte nu :( vad man än skriver för adress så finns bilden, ävenfast den inte finns...
Hmm.. det enda strulet jag stött på är när domänen inte finns, men det kan man kontrollera innan.
Testar jag olika bilder på domänen webforum.nu får jag alltid Ok, denna bild finns! hur jag än gör.
Testar jag olika bilder på min egen domän fungerar det som det är tänkt. :OO :q
Har du testat olika bilder på olika servrar?
red: Stavfel..
ja, även på servrar som inte finns men det blir hur jag än gör "Ok, denna bild finns!"
men, nu verkar det fungera :D
För att göra så den inte visar true när den egentligen är false kanske du kan göra såhär:
Function CheckImage(strPage)
On Error Resume Next
Set objXMLHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHttp.Open "GET", trim(strPage) ,False
objXMLHttp.Send
If Err.Number = 0 Then
If objXMLHttp.Status = 200 then
CheckImage = True
Else
CheckImage = False
End if
Else
CheckImage = False
End If
Set objXMLHttp = Nothing
End Function