Premetto che ho già ricercato sul forum di html.it vari metodi per controllare l'esistenza di un link esterno. Li riepilogo brevemente almeno se qualcuno li cerca li può trovare in questo messaggio.
Ho visto che vengono consigliati XMLHttp (installazione del componente):
<%
Dim Link
Dim objXMLHTTP
Link = "http://www.worldferrari.it"
on error resume next
Set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.Open "GET", Link, false
objXMLHTTP.Send
statuscode = objXMLHTTP.Status
if CInt(statuscode) = 12007 then
Errore = "Sito esistente"
Else
Errore = "Sito inesistente"
End IF
on error goto 0
%>
Metodo HTTP:
<%
Dim Link
Dim objHTTP
Link = "http://www.worldferrari.it"
objHTTP.open "GET",Link,False
objHTTP.SetRequestHeader "Content-type", "text/html"
objHTTP.send
IF Err.number <> 0 Then
Errore = "Sito inesistente"
Else
Errore = "Sito esistente"
End IF
sHTML = objHTTP.statusText
on error goto 0
%>
Purtroppo a me questi metodi danno problemi di timeout perché devo controllare una serie di link. Conoscete altri metodi per fare questo tipo di controllo? Io ho girato per internet 2 giorni non trovando quasi niente.
Rispondi quotando
