Asp - Comprobar si existe un enlace en determinada url

Códigos Asp

Hay veces que exigimos a nuestros usuarios o visitantes que ingresen un enlace reciproco hacia nuestras paginas, pues bien este codigo se trata de eso, aunque tambien demuestra un ejemplo de como detectar algun termino especifico en alguna pagina web. En este caso detectamos si en la pagina www.tutores.org/tutores/index.asp aparece el enlace hacia www.tutores.org. Para que este codigo funcione nuestro servidor debe de tener instalado Microsoft.XMLHTTP

Tutores.org

Inicio > Asp

Visitas: 17,414 - 15/09/2004 1:20:41

CODIGO

<% 'Codigo ofrecido por Tutores.org %>

<%
Dim comp_enlace_vuelta, url_vuelta, texto_url_vuelta
comp_enlace_vuelta=False
enlace_vuelta="www.tutores.org"
url_vuelta= "www.tutores.org/tutores/index.asp"
If url_vuelta <> "" Then
If Left(LCase(url_vuelta),7)<>"http://" Then
url_vuelta="http://" & url_vuelta
End If
On Error Resume Next
Dim objXMLHTTP, sHTML
Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", url_vuelta, False
objXMLHTTP.send
sHTML=objXMLHTTP.statusText
If Err.number=0 OR sHTML="OK" Then
texto_url_vuelta= objXMLHTTP.ResponseText
If InStr(1,texto_url_vuelta, enlace_vuelta) > 0 Then
comp_enlace_vuelta=True
Else
comp_enlace_vuelta=False
End If
Else
comp_enlace_vuelta=False
End If
Set objHTTP=Nothing
Else
linkback=False
End If
If comp_enlace_vuelta=False Then
response.write "No se ha detectado ningun enlace hacia: "& enlace_vuelta&""
Else
response.write "El enlace hacia: "& enlace_vuelta&" se ha detectado"
End If
%>

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Comprobar si existe un enlace en determinada url" href="http://www.tutores.org/codigo/1250/" target="_blank">Comprobar si existe un enlace en determinada url</a>

COMENTARIOS

Aun no existe ningun comentario para este Codigo.

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.