Asp - Desglosar una url
Códigos Asp
Este script permite partir una url entre el dominio y la estension de la pagina
Tutores.org
Mostrando Codigo - Asp
EXPLICACION
Debemos modificar la url con la que vayamos a utilizar
Otro modo seria recibiendolo desde un formulario, por lo modificariamos la linea de url por url=request("url")
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
- <%
- ' CODIGO OFRECIDO POR TUTORES.ORG
- url = "http://www.tutores.org/index.html"
- dominio = url
- If (InStr(dominio, "//") > 0) Then dominio = Mid(url, InStr(url, "//") + 2)
- If (InStr(dominio, "/") > 0) Then dominio = Mid(dominio, 1, InStr(dominio, "/") - 1)
- ext = Mid(dominio, InStrRev(dominio, ".") + 1)
- dominio = Mid(dominio, 1, InStrRev(dominio, ".") - 1)
- If (InStr(dominio, ".") > 0) Then dominio = Mid(dominio, InStrRev(dominio, ".") + 1)
- %>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Desglosar una url" href="http://www.tutores.org/codigo/581/" target="_blank">Desglosar una url</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Desglosar una url" href="http://www.tutores.org/codigo/581/" target="_blank">Desglosar una url</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS