Tirar valor da Url entre barras

[interlokk 0]

Fala pessoal,

 

como eu faço pra tirar um valor da URL que está entre barras e que não pode ser pego via request.querystring.

 

Exemplo:

 

http://www.meusite.com/pasta/subpasta/pagina/312/

 

Nessa Url que quero passar o valor 312 para outra página. Tem como fazer isso usando alguma request.servervariables ou outro modo?

 

Muito grato.

[hargon 64]

Você está querendo aplicar o conceito de URL Amigável?

 

Você está utilizando algum componente ou está usando página de erro?

[interlokk 0]

Estou criando urls amigáveis por meio de regras no .htaccess. Eu uso o isapi rewrite que me permite usar o .htacess em servidores windows.

[desisto 0]

nao entendi o que você quer

 

pode dar um exemplo do que você quer pegar e de como esta o codigo no isapi?

[interlokk 0]

TEm um exemplo no primero post. O código não vai no isapi e sim no .htaccess que cria regras para o servidor manipular as urls.

[xanburzum 169]

este assunto urls amigáveis / isapi rewrite , existem muitos tópicos com varias situacoes k pode te ajudar , dá uma pesquisada no forum..

[interlokk 0]

Pesquisei e não achei nada sobre esse problema em particular. Mais alguma dica?

[xanburzum 169]

olha este exemplo k recupera nomes de arquivos e caminhos de um determinado arquivo

 

Function getFileName()
  Dim lsPath, arPath

'Obter o caminho do arquivo virtual
  lsPath = Request.ServerVariables("SCRIPT_NAME")

  ' Split no caminho  Isso cria um 
   'Array unidimensional 
  arPath = Split(lsPath, "/")

  ' O último item na matriz contém o nome do arquivo
  GetFileName =arPath(UBound(arPath,1))
End Function

 

Function getFilePath()
  Dim lsPath, arPath

  ' Obter o caminho do arquivo virtual. SCRIPT_NAME 
   'Item na coleção ServerVariables no 
   'Objeto de solicitação tem o caminho completo 
  lsPath = Request.ServerVariables("SCRIPT_NAME")
    
   ' Split no caminho  Isso cria um 
   'Array unidimensional 
  arPath = Split(lsPath, "/")

  'Definir o último item na matriz de string em branco 
   '(O último item é realmente o nome do arquivo)
  arPath(UBound(arPath,1)) = ""

  ' Junte os itens na matriz. Isto 
   'Dar-lhe o caminho virtual do arquivo
  GetFilePath = Join(arPath, "/")
End Function

[interlokk 0]

Valeu xanburzum!

 

Vou testar o código e posto aqui se funcionou. Grato.

[xanburzum 169]

beleza, testa, e kker coisa posta aki