Download
1 / 15
150 likes | 313 Views
صفحات الخادم النشط Active Server Pages. المرجع. الدليل الاساسي الشامل في برمجة الانترنت للمهندس عبدا لحميد بسيوني، دار الكتب العلمية للنشر و التوزيع 2003. الجزء السادس. مواقع عديدة في شبكة الويب (ابحث عن ASP ). الكائنات الرئيسية. Response Request Server Session Application.
E N D
المرجع • الدليل الاساسي الشامل في برمجة الانترنت للمهندس عبدا لحميد بسيوني، دار الكتب العلمية للنشر و التوزيع 2003. الجزء السادس. • مواقع عديدة في شبكة الويب (ابحث عن ASP)
الكائنات الرئيسية • Response • Request • Server • Session • Application
الخطوه الاولي يوضع الكود داخل:- <% %> لإضافة تعليق يضاف ‘
الصفحة الاولي ……. <body> <% Response.Write(“Welcome to My first ASP page!”) %> </body> …..
الربط بقاعدة بيانات من نوع MS Access • تعريف متغير • DATA_PATH • اسم قاعدة البيانات و موقعها • Project.mdb • C:\Inetpub\wwwroot\webdev\ • النتيجة:- • DATA_PATH = "C:\Inetpub\wwwroot\webdev\Project.mdb"
الربط بقاعدة بيانات من نوع MS Access • الاتصال: • متغير MyConn لتأسيس الاتصال set MyConn = Server.CreateObject("ADODB.Connection") • فتح قاعدة البيانات باستخدام متغير اسم و موقع قاعدة البيانات DATA_PATH MyConn.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}“ • تعريف SQL و من ثم تشغيلها باستخدام الوصلة السابقة.
الربط بقاعدة بيانات من نوع MS Access • تعريف SQL CSQL = "Select * From Emp" • تشغيل SQL و اعطاءها اسم لاستخدامه لاحقا!! Set CRS = MyConn.Execute(CSQL) • الاسم للاستخدام في الصفحة هو CRS
الربط بقاعدة بيانات من نوع MS Access • <% • 'Create a connection to our database using a fileless dsn • DATA_PATH = "C:\Inetpub\wwwroot\webdev\Project.mdb" • set MyConn = Server.CreateObject("ADODB.Connection") • MyConn.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}" • CSQL = "Select * From Emp" • Set CRS = MyConn.Execute(CSQL) • %>
الربط بقاعدة بيانات من نوع MS Access استخدام اسم SQL مع اسماء الحقول داخل صفحة الويب: • اسم كود SQL هو CRS • اسم احد حقول جدول الربط هو EmpName <%=CRS("EmpName")%>
الربط بقاعدة بيانات من نوع MS Access • بعض الدوال المهمة:- While Not CRS.EOF ……… CRS.MoveNext Wend CRS.Close Set CRS = Nothing
الربط بقاعدة بيانات من نوع MS Access • اضافة و تعديل المعلومات:- <input type="submit" value="إضافة جديد" onClick= "this.form.action= 'addname.asp?method=add'; " > • الصفحةaddname.asp بداخلها كود الاضافة أو التعديل و بداخلها متغير باسم method و احد قيمه هي add
كود التعديل و الاضافة - 1 • تمرير قيمة method للمتغير Method و بعد ذلك استدعاء الدالة add بقيمة المتغير MyConn Method = Request.QueryString("method") Select Case Method Case "add" add(MyConn) End Select
كود التعديل و الاضافة - 2 Sub add(MyConn) ‘تعريف الدالة Dim EName, SQL ‘ لتعريف متغيرات جديدة EName = Request.Form("Emp_Name") ‘ لتمرير قيمة المتغير SQL = " Insert Into Emp (EmpName) Values ('"&EName&"') ”‘ تعريف جديد MyConn.Execute(SQL) ‘ تشغيل باستخدام اسم الوصلة MyConn.Close ‘ اغلاق الوصلة Set MyConn = Nothing ‘حذف المحتويات في الذاكرة Response.Redirect ("Show_db.asp") ‘ توجيه الي صفحة جديدة End Sub ‘ اغلاق تعريف الدالة
واجبات • قم بتصميم صفحة خادم نشيط يقوم بعرض جدول كامل من قاعدة بيانات. كذلك قم بإنشاء صفحة تقوم بإضافة بيانات على هذا الجدول. ملاحظة: على الطلبة المسجلين لمساق مشروع التخرج و لديهم مشروع تصميم خاص بالويب استخدام احدي جداول المشروع في التصميم المطلوب.
