Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

vukny

coisa muito facil

Por , em ASP Clássico

Recommended Posts

vukny    0

vukny
Postado

Oi pessoal eu nao manjo nada de asp,,mais tenho um sistema de login e queria q toda vez q a pessoa for entra na pagina eu quero q ele se loga,,,no sistema ta ao contrario se ele se loga e depois fecha a pagina,,e entra d novo ele ainda ta logado sera q tem como mudar isso?????

Compartilhar este post

Link para o post
Compartilhar em outros sites

vukny    0

vukny
Postado

O codigo é esse onde eu deveria muda <%strNick = request("nick")strSenha = request("senha")strIp = request.Servervariables ("REMOTE_ADDR")strData = Now()If (len(strNick) = 0) and (Session("nick") = "") Then %><body bgcolor="#CCCCCC"><table border="0" cellpadding="0" cellspacing="0" background=""><form name="formlogin" method="post" action="index.asp"> <tr> <td rowspan="2" width="130"><p> <%else Set objConexao = Server.CreateObject("adodb.connection")objConexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\db\07frvirtual.mdb")nick = Replace(Request.Form("nick"),chr(39),"''")senha = Replace(Request.Form("senha"),chr(39),"''")Sql = "Select * from cadastro where nick = '" & nick & "' and senha = '" & senha & "'"Set rs = Server.CreateObject("ADODB.Recordset")rs.CursorType = 3rs.open Sql, objConexaoif Session("nick") <> "" then Response.Write("Seja Bem Vindo, " & Session("nick"))else if not rs.eof then Session("nick") = rs("nick") Response.Write("<font size='2'>Seja Bem Vindo, " & Session("nick") & "</font>") else rs.close Response.Write("Login Inválido") sqlinsere = "INSERT INTO tentativa (nick, senha, datahora, ip) VALUES ('"&strNick&"','"&strSenha&"','"&strData&"','"&strIp&"')" rs.open sqlinsere, objConexao end ifend ifobjConexao.Closeset objConexao = Nothingend if%> <img src="images/e06.gif" width="16" height="9" alt="" border="0">  <b>Login</b></p></td> <td><input type="text" name="nick" size = "20"></td> </tr> <tr> <td><input type="password" name="senha" size = "20"> <input name="submit" type="image" src="images/b_go.gif" alt="" align="absbottom" width="19" height="25" hspace="10" border="0"></td> </tr> </form></table>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito