1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

ASP.. urgente

Discussão em 'Web Development' iniciada por RicAlmeida, 5 de Outubro de 2007. (Respostas: 4; Visualizações: 755)

  1. RicAlmeida

    RicAlmeida Power Member

    boas

    alguem podia deixar aqui o codigo para exectuar login em asp
    a bd de dados e em access

    cumps
     
  2. SoundSurfer

    SoundSurfer Power Member

    Olá...
    Penso que será mais fácil obteres respostas se colocares perguntas mais específicas...
    Estás com dificuldades onde, concretamente?
     
  3. RicAlmeida

    RicAlmeida Power Member

    o k eu queria mesmo era o codigo completo para fazer ixo
     
  4. alfinete

    alfinete Power Member

    1) tens aqui um code em vb.net mas ja com previlegios o que conta mais é o que esta dentro da função do botão "btn_entrar_Click"

    Código:
    
    Imports System.Data
    'Imports System.Data.SqlClient
    Imports criptografar
    'Imports System.Text
    Imports System.Security.Cryptography
    Imports trata_sql
    
    Partial Class _index
        Inherits System.Web.UI.Page
    
        Protected Sub btn_entrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_entrar.Click
            Dim login As String ' guarda o user que faz loguin
            Dim data As String    ' guarda a data de sistema de login
    
    
            Dim ds As DataSet = ExecSql("SELECT Previlegios FROM TabUtilizador where Login='" & Txtbox_user.Text & _
                    "' and  Password = '" & GeraHash(txtbox_pass.Text) & "'") 'GeraHash(txtbox_pass.Text)
            If ds.Tables.Item(0).Rows.Count = 1 Then
                'Para armazenar o Login e a Hora que foi efetuado o login
                login = Me.Txtbox_user.Text
                data = Today.ToString("dd/MM/yyyy")
                Session("Login") = login
                Session("HorarioLogin") = data
                Session("Previlegio") = ds.Tables.Item(0).Rows.Item(0)("Previlegios")
                ds.Dispose()
                Response.Redirect("http://localhost:8080/site/Admin.aspx")
            Else
                Me.lbl_Erro.Visible = True
                Me.lbl_Erro.Text = "Nome de UTilizador ou password Invalidos"
                Me.Txtbox_user.Text = ""
                Me.txtbox_pass.Text = ""
                'Me.Txtbox_user.Focus()
            End If
        End Sub
    
        Protected Sub Txtbox_user_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txtbox_user.TextChanged
    
            If Me.Txtbox_user.Text <> "" Then
                Me.lbl_Erro.Visible = False
            End If
    
        End Sub
    
    
    End Class
    
    
    ______________________

    2) tens aqui outro mais facil de perceber julgo eu

    Código:
    
    Imports System.Data
    Imports System.Data.SqlClient
    Imports criptografar
    Imports System.Text
    Imports System.Security.Cryptography
    
    
    
    
    Partial Class _index
        Inherits System.Web.UI.Page
    
        Dim ligacao, strsql As String
        Dim sda As SqlDataAdapter
        Dim ds As DataSet
    
    
    
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            'Me.btn_entrar.Enabled = False
            ' Me.lbl_Erro.Visible = False
            Me.lbl_Erro.Text = ""
            'utilização do ViewState que é usado no evento Page_Load para
            ' armazenar a data de acesso a página.
    
            If Not Page.IsPostBack Then
                ViewState("Acesso") = Date.Now.Date()
            End If
    
    
            ' chama a base de dados
    
            ligacao = "data source=(local);initial catalog=Pedidos;" & _
               "integrated security=SSPI;persist security info=True"
    
            'faz a respectiva seleccção a base de dados
    
            strsql = "SELECT Tipo_Utilizador FROM Tab_Utilizadores" & _
            " where tab_utilizadores.[nome utilizador] = '" & Me.Txtbox_user.Text & _
            "' and  tab_utilizadores.[senha utilizador] = '" & GeraHash(Me.txtbox_pass.Text) & "'"
    
            'cria um data adapter
            sda = New SqlDataAdapter(strsql, ligacao)
            ds = New DataSet()
            sda.Fill(ds)
            sda.Dispose()
    
    
        End Sub
    
     
        Protected Sub btn_entrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_entrar.Click
            Dim row As DataRow
            Dim table As DataTable
            Dim cont As Integer
            Dim login As String = Me.Txtbox_user.Text ' guarda o user que faz loguin
            Dim data As String = Today.ToString("dd/MM/yyyy")   ' guarda a data de sistema de loguin
    
            ' os dados do utilizador são validados e são criados dois objetos de Sessão
            ' para armazenar o Login e a Hora que foi efetuado o login
            ' no sistema.
    
            Session("Login") = login
            Session("HorarioLogin") = data
    
    
            'rerediciona a pagina respectiva a cada user
    
            table = ds.Tables.Item(0)
            cont = table.Rows.Count
            ' testa se existe , caso verdade - passa ao proximo if e entra na sessão respectiva
            ' caso falso - dá uma mensagem de erro a dizer que utilizador não existe
    
            If cont = 1 Then
                row = table.Rows.Item(0)
    
                ' testa que tipod e utilizador entra na sessão
                If row("Tipo_Utilizador") = "Admin" Then
    
                    ' variavel de sessão para detectar que tipo de utilizador vai entrar 
                    ' em sessão , para no page load do form menu_utilizadores geral
                    ' activar ou não as areas respectivas de cada utilizador
    
                    Session("Tipo_Utilizador") = row("Tipo_Utilizador")
                    Response.Redirect("http://localhost:8080/site/Admin.aspx")
    
                Else
                    If row("Tipo_Utilizador") = "Normal" Then
    
                        Session("Tipo_Utilizador") = row("Tipo_Utilizador")
                        Response.Redirect("http://localhost:8080/site/Admin.aspx")
                    Else
                        If row("Tipo_Utilizador") = "Adminpedidos" Then
                            Session("Tipo_Utilizador") = row("Tipo_Utilizador")
                            Response.Redirect("http://localhost:8080/site/Admin.aspx")
                        Else
                            If row("Tipo_Utilizador") = "Adminstocks" Then
                                Session("Tipo_Utilizador") = row("Tipo_Utilizador")
                                Response.Redirect("http://localhost:8080/site/Admin.aspx")
                            End If
                        End If
                    End If
                End If
            Else
    
    
                Me.lbl_Erro.Visible = True
                Me.lbl_Erro.Text = "Nome de UTilizador ou password Invalidos"
                Me.Txtbox_user.Text = ""
                Me.txtbox_pass.Text = ""
    
    
                Me.Txtbox_user.Focus()
            End If
    
    
    
        End Sub
    
        
        
      
      
    End Class
    
    
    espero que isto ajude mas isto esta a chamar uma bd em sql server

    mas em qq codigo a linha que muda é a seguinte

    Código:
    
     ligacao = "data source=(local);initial catalog=Pedidos;" & _
               "integrated security=SSPI;persist security info=True"
    
    
    onde diz catalod = nome da bd

    pois esta linha faz a ligação a bd pois esta é para sql server com ado

    tens aqui uma para acess com oledb

    Código:
    [FONT=Verdana]Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=d:\teste\Acesso.mdb"[/FONT]
    
    tens qaui dois exemplos da ligação a bd agra é so um pouco de google e com o meus dois exemplos de code , consegues safar.

    e com mais esta referencia - http://www.macoratti.net/indvbn.htm

    tens estes tipos tdos de connecção

    OLEDBconnection, para acess
    sqlconnection para sqlserver
    orracle connectionpara oracle
    odbc connection - esta nam sei

    [​IMG][​IMG]o que muda é o tipo de ligação

    depois se for OLEDB - fica OLEDBconnection , command etc
    sql connection , fica sql connection etc

    o que muda é o inicio
    OLEDB. SQL CTC , O RESTO , COMAND CONNECTION, DS, DT,DR, ETC É TDO IGUAL

    ESPERO QUE TENHA AJUDADO algo

    no asp crias duas caixas de texto uma para user e outra para pass e mais um botão de ok

    e desenvolves isto e vb 2005 express
    com asp.net frework 2.0

    boa sorte
     
    Última edição: 6 de Outubro de 2007
  5. alfinete

    alfinete Power Member

    com tanta urgencia nuca mais disseste nada


    se conseguiste por isso a funcinar, estou a ver que nam havia urgencia
     

Partilhar esta Página