SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Asp
Code

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
Visitas: 16,539 - 15/09/2004 1:20:41
DemoNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2. Dim comp_enlace_vuelta, url_vuelta, texto_url_vuelta
  3. comp_enlace_vuelta=False
  4. enlace_vuelta="www.tutores.org"
  5. url_vuelta= "www.tutores.org/tutores/index.asp"
  6. If url_vuelta <> "" Then
  7. If Left(LCase(url_vuelta),7)<>"http://" Then
  8. url_vuelta="http://" & url_vuelta
  9. End If
  10. On Error Resume Next
  11. Dim objXMLHTTP, sHTML
  12. Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
  13. objXMLHTTP.open "GET", url_vuelta, False
  14. objXMLHTTP.send
  15. sHTML=objXMLHTTP.statusText
  16. If Err.number=0 OR sHTML="OK" Then
  17. texto_url_vuelta= objXMLHTTP.ResponseText
  18. If InStr(1,texto_url_vuelta, enlace_vuelta) > 0 Then
  19. comp_enlace_vuelta=True
  20. Else
  21. comp_enlace_vuelta=False
  22. End If
  23. Else
  24. comp_enlace_vuelta=False
  25. End If
  26. Set objHTTP=Nothing
  27. Else
  28. linkback=False
  29. End If
  30. If comp_enlace_vuelta=False Then
  31. response.write "No se ha detectado ningun enlace hacia: "& enlace_vuelta&""
  32. Else
  33. response.write "El enlace hacia: "& enlace_vuelta&" se ha detectado"
  34. End If
  35. %>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<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>
<!-- Final enlace Tutores.org -->
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.