Desglosar dominio y extensión a partir de una url con ASP

Este código nos permite partir un dominio en dos partes, su nombre y su extensión.

El dominio entero está en la variable url en el ejemplo le asignamos el valor directamente peró en realidad seria más práctico pasarle el valor desde un formulario.

El resultado estará contenido en las variables dominio y ext.

<%
url = "http://www.alias.dominio.net/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)
%>

Usuarios que han visto este tema también han visto...

- Envio EMail con HTML en ASP
- Validar usuarios con Sesiones con ASP
- Objeto Application en ASP
- ¿Cuanto tarda en cargar una página en ASP?
- El objeto Drive en ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento