[Resolvido] Recuperando Domínio da url

[xanburzum 169]

<%
Function DominiodaUrl( sText )
'
Dim nIndex
If LCase(Left( sText, 7 )) = "http://" Then
sText = Mid( sText, 8 )
End If
If LCase(Left( sText, 8 )) = "https://" Then
sText = Mid( sText, 9 )
End If
nIndex = InStr( sText, "/")
If nIndex > 0 Then
sText = Left( sText, nIndex - 1 ) 
End If
DomainFromReq = sText
End Function

%>

 

 

Usando a função:

 

DominiodaUrl( "http://www.imasters.com.br/forum/index.php?act=post&do=new_post&f=49") -> www.imasters.com.br

 

DominiodaUrl( "http://www.youtube.com/my_favorites") -> www.youtube.com

 

DominiodaUrl( "www.seu site.net/articles/art1/art1.asp") -> www.seu site.net