Pegar pedaço da URL

[FabianoSouza 5]

A string seria a URL, tipo http://www.meusite.com.br/Site/acessos/sistema/

Preciso pegar o que estiver APÓS o domínio, /Site/acessos/sistema/

 

Tentei Request.ServerVariables("URL"). Mas isso não atende porque a página onde rodará essa função é chamada via AJAX, sendo assim, ela trará a URL dela mesma, que é diferente da ULR onde o usuário estará navegando.

 

Fiz essa gambiarra aqui para ir quebrando o galho. Mas quero algo melhor estruturado.

		'Recupera URL e constrói variável para para comparação		
		Dim var_url, var_string_url, var_sigla_modulo_url
		Dim slice1, slice2, slice3, var_url_sistema
		var_url = Request.ServerVariables("HTTP_REFERER")
		var_string_url = Split(var_url,"/")
		slice1 = var_string_url(3)
		slice2 = var_string_url(4)
		slice3 = var_string_url(5)
		var_url_sistema = "/"&slice1&"/"&slice2&"/"&slice3&"/"

Como faço?

 

Grato.

[xanburzum 169]

olha este code.

 

 

<%
function curPageURL()
 dim s, protocol, port

 if Request.ServerVariables("HTTPS") = "on" then
   s = "s"
 else
   s = ""
 end if  
 
 protocol = strleft(LCase(Request.ServerVariables("SERVER_PROTOCOL")), "/") & s

 if Request.ServerVariables("SERVER_PORT") = "80" then
   port = ""
 else
   port = ":" & Request.ServerVariables("SERVER_PORT")
 end if  

 curPageURL = protocol & "://" & Request.ServerVariables("SERVER_NAME") &_
              port & Request.ServerVariables("SCRIPT_NAME")
end function

function strLeft(str1,str2)
 strLeft = Left(str1,InStr(str1,str2)-1)
end function
%>

Agora você pode obter a URL da página atual usando a linha:

<%
  response.write(curPageURL())
%>

Se a sua página tem informação Querystring ,e você deseja, assim você pode tentar um código como este:

<%
  response.write(curPageURL() & "?" & Request.ServerVariables("QUERY_STRING"))
%>

Se a sua página possui formulário , use o seguinte código:

<%
  response.write(curPageURL() & "?" & Request.Form)
%>

Você pode obter o nome da página, assim:

<%
function curPageName()
 dim pagename

 pagename = Request.ServerVariables("SCRIPT_NAME")

  if inStr(pagename, "/") > 0 then
    pagename = Right(pagename, Len(pagename) - instrRev(pagename, "/"))
  end if

 curPageName = pagename
end function

response.write("The current page name is " & curPageName())
%>