Ir para conteúdo

POWERED BY:

Arquivado

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

luiz_csilva

Sistema de Usuarios

Por , em ASP Clássico

Recommended Posts

luiz_csilva    0

luiz_csilva
Postado

Bom galera, estou precisando muito da ajuda de vcs.......

Estou montando na minha empresa, um sistema de consulta de informações sobre o cadastro do cliente........

 

bom comecei montando a tela de login e boas vindas, porém já me deparei com várias questões que sei que vou ter arrumar lá na frente.....

 

seguinte......

após ter efetuado o login o usuario é enviado para uma tela de boas vindas, 1ª pergunta........ como eu coloco o raio do nome do usuario nesta tela, pois para efetuar o login eu utilizo um campo código do comprador...........

 

2ª pergunta...... após resolver a 1ª questão..... deverá ser mostrado na mesma tela de boas vindas, dados de outras tabelas...... tipo assim.... selecione a sua Quadra e seu Lote para obter maiores informações............

 

bom..... se conseguir resolver estas questões..... depois acho que vai ser mais simples......

 

Estou usando asp + bd access e dreamweaver 8.........

 

o meu banco de dados possui todas as informações que quero disponibilizar no site do usuario (cliente). estão em tabelas bem distribuidas e já com seus relacionamentos feitos, pois uso as mesmas informações para o meu sistema interno.

 

abaixo minha tela de login..... ainda está bem simples......

 

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

<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("Cod_comprador"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="bem_vindo.asp"
  MM_redirectLoginFailed="erro.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_clientes_STRING
  MM_rsUser.Source = "SELECT COMPRADOR, SENHA"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM COMPRADOR WHERE COMPRADOR='" & Replace(MM_valUsername,"'","''") &"' AND SENHA='" & Replace(Request.Form("senha"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
	' username and password match - this is a valid user
	Session("MM_Username") = MM_valUsername
	If (MM_fldUserAuthorization <> "") Then
	  Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
	Else
	  Session("MM_UserAuthorization") = ""
	End If
	if CStr(Request.QueryString("accessdenied")) <> "" And false Then
	  MM_redirectLoginSuccess = Request.QueryString("accessdenied")
	End If
	MM_rsUser.Close
	Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Login de Usuario</title>
</head>

<body>
<p> </p>
<form name="form1" method="POST" action="<%=MM_LoginAction%>">
  <label>
  Código Comprador
  <input name="Cod_comprador" type="text" id="Cod_comprador">
   </label>
  <p>
	<label>Senha
	<input name="senha" type="password" id="senha">
	</label>
  </p>
  <p>
	<label>Enviar
	<input type="submit" name="Submit" value="Enviar">
	</label>
</p>
</form>
</body>
</html>

 

No aguardo da ajuda de vcs.....

 

 

Luiz

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Bom primeiro é entender o código ... você entende esse código pois eu ñ entendi o q está ai ... tá meio complicado ... te digo isso pois eu tinha um código bem parecido, por ñ entender o código, criei outro bem legal q eu utilizo ... para fazer isso você teria q pegar o nome do usuário em uma session e imprimir na tela de boas vindas ... pelo q vi ai a session q pega o nome dp usuário é a Session("MM_Username") ... então imprime isso na tela , pra ver se funciona ...

 

<%Response.Write Session("MM_Username")%>

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