[ASP] externe link controleren

[A. Koolen]

Hallo,

Is het mogelijk om met ASP een externe link te controleren? Ik wil namelijk
beelden van een webcam laten zien op een site.
Nu wil ik laten controleren dat als mijn computer (met een vast ip adres)
offline is dat hij dan geen webcam plaatje laat zien.
Is dit mogelijk?

Arthur

[KLinZ]

A. Koolen wrote:

> Is het mogelijk om met ASP een externe link te controleren? Ik wil
> namelijk beelden van een webcam laten zien op een site.
> Nu wil ik laten controleren dat als mijn computer (met een vast ip
> adres) offline is dat hij dan geen webcam plaatje laat zien.
> Is dit mogelijk?

Ja, dat kan. Je moet hier echter wel een third party component als 'socket'
(http://www.dynu.com/) voor installeren.

Een andere client-side oplossing is om het onerror event van het plaatje te
gebruiken. Op de onerror maak je de src van het plaatje gelijk aan een
standaard plaatje.

--
www.zenobits.com

[Daniel Tryba]

KLinZ <klinz@nospamzenobitsspamno.com.invalid> wrote:

> Ja, dat kan. Je moet hier echter wel een third party component als 'socket'
> ([url]http://www.dynu.com/) voor installeren.

Niet perse nodig. je kan ook het XMLHttpRequest
(http://msdn.microsoft.com/library/en-us/xmlsdk30/htm/xmobjxmlhttprequest.asp)
object gebruiken (dan wel HEAD ipv GET of POST als method gebruiken).

--

Daniel Tryba

[A. Koolen]

>
> Niet perse nodig. je kan ook het XMLHttpRequest
>
(http://msdn.microsoft.com/library/en-us/xmlsdk30/htm/xmobjxmlhttprequest.as
p)
> object gebruiken (dan wel HEAD ipv GET of POST als method gebruiken).
>

Dan zou deze code dus moeten kloppen lijkt me. Iets klopt er niet, want de
pagina laden indicator blijft hangen in IE 6.
Weet iemand wat?


<%
strURL="http://www.msn.nl/images/logo.gif"
If strURL<>"" Then
If Left(LCase(strURL),7)<>"http://" Then
strURL="http://" & strURL
End If
On Error Resume Next
Dim objHTTP
Dim sHTML
Set objHTTP = CreateObject ("Microsoft.XMLHTTP")
objHTTP.open "HEAD", strURL, False
objHTTP.send
sHTML=objHTTP.statusText
If err Or sHTML<>"OK" Then
sTxt="fail"
Else
sTxt="ok"
End If
Set objHTTP=Nothing
Else
sTxt="fail"
End If
Response.Write("result=" & sTxt & "&ref=" & strURL & "<BR>")
%>