Problema com Sessions - ASP

Raphael Guera · Maio 21, 2009

pessoal, bom dia,

estou desenvolvendo uma loja virtual, nos principios de uma que vi na net, porem não entendo muuuuuito de ASP

e sim php, boa parte dos scripts fui pegando na net e reformulando.

so que estou tendo um problema sério na parte do login.

tipo: eu vou no login digito minha senha e usuario, porem ele nao me mostra menu do usuario, e tem mais, se eu estiver comprando e logar no sistema, ele aceita normalmente efetuar, porem nao aparece o menu e so aceita a cobrança boleto bancário e transferencia/deposito, já o pag seguro e pagamento digital ele nao aceita.

eu estive olhando e me parece ser um erro no gravar a sessão. mas nao consigo achar de forma alguma. e o mais estranho ainda, é que em alguns servidores funciona e outros não. estive olhando com uma empresa de hospedagem e que a loja nao funcionou e eles me disseram que isto é na programação. mas ta osso.

me ajudem ai, porfavor.

o modelo da loja esta aqui.

http://raphaelguerra.com.br/loja

usuario: teste@teste.com.br

senha: teste

este é o código responsável.

<!--#include file="funcoes.asp"-->

<%
if request("ir") = "executar.asp?ir=entrega" then
valor_frete = session("PesoTotalValor")
valor_produtos = session("total_produtos")
tipo_frete = session("modo_entrega")
cep_entrega =session("cep_entrega")
sql = "UPDATE compras set frete='"& hash(valor_frete) &"', totalcompra='"& hash(valor_produtos) &"', tipofrete='"& hash(tipo_frete) &"', cepentrega='"& hash(cep_entrega) &"', cupom='"& hash(session("cupomdesconto")) &"' WHERE idcompra="&session("OrderID")&""

set atualizacompra = conexao.execute(sql)
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title><%=loja("nome_loja") &" - "& loja("slogan_loja")%></title>
<link href="layout/stylesheet.css" rel="stylesheet" type="text/css">
<script language=JavaScript type=text/javascript src='form.js'></script>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="topo_2.asp"--></td>
</tr>
<tr>
<td><table width="100%">
<tr>
<td width="150" valign="top"><!--#include file="menu.asp"--></td>
<td valign="top"><table width="100%" border="0" cellspacing="6" cellpadding="0">
<tr>
<td colspan="2" align="center" valign="top"> </td>
</tr>
<tr>
<td colspan="2" align="center" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="1" valign="bottom" bgcolor="#003399"></td>
</tr>
<tr>
<td height="18" valign="bottom"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><img src="layout/imagens/entre_login.jpg" width="418" height="19" /></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" bgcolor="#003399"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top">
<div align="center">
<p><br />
<span style="color:#990000"><strong>
<%response.write request("msb")%>
</strong></span></p>
<p><br />
</p>
</div>
</td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="42%"><img src="layout/imagens/ja_cliente.gif" width="160" height="18" /></td>
<td width="58%"> </td>
</tr>
<tr>
<td colspan="2"><form action="executar.asp?ir=login" method="post" name="form2" id="form2">
<table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="#F7F7F7">
<tr>
<td width="17%" height="30"><div align="right">E-mail:</div></td>
<td width="26%" height="30"><input name="email" type="text" id="email" /></td>
<td width="57%" rowspan="2"><div align="center">
<p>
<input type="image" name="imageField" src="layout/imagens/btn/login.gif" />
<br />
<input name="url" type="hidden" id="url" value="<%=request("ir")%>" />
<br />
<a href="lembrar_senha.asp">Esqueceu sua senha?<strong> Clique aqui. </strong></a><strong></strong></p>
</div></td>
</tr>
<tr>
<td height="30"><div align="right">Senha:</div></td>
<td height="30"><input name="senha" type="password" id="senha" /></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"> </td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"> </td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="42%"><img src="layout/imagens/txt/nao_e_cliente_cadastrado.gif" width="208" height="15" /></td>
<td width="58%"> </td>
</tr>
<%if request("ir") = "" then%>
<tr>
<td colspan="2">Efetue sua compra que a opção de cadastramento lhe será mostrada.</td>
</tr>
<%else%>
<tr>
<td colspan="2"><form onSubmit="return verifica_form(this);" action="executar.asp?ir=funcaocep" method="post" name="form1" id="form1">
<table width="100%" border="0" cellpadding="0" cellspacing="3" bgcolor="#F7F7F7">
<tr>
<td width="17%" height="30"><div align="right">Cep:</div></td>
<td width="26%" height="30"><input df_verificar="sim" name="cep" type="text" id="cep" maxlength="8" /></td>
<td width="57%" rowspan="2"><div align="center">
<p>
<input type="image" name="imageField2" src="layout/imagens/btn/iniciar_cadastro.gif" />
<br />
<a href="#" onClick="MM_openBrWindow('http://www.invistaline.com.br/servicos/busca_cep.aspx','','width=300,height=400')">Não sabe o CEP?</a></p>
</div></td>
</tr>
<tr>
<td height="30"><div align="right">E-mail:</div></td>
<td height="30"><input name="email" df_verificar="sim" type="text" id="email" /></td>
</tr>
</table>
</form></td>
</tr>
<%end if%>
</table></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"> </td>
</tr>
<%if request("ir") <> "" then %>
<tr>
<td colspan="2" align="left" valign="top"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td>O cadastro é gratuito e não levará mais do que cinco minutos. <br />
Informe seu e-mail verdadeiro, pois será utilizado para confirmação de cadastro.</td>
</tr>
</table></td>
</tr>
<%end if%>
<tr>
<td colspan="2" align="left" valign="top"> </td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"><br />
</td>
</tr>
</table></td>
<td width="150" align="left" valign="top" ><!--#include file="terceiracoluna.asp"--></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"><!--#include file="baixo.asp"-->
</td>
</tr>
</table>
<%response.write google_analytics%>
</body>
</html>
<%fecha_banco%>



codigo do execultar.asp


<!--#include file="funcoes.asp"-->
<%
acao = request("ir")

if acao = "funcaocep" then
set verifica = conexao.execute("SELECT email FROM clientes WHERE email='"& hash(request.form("email")) &"'")
if verifica.eof or verifica.bof then
session("email_cadastro") = request.form("email")
session("cep_cadastro") = request.form("cep")


'ARQUIVO RESPONSÁVEL POR PEGAR O ENDEREÇO DO CEP DIGITADO
caminho="http://www.bronzebusiness.com.br/webservices/wscep.asmx/cep?strcep="&session("cep_cadastro")&""
Set xml = Server.CreateObject("msxml2.DOMDocument.3.0")
xml.async = false
xml.setProperty "ServerHTTPRequest", True
xml.validateOnParse =false
xml.preserveWhiteSpace = false
folha = xml.Load(caminho)

If Not folha Then
Response.write "erro_sistema"
response.end
Else

Set logradouro = xml.getElementsByTagName("logradouro")
Set nome = xml.getElementsByTagName("nome")
Set bairro = xml.getElementsByTagName("bairro")
Set uf = xml.getElementsByTagName("UF")
Set cidade = xml.getElementsByTagName("cidade")


if logradouro.length > 0 then
endereco = logradouro.item(0).text & " " & nome.item(0).text
bairro = bairro.item(0).text
cidade = cidade.item(0).text
estado = uf.item(0).text

session("uf") = estado
session("endereco") = endereco
session("bairro") = bairro
session("cidade") = cidade
response.redirect "registro.asp"

else
session("uf") = null
session("endereco") = null
session("bairro") = null
session("cidade") = null
response.redirect "registro.asp"

end if

end if
'aqui é da funçao

else
response.redirect "login.asp?ir=executar.asp?ir=entrega&msb=o email "&request.form("email")&" já está cadastrado em nossa loja virtual!"
end if

elseif acao = "login" then
url = request.form("url")

set login = conexao.execute("SELECT * FROM clientes WHERE email='"& hash(request.form("email")) &"' and senha='"& hash(request.form("senha")) &"'")
if login.eof or login.bof then
if url = "" then
response.redirect "login.asp?msb=Login ou senha inválidos!"
else
response.redirect "login.asp?ir="&url&"&msb=Login ou senha inválidos!"
end if
else
if login("valido") = "sim" then
session("usuario") = hash(login("email"))
if url = "" then
response.redirect "minhascompras.asp"
else
response.redirect url
end if

else
response.redirect "login.asp?ir="&url&"&msb=Seu acesso não foi autorizado pois sua conta ainda não foi ativada!<br>Ative sua conta através da mensagem de Boas Vindas que foi enviada ao seu e-mail de cadastro." ...... continua

hargon · Maio 23, 2009

Após essa linha

elseif acao = "login" then

Informe

Response.Write "SELECT * FROM clientes WHERE email='"& hash(request.form("email")) &"' and senha='"& hash(request.form("senha")) &"'"

Response.End

Poste o resultado.

xanburzum · Maio 23, 2009

é que em alguns servidores funciona e outros não.

estranho isso.....

ele gera algum erro ???

Raphael Guera · Maio 23, 2009

hargon

eu coloquei o script na linha que voce falou e deu isto aqui quando tento logar:

SELECT * FROM clientes WHERE email='‹›ŽŽžÄ‘¡””šÑœ’Ñ' and senha='‹›ŽŽž'

-------------------------------------------------------------------------------------------

xanburzum

Realmente é, olha neste servidor para voce ve, companycelldigital.com.br/loja

tente logar com o login e senha para voce ve

login: teste@teste.com.br

senha: teste

o danado todo é que este pessoal ai, cobra muuuuuuuito caro em hospedagem, e com eles estou tentando evitar.

xanburzum · Maio 23, 2009

da ond você esta recuperando o request.form("email") , no form esta como

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

Entrar

Arquivado

Problema com Sessions - ASP

Recommended Posts

Raphael Guera 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Raphael Guera 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante