Problemas com Response.Redirect

[Victor Hasselmann 0]

Boa tarde, galera.

 

Através do código:

Response.Redirect("adminpanel.asp?cod=<%=vscodigo%>")

 

Estou tentando enviar para a próxima página o código do usuário.

A questão é que quando clico no botão 'Enviar' do formulário, recebo a seguinte resposta.

 

"Constante de Seqüência não Finalizada "

 

Tentei de outras formas e mesmo assim, não consegui enviar o código pela URL.

 

Se alguém puder ajudar, agradeço desde já.

[desisto 0]

quando você usa Response.Redirect, você estra trabalhando dentro as 'tags' asp <% %>, logo nao pode ser feito como você fez

 

Response.Redirect("adminpanel.asp?cod=<%=vscodigo%>")

 

 

 

o correto é assim

 

Response.Redirect("adminpanel.asp?cod="&vscodigo)

[xanburzum 169]

usa assim:

 

response.redirect("sua_pagina.asp?sua_variavel=4")

depois recupera atraves do

 

varmsgeof=request.querystring("sua_variavel")

[desisto 0]

ele precisa passar código do usuário dinamicamente e nao fixo como você exemplificou

[xanburzum 169]

sim onde sua_variavel será

na url será ?cod

e passando o valor vscodigo

?cod=&vscodigo

e sua_pagina = adminpanel.asp

 

Response.Redirect("adminpanel.asp?cod="&vscodigo)

[Victor Hasselmann 0]

Eu verifique meu código e, realmente, já estava trabalhando com as tags em asp, não precisaria abrir novamente.

 

Eu consegui passar a variável pela URL e recuperá-la pelo QueryString.

 

Meu outro problema é que, anteriormente, havia feito um pequeno algoritmo de criptografia, para passar o dado 'seguro' pela URL

 

vslogin= rs("Cli_Login")

x = len(vslogin)

vscodigo = ""

For i = 1 to Len(vscodigo)

c = Mid(vscodigo, i, 1)

a = Asc©

If a < 128 then

a = a + 128

Else

a = a - 128

End If

c = Chr(a)

vslogin = vslogin & c

Next

 

Recuperava por:

 

vslogin=trim(request.querystring("cod"))

 

 

 

E quando mando a variável pelo Redirect, ele manda vazio. Qual seria o problema?

Estou usando três páginas.

Login.asp

Verificação.asp (Onde é visto se o usuário está mesmo logado ou não

adminpanel.asp (Onde ele é redirecionado, caso exista)

[xanburzum 169]

existe ótimos codigos de criptografia no forum, da uma pesquisasda...

[desisto 0]

Victor

 

o que você esta critografando? a ID do usuario?

 

trabalhar com critografando é complicado, se ela nao funcionar,  apenas atrapalha

 

 

 

pq você nao trabalha com chave no lugar de ID?

 

crie um campo no BD e use-o como a propria critografia... quase no mesmo esquema de senha - onde as senha sao gravadas critografadas e comparadas

[xanburzum 169]

olha um exemplo simples

 

<%
Const EncC1 = 109
Const EncC2 = 191
Const EncKey = 161

Function EncriptaStr(Texto)
    Dim TempStr, TempResult, TempNum, TempChar
    Dim TempKey
    Dim i
    TempStr = Texto
    TempResult = ""
    TempKey = ((EncKey * EncC1) + EncC2) Mod 65536
    For i = 1 To Len(TempStr)
        TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256
        TempChar = Chr(TempNum)
        TempKey = (((Asc(TempChar) + TempKey) * EncC1) + EncC2) Mod 65536
        TempResult = TempResult & TempChar
    Next
    EncriptaStr = TempResult
End Function


Function DecriptaStr(Texto)
    Dim TempStr, TempResult, TempNum, TempChar
    Dim TempKey
    Dim i
    TempStr = Texto
    TempResult = ""
    TempKey = ((EncKey * EncC1) + EncC2) Mod 65536
    For i = 1 To Len(TempStr)
        TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256
        TempChar = Chr(TempNum)
        TempKey = (((Asc(Mid(TempStr, i, 1)) + TempKey) * EncC1) + EncC2) Mod 65536
        TempResult = TempResult & TempChar
    Next
    DecriptaStr = TempResult
End Function

Private Function AuxShr(Numero, BShr)
    AuxShr = Int(Numero / (2 ^ BShr))
End Function

'Testando o código
VarTeste = EncriptaStr("1 ,2 ,3 testando...")
Response.Write (VarTeste& "<br>")
Response.Write (DecriptaStr(VarTeste))
%>