Sexta, 22 de Novembro de 2024
Busca no site:
Ok
Home
Links
Soluções
Utilitários
Publicações
Curiosidades
Produtos
Diversões
Apps Android
Contato
Mapa do Site
Sobre Nós
©2024 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