Quinta, 11 de Agosto de 2022
Busca no site:
Ok
Home
Links
Soluções
Utilitários
Publicações
Curiosidades
Produtos
Notícias
Diversões
Apps Android
Transporte
Busca na Web
Contato
Mapa do Site
Sobre Nós
©2022 CJDinfo®
Detalhe Solução
ASP: Retorna URL Local
:
'------------------------------------------------------------------- ' LocalURL ' Retorna a URL Local Normalizada subtraída de NDir '------------------------------------------------------------------- function LocalURL(NDir) dim s, i, n s = "http" if UCase(Request.ServerVariables("HTTPS")) = "ON" then s = "https://" else s = "http://" end if s = s & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") for i = 1 to NDir + 1 n = InStrRev(s, "/") - 1 if n <=0 then LocalURL = "" exit function end if s = left(s, n) next LocalURL = s & "/" end function
¤ Links Relacionados:
- Veja todas as soluções do site
Gostou? Compartilhe ou comente:
Nome:
Email:
Comentário:
Retornar