+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم مقالات ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=54)
+---- الموضوع : مثال صفحة login (/showthread.php?tid=4156)
الصفحات:
1
2
مثال صفحة login - سعود - 17-09-12
مثال بسيط جدا
الاكواد
صفحة الماستر بيج
رمز برمجي:
كود :
Imports System.Data.OleDb
Imports System.Web.SessionState
Partial Class MasterPage
Inherits System.Web.UI.MasterPage
Dim constr As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"
Dim con As New OleDbConnection(constr)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("name") = "" Then
l.Text = "اهلا وسهلا بك يازائر كم يسعدنا تسجيلك معنا"
HyperLink5.Visible = False
HyperLink4.Visible = True
HyperLink3.Visible = True
Else
HyperLink3.Visible = False
HyperLink4.Visible = False
HyperLink5.Visible = True
l.Text = "اهلا بعودتك يا :" & Session("name")
End If
End Sub
End Classالصفحة المحمية وهي هنا default2.aspx
رمز برمجي:
كود :
Imports System.Data.OleDb
Imports System.Web.SessionState
Partial Class Default2
Inherits System.Web.UI.Page
Dim constr As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"
Dim con As New OleDbConnection(constr)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Title = "معرض الصور"
If Session("name") = "" Then
Response.Redirect("~\login.aspx")
End If
Label1.Text = "اهلا وسهلا بك يا :" & Session("name")
End Sub
End Classرمز برمجي:
كود :
Imports System.Data.OleDb
Imports System.Web.SessionState
Partial Class Default3
Inherits System.Web.UI.Page
Dim constr As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"
Dim con As New OleDbConnection(constr)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Title = "تسجيل الدخول"
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
l.Text = "فضلا عبيء الحقول بقيم مقبولة!"
l.ForeColor = Drawing.Color.Red
l.Font.Bold = True
Else
Dim cm As New OleDbCommand("select * from tb where tname='" & TextBox1.Text & "'and tpass='" & Val(TextBox2.Text) & "'", con)
If con.State = Data.ConnectionState.Open Then con.Close()
con.Open()
Dim dr As Data.OleDb.OleDbDataReader = cm.ExecuteReader
If dr.Read Then
Session("name") = TextBox1.Text
Response.Redirect("~\default.aspx")
Else
l.Text = "عفوا يوجد خطا اما باسم المستخدم او كلمة المرور"
l.ForeColor = Drawing.Color.Red
End If
If con.State = Data.ConnectionState.Open Then con.Close()
End If
End Sub
End Classرمز برمجي:
كود :
Imports System.Data.OleDb
Imports System.Web.SessionState
Imports System.Data
Partial Class addme
Inherits System.Web.UI.Page
Dim constr As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"
Dim con As New OleDbConnection(constr)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Title = "تسجيل جديد"
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
l.Text = "فضلا عبيء الحقول بقيم مقبولة!"
l.ForeColor = Drawing.Color.Red
l.Font.Bold = True
Else
Dim ds As New DataSet
Dim da As New OleDbDataAdapter("select * from tb", con)
Dim cm As New OleDbCommandBuilder(da)
da.Fill(ds, "tb")
Dim dr As DataRow = ds.Tables("tb").NewRow
dr.Item("tname") = TextBox1.Text
dr.Item("tpass") = TextBox2.Text
ds.Tables("tb").Rows.Add(dr)
da.Update(ds, "tb")
Response.Redirect("~\default.aspx")
End If
End Sub
End Classرمز برمجي:
كود :
Imports System.Web.SessionState
Partial Class Default3
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Session("name") = ""
Response.Redirect("~\default.aspx")
End Sub
End Class
مثال صفحة login - Blue Sky - 27-10-12
موضوع جميل جداً جداً
بارك الله فيك تم التقيييم :d
مثال صفحة login - H111er - 27-10-12
جميل .. لماذا لا تستخدم الـ Cookies في حفظ البيانات ؟ ستكون افضل بالطبع ..
مثال صفحة login - سعود - 28-10-12
فيها تعقيد شوي سافهمها لو وجدت مثال سهل
مثال صفحة login - H111er - 28-10-12
بالعكس سهلة جدا ..
الكوكيز حجمها اربعة كيلوبايت فقط !
لاضافة كوكي ..
إقتباس :Response.Cookies("CookieName").Value="Value"ملاحظة : لن يتم خزن الكوكي الا عندما تضع لها تاريخ انتهاء ..
Response.Cookies("CookieName").Expires=DateTimer.Now.AddDays(100)
و عندما تريد قراءتها في وقت لاحق
إقتباس :Dim Value As String = Server.HTMLEncode(Request.Cookies("CookieName").Value)اذا اردت يمكنك الاطلاع على هذا المثال
مثال صفحة login - omar - 11-11-12
grazi .
مثال صفحة login - honeesh - 11-11-12
جزاكم الله خيرا
مثال صفحة login - rinawi - 27-11-12
مشكور أخي سعود على مجهودك و مثالك الرائع
مثال صفحة login - محمد الحاج خلف - 28-11-12
ملاحظة : بإمكان المستخدم أن يمنع استقبال الكوكيز على جهازه ( من إعدادات المتصفح ) وبالتالي لن تنفع في هذه الحالة استخدام الكوكيز ...
أما السيشن Session فتبقى خيار أضمن
مثال صفحة login - محمد الساعدي - 09-02-13
اخي محمد العزيز ...
هناك تقنية تستخدمة لمعرفة هوية المستخدم حتى لو كان المتصفح لا يدعم الكوكيز وهذه التقنية تسمى cookiesless ........
تحياتي