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 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
COMENTARIOS
Comentario usuario
5
5
zTA MUY BIEN SUS EXPLACIONES PERO DEBIA TENER MAS OCNTENIDO