كيفية الاستعراض داخل الصفحة ارجووووكم بسرعة؟

يجب ان تحدد باي لغة تريد عمل هذا التقرير يعني asp ام php ام ماذا ؟؟:)

اشكرك يابو حميد ابغاها بطريقة ASP بلغة VBScript الله يخليك

وياليت تعملني وش أسوي من الصفر أو من الواحد لأن عندي خلفية بسيطة بطريقة عمل الـASP بس هذي أول محاولة لي بتصميم المواقع

أهلا بك أخي ..

الطريقة كالتالي :

- تقوم بعمل قاعدة بيانات و لنفرَ ان بها جدولا واحدا به حقل لاسماء الطلاب studentName و حقل للعلامات mark .

- تسمي قاعدة البيانات باسم school.mdb .

- اسم الجدول classroom .

نبدأ الان البرمجة كالتالي :

<%@codepage=1256%>

<%

Set cn = CreateObject("ADODB.Connection")

cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & _

Server.MapPath("/project/school.mdb"))



Set rs=cn.execute("SELECT * FROM classroom")



response.write "<table>"

  while not rs.EOF 

response.write "<tr>"

response.write "<td>" & rs("studentName") & "</td>"

response.write "<td>" & rs("mark") & "</td>"

response.write "</tr>"

  rs.MoveNext

  Wend

response.write "</table>"

%>

اذا صعب عليك شيء خبرناو ان شاء الله بنشرحه ليك ..(f)

اشكرك ياأستاذ محمد على ردك الوافي والواضح وانت دائما مثال للتعاون والله يطول عمرك ويجزاك خير ويجعل مثواك للجنة :o

لكن لدي استفسار بسيط

1-في أي جزء من HTML أضع هذا الكود هل داخل الbody أو داخل Form ولا فين؟

2-ما وظيفة الأمر Wend والأمر في السطر الأول من الكود

<%@codepage=1256%> حيث أني لم أستطع أن اعرف معناهم؟

وتقبل خالص تحياتي

أخي هذا هو الواجب فلا داعي للشكر :)

أكتب الكود كما هو و لا داعي لاستخدام أكواد ال HTML فهي تولد تلقائيا ..

و إذا اردت استخدامها يجب أن تضع الكود في ال body ..

أما WEND فهي تشبه next حيث تنقل الدوارة للدورة التالية و يتم الخروج منها عند تحقق الشرط و هو rs.EOF يعني انتهاء السجلات الموجودة ..

أما ال codePAge فهي مخصصة من أجل تحديد الترميز الخاص بالبيانات و الرقم 1256 يدل على أنها windows arabic أي العربية ..

نحن في الخدمة ..إذا لا تتردد في السؤال :)

الكود نفذ تمام لكن بالطريقة التالية بس المشكلة أن الجدول يظهر على اليمين فوق والحقل متلاصقة وبدون عناوين هل لهذا حل في VB script باختصار كيف أنظم طريقة عرض الجدول أفدنا يابوخليل......:)

<%
dim conn
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("database/db.mdb") & ";"
Set rs=conn.execute("SELECT * FROM authors")
response.write ""
%>

عفو ا هذا هو الحل بعد التعديل :

الحل انك تضعها في جدول كالتالي :

<%

dim conn

set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("database/db.mdb") & ";"

Set rs=conn.execute("SELECT * FROM authors")

%>



  <center>

  <table border="0" cellpadding="0" cellspacing="0" style="border-style:solid; border-width:1px; border-collapse: collapse; " bordercolor="#000080" width="90%" dir="rtl">

    <tr>

      <td width="25%" bgcolor="#DDEEFF" style="border: 1px solid #000080" align="center">

      <span lang="ar-sa"><font color="#000080">الأسم</font></span></td>

      <td width="25%" bgcolor="#DDEEFF" style="border: 1px solid #000080" align="center">

      <span lang="ar-sa"><font color="#000080">المدينة</font></span></td>

      <td width="25%" bgcolor="#DDEEFF" style="border: 1px solid #000080" align="center">

      <span lang="ar-sa"><font color="#000080">الدولة</font></span></td>

      <td width="25%" bgcolor="#DDEEFF" style="border: 1px solid #000080" align="center">

      <span lang="ar-sa"><font color="#000080">تاريخ الميلاد</font></span></td>

    </tr>



<%

  while not rs.EOF 



%>

<tr>

      <td width="25%" style="border-left: 1px solid #000080; border-right: 1px solid #000080; border-top-width: 1; border-bottom-width: 1" align="center">

      <p align="right"> <%=rs("Name")%></td>    

      <td width="25%" style="border-left: 1px solid #000080; border-right: 1px solid #000080; border-top-width: 1; border-bottom-width: 1" align="center">

      <p align="right"> <%=rs("city")%></td>

      <td width="25%" style="border-left: 1px solid #000080; border-right: 1px solid #000080; border-top-width: 1; border-bottom-width: 1" align="center">

      <p align="right"> <%=rs("Country")%></td>    

      <td width="25%" style="border-left: 1px solid #000080; border-right: 1px solid #000080; border-top-width: 1; border-bottom-width: 1" align="center">

      <p align="right"> <%=rs("BirthDate")%></td>     

       </tr>

<%

  rs.MoveNext

  Wend



%>

 </table>

  </center>

ما شاء الله على الرد ..:)

بصراحة أنا سعيد بتفاعل الأعضاء جدا جدا و أشجعكم على ذلك فهي بداية الوصول للاحتراف و تخفيفا عني في هذه الفترة الصعبة ..:confused: (اختبارات)

لكن إذا صعب شيء أنا موجود ان شاء الله :)(f)