Estou começando a estudar ASP há pouco tempo. Montei uma página para login com um bd em access, a página onde eu indico o login e senha abre tranquilamente, mas a página onde faria a verificação e encaminharia para uma outra não está abrindo. Testando offline ele funciona normalmente, mas, quando coloquei no ar, não abre mesmo. Se possível me indiquem onde estou errando na minha fonte. Segue abaixo:
Pergunta
Wesley Barreto
Boa Tarde Pessoal!!!
Estou começando a estudar ASP há pouco tempo. Montei uma página para login com um bd em access, a página onde eu indico o login e senha abre tranquilamente, mas a página onde faria a verificação e encaminharia para uma outra não está abrindo. Testando offline ele funciona normalmente, mas, quando coloquei no ar, não abre mesmo. Se possível me indiquem onde estou errando na minha fonte. Segue abaixo:
Pagína onde faço o login => nome => index.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="ADOVBS.inc" -->
<html>
<head>
<title>Acesso Restrito</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" >
<p> </p>
<form method="get" action="login.asp">
<div align="center">
<table width="44%" border="0" cellspacing="0" cellpadding="0" height="332">
<tr>
<td> </td>
</tr>
<tr>
<td background="fundo2.gif" height="306">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#000000"><b><font face="Verdana" size="2"><br>
<img src="chave2.gif" width="35" height="34"><br>
:: Acesso Restrito::</font></b><font face="Verdana" size="2"><br>
<font size="1" color="#333333"> IP LOGADO</font><font color="#333333"><br>
<b><font face="Verdana" size="2">
<%
Response.Write request.servervariableS("REMOTE_ADDR")
%>
</font></b> <br>
Tentativa de acesso ás:<b><font face="Verdana" size="2">
<%
Response.Write(time)
%>
</font></b></font></font></font><br>
</div>
<table width="215" border="0" cellspacing="0" cellpadding="0" align="center" height="101">
<tr>
<td width="44%" height="27">
<div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Login:</font></div>
</td>
<td width="56%" height="27">
<div align="left">
<input type="text" name="login" size="20" maxlength="20">
</div>
</td>
</tr>
<tr>
<td width="44%" height="66" valign="top" rowspan="2">
<div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Senha:</font></div>
</td>
<td width="28%" height="25" valign="top">
<div align="left">
<input type="password" name="senha" size="11" maxlength="15">
<br>
</div>
</td>
</tr>
<tr>
<td width="28%" height="2" valign="top">
<div align="right">
<input type="image" border="0" name="imageField" src="x.gif" width="30" height="32">
</div>
</td>
</tr>
</table>
<div align="center"><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0000">
<br>
</font></div>
</td>
</tr>
</table>
<br>
p;
</div>
<p></p>
</form>
</body>
</html>
Página onde faz a verificação e redireciona => nome = login.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="ADOVBS.inc" -->
<% 'Conexão com o banco de dados
conexao="DBQ="&Server.MapPath("senha.mdb");Driver={Microsoft Access Driver (*.mdb)}"
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open conexao
login=(Request.QueryString("login"))
senha=(Request.QueryString("senha"))
set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ")
' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm
if acesso.eof then
response.redirect("negado.asp")
else
Session("login")=login
'Session("usuario")= acesso("usuario")
'Session("Email")= acesso("Email")
Session("login")= acesso("login")
Session("nome")= acesso("nome")
'você pode colocar quais sessions você quiser aqui que o restante do site vai ler.
response.redirect("acesso.asp")
end if
DB.close
%>
Por favor indiquem onde estou errando.
Grato,
Wesley Barreto
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.