8 - Ado.net ile login page oluşturma
Ado.net ile login page oluşturma


------ Login.aspx -----



<%@ page language="VB" debug="true" Explicit="True" %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OLEDB" %>

<script runat="server" language="VB">



‘ giris tusuna bastığımzda olmasını istediğimiz olay



Sub OK_OnSubmit(Sender As Object, E As EventArgs)

    Dim DBConn as OleDbConnection

    Dim DBCommand As OleDbDataAdapter

    Dim DSPageData as New DataSet

    DBConn = New OleDbConnection("provider=" _

        & "Microsoft.Jet.OLEDB.4.0;" _

        & "DATA SOURCE=" _

        & Server.MapPath("db.mdb;"))

    DBCommand = New OleDbDataAdapter _

        ("Select * From uyeler Where " _

        & "kad = '" & kad.Text & "' " _

        & "And sifre = '" & sifre.Text & "'" _

       , DBConn)

    DBCommand.Fill(DSPageData, _

        "uyeler")
If DSPageData.Tables("uyeler").Rows.Count = 0 Then

       hata.Text = "Kullanıcı Adınızı veya Şifrenizi Yanlış Girdiniz"

   Else

        Session("id") = DSPageData.Tables("uyeler"). _

            Rows(0).Item("id")

      Session("id") = kad.Text    ‘ Kullanycy adymyz session bilgimiz olsun

      response.Redirect("default.aspx")

End If

End Sub

</script>



<html>

<head>

<title>Login Form</title>

</head>

<body>

<form id="form1" runat="server">



<center>

<br>

<b>.:: Üye Girişi ::.</b><br><br>

Kullanıcı Adı:    <asp:textbox id="kad" runat="server"/>

<br><br>           Şifre :    <asp:textbox id="sifre" runat="server" textmode="password" />

<br><asp:Button runat="server" id="runat" Text="Giri?" OnClick="OK_OnSubmit" />



<br><asp:label id="hata" runat="server" />

</form>

</body>

</html> 



?imdi default.aspx sayfamyzy yazalym.



<%@ page language="VB" debug="true" Explicit="True" %>



<script runat="server" language="VB">



Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

‘Burada kullanycy adyny istiyoruz e?er kullanycy ady yoksa geri gönder diyoruz

If  Len(session("id")) = 0 Then

        Response.Redirect("login.aspx")

Else

‘ Request.ServerVariables(“Auth_user”) olayy sayfaya authenticate olan

‘kullanycynyn bilgisini bildiriyor

bilgi.text = Request.ServerVariables("Auth_user")

end if

      End Sub



‘ Session.Clear session bilgilerimizi temizliyor  ve login.aspx sayfasyna yönlendiriyor.



Sub cikis_OnSubmit(Sender As Object, E As EventArgs)

Session.Clear()

response.Redirect("login.aspx")

end sub

</script>

<html>

<head>

<title>Login Form</title>

</head>

<body>

<form id="form1" runat="server">

<center>

<br>

<b>.:: Üye Durumu ::.</b><br><br>

<br><asp:label id="bilgi" runat="server" />

<br>

<br>

<asp:button id="cikis" runat="server" Text="Çyky?" OnClick="cikis_OnSubmit" />

</form>

</body>

</html>

 
Reklam
 
 

=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=