[ربيع]

نذهب لصفحة Site.Master، داخل كود HTML الخاص بالصفحة نضع Label بدل العنوان الافتراضي:[HTML]<div class="title">
   <h1>
       <asp:Label ID="title" runat="server" Text="برامج منتدى فجوال بيسك لكل العرب"></asp:Label>
   </h1>
</div>
[/HTML]ونضع Label آخر في ذيل الصفحة:[HTML]<div class="footer">
   <asp:Label ID="footer" runat="server" Text="جميع الحقوق محفوظة © 2013"></asp:Label>
</div>
 [/HTML]
نرجع لعنوان الصفحة، من داخل التصميم وليس من كود الـ HTML، نضع بجانبه أداة LoginView، ثم نعدل فيها كما يلي:







داخل الأداة - وبعد أن نختار منها العرض بصلاحيات Admin - نضع أداة Image (سوف ارفق الصورة المطلوبة إن شاء الله)، وأداة Panel، وداخل الـ Panel نضع جدول:





في الصف الثاني من الجدول وفي الحقل الأول نضع Label نصه: نص العنوان.
وفي الحقل الثاني نضع أداة TextBox خاصية الـ ID = tbox وبجانبها أداة RequiredFieldValidator:



خاصية الـ ErrorMessage = مطلوب.
وخاصية الـ ControlToValidate = tbox
في الحقل الثاني من الصف الأخير، نضع زرين، الأول نصه (حفظ) والثاني نصه (إلغاء الأمر).
نرجع للصف الأول وندمج الحقلين مع بعضهما، بعد تحديدهما:



ثم نضع بداخله أداة Panel، وداخل الـ Panel نضع Label نصه: عنوان الموقع.
لنضبط الشكل قليلا، من الـ Solution Explorer نذهب لمجلد الـ Styles ثم نضيف إليه عنصر جديد من نوع Style Sheet، ليكن اسمه Config. سوف ارفقه مع المشاركة إن شاء الله.
الآن نحدد الصورة التي وضعناها فيما سبق، ثم نذهب لصندوق الأدوات، ونضغط مرتين على أداة ModalPopupExtender التابعة لحزمة أدوات Ajax Control Toolkit:



وبعد ذلك نتوجه لنافذة الخصائص، سنجد فيها خاصية جديدة مدرج تحتها مجموعة من الخصائص:



قم بتغيير الخصائص كما الصورة.
نختار زر (حفظ) ونضغط عليه مرتين لنكتب الكود التالي:
في أعلى الكود وخارج الإجراءات نكتب:

:#C

كود :

[align=left][SIZE=4]private DB.ProgramsDB db = new DB.ProgramsDB();
[/SIZE][/align]

:VB

كود :

[align=left][SIZE=4]private DB.ProgramsDB db = new DB.ProgramsDB()[/SIZE][/align]

وفي حدث تحميل الصفحة Page_Load نكتب:

:#C

كود :

[align=left][SIZE=4]if (IsPostBack) return;

try
{
   var data = (from d in db.Titles select d).SingleOrDefault();
   title.Text = data.HeaderText;
   footer.Text = data.FooterText;

   ((TextBox)LoginView1.FindControl("tbox")).Text = title.Text;
}
catch { }
[/SIZE][/align]

:VB

كود :

[align=left][SIZE=4]If IsPostBack Then Exit Sub

Try
   Dim data = (From d In db.Titles Select d).SingleOrDefault()
   title.Text = data.HeaderText
   footer.Text = data.FooterText

   CType(LoginView1.FindControl("tbox"), TextBox).Text = title.Text
Catch
End Try[/SIZE][/align]

وفي حدث ضغط زر (حفظ):

:#C

كود :

[align=left][SIZE=4]try
{
   var data = (from d in db.Titles select d).SingleOrDefault();
   data.HeaderText = ((TextBox)LoginView1.FindControl("tbox")).Text;
   db.SubmitChanges();
   title.Text = data.HeaderText;
}
catch { }[/SIZE][/align]

:VB

كود :

[align=left][SIZE=4]Try
   Dim data = (From d In db.Titles Select d).SingleOrDefault()
   data.HeaderText = CType(LoginView1.FindControl("tbox"), TextBox).Text
   db.SubmitChanges()
   title.Text = data.HeaderText
Catch
End Try
[/SIZE][/align]

سوف نصنع مع ذيل الصفحة كذلك، وسأكتفي بشرح ما السابق، وأرفق الملفات....
* اعتمدت على مترجم لترجمة الكود من C# لـ VB.
* ضع الملفات والمجلدات المرفقة كما هي داخل المشروع، وقم باستبدال القديم.