Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

[Resolvido] logout

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola galera estou precisando de um logout q obtenha identificação do logado teria como isso com banco acess .....

Compartilhar este post

Link para o post
Compartilhar em outros sites

~Thiago Lara    0

~Thiago Lara
Postado

Lezão, desculpe a sinceridade, mas nosso objetivo aqui não é dar os códigos prontos ,

aqui não é uma loja que você pede e recebe,

 

o intuito de um fórum é ajudar as pessoas, talvez podemos ensinar a pescar mas dar o peixe não... fica por sua conta!

 

Traduzindo, se você já possuir algum código ou tiver alguma dúvida por onde começar podemos lhe ajudar, então, você já tem alguma coisa iniciada? Tá com dúvida em algum processo?

 

Abraços e desculpe mais uma vez pela sinceridade.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma olhada neste link pode te ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola xanburzum, muito obrigado pela a orientação.

Mas encontrei outro.

Só como eu faço para as pessoas naun entrar direto na pagina sem logar veja o codigo abaixo:

estava colocando esse mas nem logado naun entra..

<% if not Session("login") then response.redirect "index.asp" end if %>

 

<% if not Session("login") then response.redirect "index.asp" end if %>

<%
Dim adoCon 		
Dim adoRec 		
Dim strAccessDB 	
Dim strSQL 		
Dim strUserName 	
Dim strUserPassword 	

On Error Resume Next

strUserName = Request.Form("loginpcompra")

strAccessDB = "db1"

Set adoCon = Server.CreateObject("ADODB.Connection")
Set adoRec = Server.CreateObject("ADODB.Recordset")

adoCon="DRIVER={Microsoft Access Driver (*.mdb)};"

adoCon = adoCon & "DBQ=" & server.mappath(strAccessDB)

strSQL = "SELECT loginsenha.login, loginsenha.senha, loginsenha.codigocadastro FROM loginsenha WHERE loginsenha.login ='"
strSQL = strSQL & strUserName & "'"

adoRec.Open strSQL, adoCon

strUserPassword = adoRec("senha")

strUserCodigocadastro = adoRec("codigocadastro")

If err then

	Call NotValidUser
End If

Set adoCon = Nothing
Set adoRec = Nothing

If (Request.Form("senhapcompra")) = strUserPassword then

	  Session("blnIsUserGood") = True

%>

<%
Dim Login, Senha
Login = Request.Form("loginpcompra")
Senha = Request.Form("senhapcompra")

Response.Cookies("logando")("loginpcompra") = Login
Response.Cookies("logando")("senhapcompra") = Senha
Response.Cookies("logando")("codigocadastruser") = strUserCodigocadastro
Response.Cookies("logando")("data") = Date()
Response.Cookies("logando").Expires = Date() + 1
%>

<% response.write Login %>

<%

Else
	Call NotValidUser
%>

                <html>
<body bgcolor="#f7f7f7" text="lightskyblack" link="darkorange" alink="lightskyblue" vlink="darkorange">
         <div align="center>           
           <center>
           <font size=3 face="Verdana, Arial, Helvetica, sans-serif">Login e/ou senha inválidos!</font>
           <br>
           
          
</body>
          </html>




<%End If%>


<%
	Sub NotValidUser()

		Session("blnIsUserGood") = False
	End Sub
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz assim:

 

if session("login") = "" then
		response.redirect("administracao.asp?msgeof=11")
	end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ok, amigo, qualquer coisa posta ae...

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