Recuperar Request.QueryString

[kania 0]

Ola´turma,

 

Gente como eu faço para pegar uma determinada variavel da QueryString, vou exlplicar meljhor.

 

tenho uma string

 

default.asp?pag=envia_email_unico.asp&id=1

 

Ssó que eu mudo ela conforme a pagina, tipo se for da pagina alunos ela vem assim:

 

default.asp?pag=envia_email_unico.asp&idAluno=1

 

Se for da pagina adiministrdores vem assim:

 

default.asp?pag=envia_email_unico.asp&idAdmin=1

 

Se notarem tenho 2 itens diferentes ali que enviam para amesma pagian de processamento que á pagina

 

envia_email_unico.asp

 

O que estou querendo fazer é fazer um if do tipo

 

If ... = idAluno then

 

executa este código

 

else

 

executa outro código

 

tem como eu pegar isto da string?

[xanburzum 169]

todas QueryString passado nos formulários

 

Sub WriteOutCode
   vbQuot = "''"
For each objItem in Request.Querystring
		   Response.Write "str" &objItem &" = Request.Querystring(" &vbQuot &objItem &vbQuot &")" _
		   &"<BR>"  &"Value  - " &Request.Querystring(objItem) &"<HR>"
		 Next  
End Sub

[kania 0]

Opa Xanburzum, tudo bom?

Na verdade fera oque estyou tentando pegar não é o valor repassado pela Querystring, mas sim o seu identificardor, tipo:

 

Request.Querystring("IDAluno")

resultado dela vai ser = 20 por exemplo

 

O que eu quero pegar é o identificador dela o "IDAluno", pois na URL tem mais de uma String sendo passada, ai se eu conseguir identificar um identificador em específico consigo fazer o IF para ele.

[Ted k' 126]

Fiz um POG meio bruto, mais acho que é isso que você quer:

 

<%
Caminho = "default.asp?pag=envia_email_unico.asp&idAluno=1"  
Query = Right(Caminho, Len(Caminho) - InstrRev(Caminho,"&"))
QueryTiraFinal = Len(Right(Caminho, Len(Caminho) - InstrRev(Caminho,"=") + 1))
Query_ID = Left(Query, Len(Query) - QueryTiraFinal)

If Query_ID = "idAluno" Then
Response.Write("A Id é essa: "&Query_ID)
	Else
Response.Write("A Outra Id é essa: "&Query_ID)
End If
%>

[xanburzum 169]

olha esta funcao

 

Private Function QueryTrimmer(QueryField, QueryString)

	dim pos1, pos2, strLeftOvers, strRightOvers
	
	If QueryString <> "" Then
		pos1 = instr(QueryString, QueryField)
		strLeftOvers = left(QueryString, pos1-2)
		strRightOvers = mid(QueryString, pos1)

		pos2 = instr(strRightOvers, "&")

		if pos2 > 0 then
			QueryString = strLeftOvers & mid(strRightOvers, pos2)
		else
			QueryString = strLeftOvers
		end if
	End If
	QueryTrimmer = QueryString

End Function

[Mário Monteiro 179]

voce pega da mesma forma passada acima

 

For each objItem in Request.Querystring
	  Response.Write ("nome = " & objItem & " e valor = " &Request.Querystring(objItem) &"<br>"
Next

[xanburzum 169]

Se você não especificar valores para exibir todas as variável, serão retornadas:

 

http://www.teste.com/teste/nomes.asp?n=xan&idade=30

 

Query string é: <% = Request.QueryString%> o resultado seria:

 

Query string é: name=xan&idade=30

 

dae você pode usar uam das funções acima para recuperar a variavel e se desejar o valor tb.

 

como tb

 

<% 
For Each key in Request.QueryString 
Response.Write (key) &"=" & Request.QueryString(key) & "&"
Next 
%>

e olha esta função, a URL completa de uma página apresenta-se em três partes:

O nome de domínio,

o caminho para o arquivo, em seguida, o nome do arquivo,

e da QueryString.

 

Por exemplo, a URL http://www.exemplo.com.br/exemplo/teste.asp?nome=xan.

 

As três partes deste são:

 

1. O nome de domínio: www.exemplo.com.br

2. O caminho para a página: / exemplo/ teste.asp

3. O QueryString: nome=xan

 

 

<%@language="VBScript"%>
<%
 Dim strDomain, strPath, strQueryString, strURL
‘descobrir o domínio:
strDomain = Request.ServerVariables("HTTP_HOST")
'Descobrir o caminho para o arquivo atual:
strPath = Request.ServerVariables("URL")
'Descobrir a QueryString:
strQueryString = Request.ServerVariables("QUERY_STRING")
 ‘ junta tudo:
 strURL = "http://" & strDomain & strPath & "?" & strQueryString
 Response.Write "O atual endereço é: " & strURL
%>