[resolvido] Extraindo registro do banco de dados

backer · Novembro 30, 2007

Ola pessoal estou com uma dificuldade para fazer uma pagina de log. Vala eu tenho um banco de dado em access que tem numero de identificação e o nome do usuário. Na primeira pagina o usuário vai digitar seu numero de identificação e clicar entrar na segunda pagina to topo vai retornar o nome do usuário. Meu código esta baixo . E tem uma imagem que eu fiz que espero explicar de modo claro. Se ágüem poder me ajudar valeu.

pagina%20log.gif

config.inc

<%
'///////////////////////////////////////////////////////////////////////////////////
'connection string

Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("Login.mdb")

'///////////////////////////////////////////////////////////////////////////////////


'///////////////////////////////////////////////////////////////////////////////////
'cleanup routines

Sub CleanUp(RS)
  RS.Close
  MyConn.Close
  Set RS = Nothing
  Set MyConn = Nothing
End Sub

Sub CleanUp2()
  MyConn.Close
  Set MyConn = Nothing
End Sub

'////////////////////////////////////////////////////////////////////////////////////
%>

PAGINA 1.asp

<html>
<head>
<title>RE</title>
</head>
<body>
<Form name="avaliacao" action="2.asp" method="get">
  <input type="Text" name="RE" value="" onChange="java script:window.document.avaliacao.submit();">  
<INPUT type="submit" value="entrar" name="botao">
</Form>
</body>
</html>

PAGINA 2.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#INCLUDE FILE="config.inc"-->
<html>
<head>
<title>prova</title>
<%
Codigo = Request.QueryString("RE")
    SQL = "Select RE, nome, [PassWord], Clearance, ExpireDate From Login Order By ID"
Set RS = MyConn.Execute(SQL)
  %>
</head>
<body>
<input type="text" name="" value="<%=RS("RE")%>">


</body>
</html>

backer · Dezembro 22, 2007

Ola pessoal desculpa por ter sumido e meio que abandonado o post. Mais estava muito corrido no serviço. Bom consegui fazer o que eu queria mais é claro que devo agradecer a boa vontade de todos e principalmente do Kuroi. Pessoal o script esta um pouco diferente pois agora ele faz a verificação se a realmente o nome de usuário no banco se não ele é direcionado para uma outra pagina. S ficar alguma duvida a respeito posta ai que eu tento ajudar falou.

Esta pagina paz a conexão com o banco dedados para demais paginas usando a variável MM_discusao_STRING para inicial a conexão Ob. Note que no topo das demais pagina é chamado a pagina discusao.asp com o código

discusao.asp

<%
Dim MM_discusao_STRING
MM_discusao_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ= base.mdb"
%>

default.asp

<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file=" discusao.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("usuario"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization="categoria"
  MM_redirectLoginSuccess="recados.asp"
  MM_redirectLoginFailed="default.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_discusao_STRING
  MM_rsUser.Source = "SELECT usuario"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM user WHERE usuario='" & Replace(MM_valUsername,"'","''") & "'"
  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>
<title>Grupo de Discusão</title>
</head>
<body>
<form ACTION="<%=MM_LoginAction%>" method="POST" name="formulario" id="formulario">
<input name="usuario" type="text" id="email" style="font-size:9px; color:black; background-color:rgb(242,242,242); margin:1px; padding:1px; border-width:1px; border-color:rgb(204,204,204); border-style:solid;" size="21">

<input type="image" name="formimage1" src="images/entrar.gif" width="36" height="15" border="0" align="middle">
</form>
</body>
</html>

recados.asp

<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file=" discusao.asp" -->
<%
Dim Rs_sessao__MMColParam
Rs_sessao__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  Rs_sessao__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Rs_sessao
Set Rs_sessao = Server.CreateObject("ADODB.Recordset")
Rs_sessao.ActiveConnection = MM_discusao_STRING
Rs_sessao.Source = "SELECT * FROM user WHERE usuario = '" + Replace(Rs_sessao__MMColParam, "'", "''") + "'"
Rs_sessao.Open()
%>
<html>
<head>
<title>Grupo de Discusão</title>
</head>
<body>
<%=(Rs_sessao.Fields.Item("nome").Value)%>
</body>
</html>

Entrar

[resolvido] Extraindo registro do banco de dados

Pergunta

backer

Link para o comentário

Compartilhar em outros sites

26 respostass a esta questão

Posts Recomendados

backer

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades