مثال على الإحصاءات التي يمكن أن ترقيم الزوار ، وزيارات تسجيل ، و IP ، والوقت
لقد صنعت موقعًا إلكترونيًا ، www.zydn.net ، بالطبع ، مثل أي شخص آخر ، وأضع أيضًا عدادًا عليه. رأيت العدادات تنقلب باستمرار كل يوم ، وكنت سعيدًا جدًا ، لكنني فكرت لاحقًا ، من كان يشاهد موقع الويب الخاص بي؟ صديق جديد أو صديق قديم؟ لا أعرف عدد المرات التي أتوا فيها ، لكنني ما زلت أرغب في ترقيمها جميعًا ، لذلك تقدمت بطلب للحصول على إحصاءات مجانية ، لكنني لم أكن راضيا عن التغييرات في التوالي. للأسف ، يبدو أنه فقط من خلال القيام بذلك بنفسك ، هل يمكنك الحصول على ما يكفي من الطعام والملابس ، والقيام بذلك كما تقول. المستوى نتن. آمل أن يضحك الماجستير عليها ولا تطلب النصيحة.
أنا آخذ مكتبة الوصول كمثال. في الواقع ، باستخدام مكتبة SQLServer ، يمكنك فقط تغيير العبارات في مكتبة الارتباط.
هيكل المكتبة كما يلي
اسم ملف المكتبة: cont.asp كان في الأصل cont.mdb ، ولكن بعد الإنشاء ، تم تغيير الامتداد إلى ASP لمنع تنزيل المكتبة.
اسم الجدول: علامة التبويب
اسم الحقل نوع البيانات الوصف
معرف ترقيم رقم الزائر تلقائيًا
يتم استخدام نص IP لتسجيل IP للزائر
يتم استخدام وقت تاريخ DAT1 لتسجيل آخر زوار زائر
يتم استخدام وقت تاريخ DAT لتسجيل الوقت الذي يزور فيه الزائر الأول
رقم CS ، يتم استخدام نوع عدد صحيح لتسجيل عدد الزيارات إلى الزائر
البرنامج بسيط للغاية ، لا يوجد سوى ملفان ، يتم استخدام dispcont.asp لعرض النتائج الإحصائية ، يتم استخدام contpage.asp لعرض المعلومات الإحصائية ،
دعنا أولاً نلقي نظرة على إحصائيات contpage.asp ، والرمز كما يلي:
<٪
setConn = server.createObject ("adodb.connection")
connstr = "dbq ="+server.mappath ("cont.asp")+"؛ defaultDir = ؛ driver = {microsoft accessDriver (*. mdb)} ؛"
conn.openconnstr '***** يتم استخدام البيان أعلاه للاتصال بالمكتبة ، و cont.asp هو اسم ملف المكتبة.
Keren = request.cookies ("Keren") "قراءة ملفات تعريف الارتباط ، اسم ملفات تعريف الارتباط هو:" Keren "، هاها. . إن أدب Yu الخاص بـ e سيء للغاية لدرجة أنه يعرف فقط كيفية استخدام Pinyin.
ifkeren = "" ثم لا يلمح ما إذا كانت ملفات تعريف الارتباط فارغة. إذا كانت فارغة ، فيجب أن يكونوا أصدقاء جدد ، وإلا فهي أصدقاء قديمون.
SQL = "SELECT*FROMTABWEDENEID = -1"
setRs = server.createObject ("adodb.recordset")
Rs.Opensql ، Conn ، 1،3
Rs.Addnew'f هو زائر جديد ، أضف سجلًا جديدًا في المكتبة.
RS ("CS") = 1 "لاحظ أن عدد الزيارات هو 1
RS ("IP") = request.ServerVariables ("REMOTE_ADDR") "لاحظ IP ،
rs ("dat") = الآن لا يمارسني التاريخ والوقت الحاليين ،
RS ("dat1") = Date'tell التاريخ الحالي ، والتاريخ الذي سيتم استخدامه للزيارة الأولى في المستقبل.
Response.cookies ("Keren") = RS ("ID") "اكتب ملف تعريف ارتباط والمحتوى هو نفسه المعرف.