[سعود]

PHP كود :

 Dim br As HtmlAgilityPack.HtmlNode = HtmlAgilityPack.HtmlNode.CreateNode(vbCrLf)
        If Getucount() = 1 Then
            doc.DocumentNode.AppendChild(br)
        End If
        Dim nads As New HtmlAgilityPack.HtmlNode(HtmlAgilityPack.HtmlNodeType.Element, doc, Getucount)
        nads.Name = "user"
        nads.Attributes.Add("id", Getucount)
        nads.Attributes.Add("name", txtusername.Text)
        nads.Attributes.Add("pass", txtpass.Text)
        nads.Attributes.Add("mail", txtmail.Text)
        nads.Attributes.Add("cpuid", CpuId())
        nads.Attributes.Add("date", Now)
        nads.Attributes.Add("ftype", "user")
        nads.Attributes.Add("act", chkact.Checked.ToString.ToLower)
        nads.Attributes.Add("blocked", chkblock.Checked.ToString.ToLower)
        nads.Attributes.Add("ip", myip("~\ip.aspx"))
        doc.DocumentNode.AppendChild(nads)
        doc.DocumentNode.AppendChild(br)
        doc.Save(fl)
        lblmsg.Text = "تم الحفظ" 


هكذا افضل من طريقتي الاولى[اللتي تعتمد على كتابة نص ومن ثم تحويله الى نود]

---

اكواد التعديل بشروط

PHP كود :

doc.DocumentNode.SelectSingleNode("//user[@id=" & lbluid.Text & "]").Attributes("name").Value = txtusername.Text
doc.DocumentNode.SelectSingleNode("//user[@id=" & lbluid.Text & "]").Attributes("pass").Value = txtpass.Text
doc.DocumentNode.SelectSingleNode("//user[@id='" & lbluid.Text & "']").Attributes("mail").Value = txtmail.Text
doc.DocumentNode.SelectSingleNode("//user[@id='" & lbluid.Text & "']").Attributes("act").Value = chkact.Checked.ToString.ToLower
doc.DocumentNode.SelectSingleNode("//user[@id='" & lbluid.Text & "']").Attributes("blocked").Value = chkblocked.Checked.ToString.ToLower
doc.Save(fq)
lblmsg.Text = "تم حفظ التعديل" 


اعتبر اسم النود هو اسم جدول والـAttributes اعتبرها اعمدة للجدول.
انظر كيف حددنا الصف المراد التعديل عليه وذلك بتحديد الـ id  وعند اسناد آي دي لاي صف فنستعلم عن آخر قيمة ثم نزيد عليها.

---

ليس بالضرورة ان يكون منتدى بالمعنى وانما قد تصلح ان تكون مدونة  واقصد ان مستخدم واحد فقط يدون ويحفظ .
ولا مانع من وجود اكثر من شخص ولكن ببرمجية اخرى تعمل كــــحارس يكشف العمل الحالي ويخبر المستخدم ان ينتظر.

---

انظر كيف يكون الحظر !

PHP كود :

If IsBlocked(Session("user")) Then
ContentPlaceHolder1.Visible = False
wel.InnerHtml = "تم حظر حسابك لاساب معلومة عند الادارة"
wel.Attributes.Add("class", "error")
End If 


طبعا من افضل مميزات الماستربيج ان مكان كتابة الكود واحد فلاخفاء المحتوى فقط اخفي العنصر المسؤول وهو هنا:
ContentPlaceHolder1
ثم اظهر رسالة له .
وهذه دالة الحظر:

PHP كود :

Public Function IsBlocked(ByVal un As String) As Boolean
        doc = New HtmlAgilityPack.HtmlDocument
        doc.Load(fq)
        If Not IsNothing(doc.DocumentNode.SelectNodes("//user[@name='" & un & "' and @blocked='true']")) Then
            Return True
        Else
            Return False
        End If
    End Function 


اظن لم يبقَ الا ان انتظر الانتهاء منه وارفعه وستصبح الاكواد مالوفة لمن هي جديدة عليه [في بداية الطريق اقصد] بسبب هذه الاكواد اللتي اكتبها كل فترة.