webForumDet fria alternativet

finns bilden?

ASP

10 svar · 376 visningar · startad av Poffe

Medlem sedan apr. 20022 743 inlägg
Frågan#1

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!!

Medlem sedan apr. 2001126 inlägg
#2

Här finns nog ditt svar: http://www.aspsidan.nu/forum/visaTrad.asp?id=10759&kategori=ASP

/MJ

Medlem sedan feb. 20022 594 inlägg
#3

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 :)

Medlem sedan apr. 20022 743 inlägg
#4

jo det funkar om bilden ligger på servern scriptet körs på men det gör den tyvärr inte :(

Medlem sedan dec. 2000557 inlägg
#5

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") %>
Medlem sedan feb. 20022 594 inlägg
#6

Smart funktion, Palleman.

Tänkte aldrig på RegExp :r

Medlem sedan apr. 20022 743 inlägg
#7

Edit:

Den funkar inte nu :( vad man än skriver för adress så finns bilden, ävenfast den inte finns...

Medlem sedan dec. 2000557 inlägg
#8

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..

Medlem sedan apr. 20022 743 inlägg
#9

ja, även på servrar som inte finns men det blir hur jag än gör "Ok, denna bild finns!"

Medlem sedan apr. 20022 743 inlägg
#10

men, nu verkar det fungera :D

Medlem sedan dec. 19995 874 inlägg
#11

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
255 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)