Ir para conteúdo

POWERED BY:

Arquivado

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

thaiss

o usuario se loga e acessa seus dados.

Por , em ASP Clássico

Recommended Posts

thaiss    0

thaiss
Postado

Alguém pelo amor de Deus tem um scrip desse ??O meu emprego ta em jogo pelo fato de eu naum manjar asp .. :( Pode ser qualquer coisa e bem simples .. mas me ajudem por favorrrrrrrrr

Compartilhar este post

Link para o post
Compartilhar em outros sites

silas_i    0

silas_i
Postado

Da uma procurada aqui no fórum asp, tem muuuuiiita coisa sobre o assunto. !

Compartilhar este post

Link para o post
Compartilhar em outros sites

thaiss    0

thaiss
Postado

vai ter um formulario para o usuario se logar- com login e senha ( o login vai ser o email).após se logar o usuario verá seus dados. (os dados de quando ele se cadastrou).nome, endereço .. etc.como eu faço isso ?Eu consegui fazer o login .. e consegui fazer o listar dados ... mas naum sei fazer essa ligação do login com o listar ... vou postar o codigo aki ..

Compartilhar este post

Link para o post
Compartilhar em outros sites

thaiss    0

thaiss
Postado

Esse é o signin.asp que contem os comando para o login.<%Option ExplicitDim sql,rsUser,email,senha,page,stayloggedin,LConnectString,lconn,sqlflagemail = Request.Form("email")senha = Request.Form("senha")page = Request.Form("page")stayloggedin = Request.Form("stayloggedin")if page = "" then page = "cadastroo/listar2.asp"end ifif InStr(email, "'") or InStr(email, """") or InStr(email, "=") or InStr(senha, "'") or InStr(senha, """") or InStr(senha, "=") then sqlflag = Trueend if%><!--#include file="conn.asp"--><%sql = "SELECT email FROM tusuario WHERE email = '" & email & "' AND senha = '" & senha & "'"Set rsUser = Server.CreateObject("ADODB.Recordset")rsUser.Open sql, conn, 3, 3If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then Response.Cookies("email") = rsUser("email") if stayloggedin = "yes" then Response.Cookies("email").expires = #1/1/2010# end if rsUser.close set rsUser = nothing conn.close set conn = nothing Response.Redirect(page)end ifrsUser.closeset rsUser = nothingconn.closeset conn = nothing%><html><head><title>Invalid entry</title></head><body bgcolor="#F8F0FF" link="#DD0000" vlink="#DD0000" alink="#000000" text="#FFF2FF"><font face="Verdana" size=2 color="#000000"><h3 align="center"> </h3><h3 align="center"> </h3><h3 align="center"> </h3><p align="center"> </p><h3 align="center"> </h3><h3 align="left">                                                           <font size="2">Nome de usuário/senha inválidos</font></h3><p align="left"><b><font color="#5E005E">                                                                                                       </font><a href="java script:self.history.go(-1)"><font color="#5E005E">Tente novamente</font></a></b></p></font></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

thaiss    0

thaiss
Postado

Esse é o listar2.asp:<!--#include file="Connections/cadastro.asp" --><%set Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_cadastro_STRINGRecordset1.Source = "SELECT * FROM tusuario"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 3Recordset1.Open()Recordset1_numRows = 0%><html><head><title></title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#F9F2FF" text="#000000" link="#990000" vlink="#990000" alink="#990000"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font><font size="2"></font><table ALIGN="CENTER" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="979"> <tr> <td width="977" bgcolor="#EFDDFF"> <p align="center"> <b><font face="Verdana" size="2" color="#800080"> DADOS DO COMPRADOR</font></b></td> </tr></table><div align="center"><span style="font-size: 2pt"><br> </span></div><table align="center" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" style="border-collapse: collapse" width="981" height="77"> <tr> <td colspan="2" width="243" bgcolor="#FFFFFF" height="16"> <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> Nome:</b> <%=Recordset1("nome")%></font></td> <td colspan="4" width="433" bgcolor="#FFFFFF" height="16"> <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> Cidade:</b> <%=Recordset1("cidade")%></font></td> <td width="409" bgcolor="#FFFFFF" height="16"> <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> Estado:</b> <%=Recordset1("estado")%></font></td> <td width="76" rowspan="4" bgcolor="#EFDDFF" height="60"> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#000000"><a href="atualizar_form.asp?cadastro_cliente=<%=Recordset1("codu")%>"> <font color="#800080"> Atualizar</font></a></font></b></font></div> <form name="form1" method="POST" action="<%=MM_editAction%>"> <div align="center"> </div> </form> </td> </tr> <tr> <td colspan="5" width="570" bgcolor="#FFFFFF" height="16"> <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> End:</b> <%=Recordset1("endereco")%></font></td> <td colspan="2" width="516" bgcolor="#FFFFFF" height="16"> <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> Cep:</b> <%=Recordset1("endcep")%></font></td> </tr> <tr> <td width="242" bgcolor="#FFFFFF" height="16"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#800080"><b> Tel.res.:</b> <%=Recordset1("telefone")%></font></td> <td colspan="4" width="327" bgcolor="#FFFFFF" height="16"> <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> Tel.com.:</b> <%=Recordset1("telfax")%></font></td> <td colspan="2" width="516" bgcolor="#FFFFFF" height="16"> <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> Tel.cel.:</b> <%=Recordset1("cpfcnpj")%></font></td> </tr> <tr> <td colspan="4" width="461" bgcolor="#FFFFFF" height="9"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#800080"><b> E-mail:</b> </font><font color="#000000"> <a href="mailto:<%=Recordset1("email")%>"> <font color="#800080"><%=Recordset1("email")%></font></a></font></font></td> <td colspan="3" width="625" bgcolor="#FFFFFF" height="9"> <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> Data cadastro:</b>  <%=Recordset1("datau")%></font></td> </tr> <tr bgcolor="#663366"> <td colspan="8" bgcolor="#EFDDFF" width="1164" height="16"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">  </font></td> </tr></table><p align="center">  <b><font face="Verdana" size="2" color="#800080"><span lang="pt-br">GERAR</span> BOLETO</font></b><p align="center"><u><b><font face="Verdana" size="2" color="#800080">Clique aqui para gerar o boleto bancário</font></b></u></p></body></html><%Recordset1.Close()%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

KERNELL    0

KERNELL
Postado

Querida eu tive mesmo problema e resolvi usando nivel de usuario onde o nivel é um valor que tinha dentro da tabela que fica os logins/senhas e esse valor se identificava com os dados do usuario na tabela principal ou seja.

 

Se o joão se logar ele verá apenas dados dele e não do jose, maria, renata etc...

 

Não sei se é isso exatamente que tu pretende mas tera que criar vinculos entre a tabela de usuario e a de registro.

 

Abraços

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

 

Esse é o listar2.asp:

 

<!--#include file="Connections/cadastro.asp" -->

 

<%

set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_cadastro_STRING

Recordset1.Source = "SELECT * FROM tusuario"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 3

Recordset1.Open()

Recordset1_numRows = 0

%>

 

<html>

<head>

<title></title>

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

</head>

<body bgcolor="#F9F2FF" text="#000000" link="#990000" vlink="#990000" alink="#990000">

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font><font size="2"></font>

<table ALIGN="CENTER" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="979">

  <tr>

    <td width="977" bgcolor="#EFDDFF">

    <p align="center">  <b><font face="Verdana" size="2" color="#800080"> DADOS DO COMPRADOR</font></b></td>

  </tr>

</table>

<div align="center"><span style="font-size: 2pt"><br>

 </span></div>

<table align="center" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" style="border-collapse: collapse" width="981" height="77">

  <tr>

      <td colspan="2" width="243" bgcolor="#FFFFFF" height="16">

    <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

    Nome:</b>

      <%=Recordset1("nome")%></font></td>

    <td colspan="4" width="433" bgcolor="#FFFFFF" height="16">

    <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

    Cidade:</b>

      <%=Recordset1("cidade")%></font></td>

    <td width="409" bgcolor="#FFFFFF" height="16">

    <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

    Estado:</b>

      <%=Recordset1("estado")%></font></td>

    <td width="76" rowspan="4" bgcolor="#EFDDFF" height="60">

      <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#000000"><a href="atualizar_form.asp?cadastro_cliente=<%=Recordset1("codu")%>">

        <font color="#800080">

        Atualizar</font></a></font></b></font></div>

      <form name="form1" method="POST" action="<%=MM_editAction%>">

        <div align="center">        </div>

      </form>

    </td>

  </tr>

  <tr>

      <td colspan="5" width="570" bgcolor="#FFFFFF" height="16">

    <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

    End:</b>

      <%=Recordset1("endereco")%></font></td>

    <td colspan="2" width="516" bgcolor="#FFFFFF" height="16">

    <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

    Cep:</b>

      <%=Recordset1("endcep")%></font></td>

  </tr>

  <tr>

    <td width="242" bgcolor="#FFFFFF" height="16">

    <font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#800080"><b>

    Tel.res.:</b>

      <%=Recordset1("telefone")%></font></td>

    <td colspan="4" width="327" bgcolor="#FFFFFF" height="16">

    <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

    Tel.com.:</b>

      <%=Recordset1("telfax")%></font></td>

    <td colspan="2" width="516" bgcolor="#FFFFFF" height="16">

    <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

    Tel.cel.:</b>

      <%=Recordset1("cpfcnpj")%></font></td>

</tr>

  <tr>

    <td colspan="4" width="461" bgcolor="#FFFFFF" height="9"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">

    <font color="#800080"><b>

    E-mail:</b> </font><font color="#000000">      <a href="mailto:<%=Recordset1("email")%>">

    <font color="#800080"><%=Recordset1("email")%></font></a></font></font></td>

    <td colspan="3" width="625" bgcolor="#FFFFFF" height="9">

    <font color="#800080" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

    Data cadastro:</b>  <%=Recordset1("datau")%></font></td>

  </tr>

  <tr bgcolor="#663366">

    <td colspan="8" bgcolor="#EFDDFF" width="1164" height="16"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">

     </font></td>

  </tr>

</table>

 

<p align="center">  <b><font face="Verdana" size="2" color="#800080">

<span lang="pt-br">GERAR</span>

BOLETO</font></b><p align="center"><u><b><font face="Verdana" size="2" color="#800080">Clique

aqui para gerar o boleto bancário</font></b></u></p>

 

</body></html><%

Recordset1.Close()

%>

<{POST_SNAPBACK}>

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