Asp - Partir una url obteniendo dominio y extension
Códigos Asp
Conseguimos partir la url de dominio en dos partes, su nombre y su extensión.
Tutores.org
Mostrando Codigo - Asp
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
- <%
- url = "http://www.tutores.org/noticias/index.asp"
- 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)
- response.write dominio &"<br>"
- response.write ext
- %>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Partir una url obteniendo dominio y extension" href="http://www.tutores.org/codigo/1517/" target="_blank">Partir una url obteniendo dominio y extension</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Partir una url obteniendo dominio y extension" href="http://www.tutores.org/codigo/1517/" target="_blank">Partir una url obteniendo dominio y extension</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS