معلومات/طرق إحصائية لـ ASP/مقالة يومية وأسبوعية وشهرية وإجمالي الزيارات يمكن للأصدقاء المحتاجين الرجوع إليها. انسخ رمز الكود كما يلي:
<%
'// نوع تاريخ وقت الإصابة: احصل على آخر وقت وصول
'// نوع النتائج الرقمي: احصل على إجمالي مشاهدات الصفحة
'// النوع الرقمي لـ hitsday: احصل على عدد المشاهدات اليوم
'// نوع hitsweeks الرقمي: احصل على عدد المشاهدات هذا الأسبوع
'// النوع الرقمي لأشهر الشهر: احصل على عدد المشاهدات هذا الشهر
'أضف هذه الحقول الخمسة إلى قاعدة البيانات.
تعيين rs1=server.CreateObject(adodb.recordset)
rs1.open حدد * من qwbmnewssss حيث المعرف = 26، conn، 1،3
إذا rs1.eof وrs1.bof ذلك الحين
استجابة.اكتب يري
آخر
hittime = rs1(hittime) 'احصل على آخر وقت وصول.'
يوم خافتالآن، الشهرالآن، عطلة نهاية الأسبوع
dayNow = day(date()) 'ما هو اليوم الآن؟
MonthNow = Month(date()) 'ما هو الشهر الآن؟
WeekNow =weekday(date()) 'اليوم الحالي من الأسبوع 0 هو يوم الأحد
rs1(زيارات) = rs1(زيارات) + 1 'إجمالي عدد المشاهدات + 1
إذا كان datediff(d,hittime,now()) = 0، فعندئذٍ "قارن تاريخ الوصول الأخير بالوقت الحالي وعدد الأيام"
rs1(hitsday) = rs1(hitsday) + 1 'مشاهدات اليوم + 1
آخر
rs1(hitsday) = 1 'مشاهدات اليوم = 1
نهاية إذا
إذا كان الشهر الآن = الشهر (وقت الإصابة) إذن
rs1(أشهر الإصابة) = rs1(أشهر الإصابة) + 1 'المشاهدات هذا الشهر + 1
آخر
rs1(hitmonths) = 1 'المشاهدات هذا الشهر + 1
نهاية إذا
إذا كان datediff(d,hittime,now()) > 6، فعندئذٍ "توجد مشكلة عند معالجة فترة الأسبوع. إذا كان الوقت السابق هو يوم الجمعة وكان الوصول التالي هو يوم الثلاثاء من الأسبوع التالي، فستظل السجلات متراكبة." .
rs1(عدد الزيارات) = 1
آخر
إذا كان WeekNow <> 1 إذن
rs1(أسابيع) = rs1(أسابيع) + 1
آخر
WeekNowss = Weekday(hittime) 'آخر يوم تمت زيارته في الأسبوع.'
إذا كانweekNow =weekNowss إذن
rs1(أسابيع) = rs1(أسابيع) + 1
آخر
rs1(عدد الزيارات) = 1
نهاية إذا
نهاية إذا
نهاية إذا
rs1(hittime) = now() 'قم بتحديث سؤال الزيارة الأخيرة
rs1.update
%>
مقارنة الوقت: <%=datediff(d,hittime,now())%><br />
الوقت الحالي: <%=now()%><br />
وقت النقرة الأخيرة: <%=hittime%><br />
اليوم الحالي: <%=dayNow%><br />
الشهر الحالي: <%=monthNow%><br />
الأسبوع الحالي: <%=weekNow%><br />
إجمالي المشاهدات: <%=rs1(الزيارات)%><br />
زيارات اليوم: <%=rs1(hitsday)%><br />
الزيارات الأسبوعية: <%=rs1(hitsweeks)%><br />
عدد الزيارات هذا الشهر: <%=rs1(hitmonths)%><br />
<%
نهاية إذا
rs1.إغلاق
تعيين rs1=لا شيء
%>