Ado.net ile login page olusturma-1

Kullanycylaryn login olabilmesi için yapilmi? basit bir login page.üyelerin kullanici adi ve sifrelerini kontrol ettikten sonra sisteme erisim izni veriyoruz.



Bilindi?i gibi ço?u internet sitesi üyelik kendi üyelik sistemlerini kuruyorlar ve örne?in bir makale okumak için bile kullanycy ady ve ?ifre isteyen formlar kar?ymyza çykyyor.Asp.Net’te yazylmy? olan bu basit login page üyelerin girdi?i kullanycy ady ve ?ifre’yi access veritabanyndan kontrol edip sisteme giri? izni veriyor.







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



























‘ giris tusuna basty?ymzda olmasyny 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 = "Kullanycy Adynyzy veya ?ifrenizi Yanly? 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



















Login Form























<br>



<b>.:: Üye Giri? ::.</b><br><br>



Kullanycy Ady:



<br><br> ?ifre :



<br>







<br>



















?imdi default.aspx sayfamyzy yazalym.























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















Login Form



















<br>



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



<br>



<br>



<br>