Resgatar página atual

[Asteriscos 0]

Pessoal,

 

Fiz essa função aqui para pegar o nome do arquivo atual pq tava precisando resolver com urgência. Será que existe algo mais simples?

 

Não encontrei nada semelhante aqui na busca...

 

 

ASP

[*]

 

[*]Function resgatar_pagina()

 

[*] dim var_pagina,arr,procura,c,var_string_ok

 

[*] var_pagina = Request.ServerVariable("SCRIPT_NAME") 

 

[*] 'Request.ServerVariables("path_info")

 

[*]

 

[*] arr=split(trim(var_pagina),"/")

 

[*] procura=".asp"

 

[*]

 

[*] for c = 0 to ubound(arr)

 

[*] var_string_ok = arr©

 

[*]

 

[*] if right(var_string_ok,3) = "asp" then

 

[*] var_pagina = var_string_ok

 

[*] Response.write "Página atual:</b> " & var_pagina & "<br>"

 

[*] end if

 

[*] next

 

[*]End function

 

[*]

 

[*]resgatar_pagina

 

[*]

 

 

Obrigado!

[blac3r 0]

mais o proprio Request.ServerVariable("SCRIPT_NAME") pega o nome n presisa de tudo issu de codigo. pelo que eu entendi a sua pergunta se ker soh o nome do arquivo neh.

[dark0 0]

hum..você quer só o nome da página?essa server variable ae nao mostra o que você quer prontinho?

[Asteriscos 0]

Eu quero soh o nome do arquivo, mas com as duas server variables me mostra o caminho completo...

 

Path_info:

ASP

[*]<%=Request.ServerVariables("Path_info")%>

 

Resultado: /Nova pasta/Nova pasta/ServerVariables.asp

 

SCRIPT_NAME:

ASP

[*]<%=Request.ServerVariables("SCRIPT_NAME")%>

Resultado: /Nova pasta/Nova pasta/ServerVariables.asp

 

Desculpa ae pela demora na resposta! acabei dormindo...

[Mário Monteiro 179]

use so a segunda entao...