الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

مثال بسيط لإنتاج إحصائيات ASP

الكاتب：Eve Cole وقت التحديث：2025-02-19 06:12:01

مثال على الإنتاج الإحصائي الذي يمكن من خلاله عدد الزوار وتسجيل عدد الزيارات وIP والوقت ويمكن للأصدقاء الذين يحتاجون إليه الرجوع إليه.

لقد أنشأت موقعًا على شبكة الإنترنت، وبالطبع، مثل أي شخص آخر، قمت أيضًا بوضع عداد عليه وواصلت قراءة العداد كل يوم، مما جعلني سعيدًا جدًا ولكن بعد ذلك فكرت، من الذي رأى موقع الويب الخاص بي؟ الأصدقاء أو الأصدقاء القدامى؟ لا أعرف عدد المرات التي أتوا فيها، لكنني ما زلت أرغب في ترقيمهم جميعًا، لذلك تقدمت بطلب للحصول على إحصائيات مجانية، لكنني ما زلت غير راضٍ بعد تغيير أرقام N على التوالي، للأسف، يبدو أن هذه هي الطريقة الوحيدة الحصول على ما يكفي من الطعام والملابس هو أن أفعل ذلك بنفسي، وما زلت آمل أن يضحك الخبراء على ذلك وألا يطلبوا النصيحة.

لقد أخذت مكتبة ACCESS كمثال. في الواقع، لاستخدام مكتبة SQL SERVER، ما عليك سوى تغيير بيان مكتبة الارتباط.

هيكل المكتبة على النحو التالي

اسم ملف المكتبة: CONT.ASP كان في الأصل CONT.MDB ولكن بعد إنشائه، تم تغيير الملحق إلى ASP لمنع تنزيل المكتبة.

اسم الجدول: علامة التبويب

وصف نوع بيانات اسم الحقل

معرف ترقيم رقم الزائر تلقائيا

يتم استخدام نص IP لتسجيل IP الخاص بالزائر

يتم استخدام التاريخ والوقت dat1 لتسجيل آخر مرة زارها الزائر

يتم استخدام التاريخ والوقت لتسجيل وقت الزيارة الأولى للزائر

رقم CS، عدد صحيح يستخدم لتسجيل عدد زيارات الزوار

البرنامج بسيط للغاية، ويحتوي على ملفين فقط، يُستخدم dispcont.asp لعرض النتائج الإحصائية، ويستخدم contpage.asp للمعلومات الإحصائية.

دعونا نلقي نظرة أولاً على إحصائيات CONTPAGE.ASP. الكود كما يلي:

  1. <%SetConn=Server.CreateObject(ADODB.Connection)
  2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  3. Conn.Openconnstr'***** يتم استخدام العبارة أعلاه للاتصال بالمكتبة، وcont.asp هو اسم ملف المكتبة.
  5. keren=request.cookies(keren)'اقرأ ملفات تعريف الارتباط، اسم ملفات تعريف الارتباط هو: keren، haha. . كلمة E الخاصة بـ Ah Yu هي كلمة أدبية سيئة، وهو يعرف فقط كيفية استخدام نظام Pinyin.
  6. ifkeren=then' يحدد ما إذا كانت ملفات تعريف الارتباط فارغة، وإذا كانت فارغة، فيجب أن يكون صديقًا جديدًا، وإلا فهو صديق قديم.
  8. sql=SELECT*FROMtabwhereid=-1
  9. setrs=server.createobject(ADODB.Recordset)
  10. rs.Opensql،كون،1،3
  11. rs.addnew'إذا كان زائرًا جديدًا، قم بإضافة سجل جديد في المكتبة.
  12. rs(cs)=1'سجل عدد الزيارات بـ 1
  13. rs(ip)=request.servervariables(remote_addr)' لاحظ أسفل عنوان IP،
  14. rs(dat)=now'تذكر التاريخ والوقت الحاليين،
  15. rs(dat1)=date'تذكر التاريخ الحالي واستخدمه كتاريخ الزيارة الأولى في المستقبل.
  16. Response.cookies(keren)=rs(id)'اكتب ملف تعريف الارتباط، المحتوى هو نفس المعرف.
  17. Response.cookies(keren).expires=date+365'حدد تاريخ صلاحية ملفات تعريف الارتباط بدءًا من الآن، 365 يومًا،
  1. else'ما سبق هو كيفية التعامل مع الأصدقاء الجدد ماذا يجب أن نفعل مع الأصدقاء القدامى؟ شاهد أدناه:
  2. sql=SELECT*FROMtabwhereid=&keren'اذهب إلى المكتبة للعثور على سجل صديقنا القديم
  3. setrs=server.createobject(ADODB.Recordset)
  4. rs.Opensql،كون،1،3
  5. rs(cs)=rs(cs)+1'حسنًا، وجدته، أضف 1 إلى عدد الزيارات
  6. rs(ip)=request.servervariables(remote_addr)'اعرف عنوان IP الخاص به واكتبه.
  7. rs(dat)=now'تذكر الوقت الحالي وهو وقت آخر زيارة
  8. Response.cookies(keren)=rs(id)' ثم اكتب ملفات تعريف الارتباط. لا أعرف إذا كانت هذه الجملة زائدة عن الحاجة، فأنا لم أجربه.
  9. Response.cookies(keren).expires=date+365'قم بتعيين وقت انتهاء صلاحية ملف تعريف الارتباط حتى لا أتعرف عليه بعد عام واحد.
  1. com.endif
  3. rs.update' لقد كتبت كل ما يجب كتابته، فلنقم بتحديث المكتبة.
  4. rs.Close'أغلق كائن مجموعة السجلات.
  5. setconn=لا شيء' إطلاقات conn. ما زلت أعتقد أنه يجب فتح الاتصال وإغلاقه في أي وقت، وأعتقد أنه من غير المرغوب فيه وضعه في SESSION. 4% 〉

حسنًا، تم التسجيل، وهو يحتوي على أكثر من عشرين سطرًا من التعليمات البرمجية، وهو برنامج صغير بسيط جدًا.

بعد كتابة البرنامج، كيفية وضعه على الصفحة أمر بسيط للغاية. ما عليك سوى العثور على مكان في الصفحة الرئيسية وإضافة سطر التعليمات البرمجية هذا: <img src=contpage.asp width=0 height=0>.

الخطوة التالية هي إظهار السجلات. هناك العديد من الأشخاص الذين يمكنهم القيام بعمل أفضل من آيو، لكنني ما زلت أرغب في إظهار قبحتي.

اسم الملف: dispcont.asp، يرجى الاطلاع على الكود:

  1. <%
  2. SetConn=Server.CreateObject(ADODB.Connection)
  3. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  4. Conn.Openconnstr'***** يتم استخدام العبارة أعلاه للاتصال بالمكتبة، وcont.asp هو اسم ملف المكتبة.
  6. page3=طلب(صفحة)
  7. ifpage3=thenpage3=session(contpag)'عدد الصفحات، الصفحة الحالية
  8. ifpage3=thenpage3=1
  10. باسكال = طلب (باسكال)
  11. ifpa=thenpa=session(contpa)'عدد مرات العرض لكل صفحة
  12. يعرض ifpa=thenpa=15' 15 عنصرًا في كل صفحة بشكل افتراضي، والتي يمكن تغييرها بشكل عشوائي
  13. جلسة(contpag)=page3
  14. session(contpa)=pa
  15. pages=pa'عرض الرقم لكل صفحة****************** يتم استخدام البرنامج أعلاه لتنفيذ وظيفة الترحيل
  17. SQL=SELECT*FROMtaborderby-dat,-id
  18. باهتة
  19. Setrs=Server.CreateObject(ADODB.RecordSet)
  20. rs.Opensql،كون،1،1
  21. منظمة التضامن المسيحي الدولية = 0
  22. CS1=0
  23. cs100=0
  24. csdat1=0
  25. dowhilenotrs.eof
  26. منظمة التضامن المسيحي الدولية=منظمة التضامن المسيحي الدولية+RS(CS)
  27. ifrs(cs)=1thencs1=cs1+1
  28. ifrs(cs)〉=100ثمcs100+1
  29. ifdatevalue(rs(dat))=datethen
  30. csdat1=csdat1+1
  31. com.endif
  32. rs.movenext
  33. حلقة
  34. ZS=RS.RECORDCOUNT
  35. '********************************************************************************************************************************************************************************* * ***8يتم استخدام البرنامج التالي لعرض الترحيل
  36. %〉
  38. <رأس>
  39. 〈العنوان〉إحصائيات كمبيوتر ممتازة〈/العنوان〉
  40. </رأس>
  41. 〈نمط الجسم=حجم الخط:9ptbgcolor=#D8EDF8〉
  42. هناك سجلات 〈%Response.Writezs%〉 في المجمل. الصفحة الحالية هي 〈%Response.Writepage3%〉. تعرض كل صفحة: [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=15〉15. ], [<ahref=dispcont. asp?pag=〈%=page3%〉&pa=20〉20] عناصر، [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=30〉30] عناصر، [〈ahref=dispcont.asp? الصفحة=〈%=page3%〉&pa=40〉40]
  43. [〈ahref=dispcont.asp〉تحديث]
  44. 〈المحاذاة = اليسار〉
  45. 〈tableborder=0cellpadding=0style=font-size:9pt〉
  46. 〈tr〉〈td〉رقم الصفحة〈/td〉〈%page2=1
  47. fori=1tozssteppages
  48. ifpage3=cstr(page2)ثم
  49. %〉〈td〉[〈%Response.Writepage2%〉]〈/td〉
  50. <٪آخر٪>
  51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
  52. <%endif
  53. page2=page2+1
  54. التالي
  55. sn=pages*(page3-1)'رقم السجل الحالي=الرقم المعروض في كل صفحة*عدد الصفحات-الرقم المعروض في كل صفحة
  56. ifsn〉zsthensn=0
  57. rs.movesn,1
  58. '*************************************** يتم استخدام الفقرة أعلاه للترحيل
  59. %〉〈/آر〉〈/الجدول〉
  60. 〈/div〉〈tablestyle=font-size:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
  61. 〈tr〉〈td〉الرقم〈/td〉〈td〉آخر صفحة رئيسية تمت زيارتها〈/td〉〈td〉آخر عنوان IP تمت زيارته〈/td〉〈td〉عدد الصفحات الرئيسية〈/td〉〈td〉تاريخ الزيارة الأولى〈/td 〉〈/آر〉〈%
  62. fori=1topages
  63. الاستجابة.اكتب〈/tr〉
  64. الاستجابة.اكتب〈td〉&rs(ID)&〈/td〉
  65. الاستجابة.اكتب〈td〉&rs(dat)&〈/td〉
  66. الاستجابة.اكتب〈td〉&rs(IP)&〈/td〉
  67. الاستجابة.اكتب〈td〉&rs(CS)&〈/td〉
  69. الاستجابة.اكتب〈td〉&rs(DAT1)&〈/td〉
  70. الاستجابة.اكتب〈/tr〉
  71. rs.movenext
  72. ifrs.eofthenexitfor
  73. التالي
  74. rs. Close
  75. %〉
  76. 〈tr〉〈td〉Total〈%=zs%〉〈/td〉〈td〉هناك من زار أكثر من 100 مرة〈%=cs100%〉〈/td〉〈td〉هناك من زار 1 : 〈%=cs1%〉〈/td〉〈td〉إجمالي عدد الزيارات 〈%=csi%〉〈/td〉〈td〉زيارات اليوم: 〈%=csdat1%〉〈/td〉〈/tr〉
  77. </طاولة>

ما ورد أعلاه عبارة عن عرض ترحيل كامل يمكن نسخه واستخدامه (ملاحظة: لا يتم أخذ الوضع الذي لا يوجد فيه سجل في الاعتبار)، كما يقول المثل، فقط من خلال القيام بذلك بنفسك يمكنك الحصول على ما يكفي من الطعام والملابس، لذا أسرع جربه!

مقالات ذات صلة