معلومات/طرق إحصائية لـ ASP/مقالة يومية وأسبوعية وشهرية وإجمالي الزيارات يمكن للأصدقاء المحتاجين الرجوع إليها.
انسخ رمز الكود كما يلي:
<%
'// نوع تاريخ وقت الإصابة: احصل على آخر وقت وصول
'// نوع النتائج الرقمي: احصل على إجمالي مشاهدات الصفحة
'// النوع الرقمي لـ hitsday: احصل على عدد المشاهدات اليوم
'// نوع hitsweeks الرقمي: احصل على عدد المشاهدات هذا الأسبوع
'// النوع الرقمي لأشهر الشهر: احصل على عدد المشاهدات هذا الشهر
'أضف هذه الحقول الخمسة إلى قاعدة البيانات.
تعيين rs1=server.CreateObject("adodb.recordset")
rs1.open "اختر * من qwbmnewssss حيث المعرف = 26"، كون، 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("hitmonths") = rs1("hitmonths") + 1 'المشاهدات هذا الشهر + 1
آخر
rs1("hitmonths") = 1 'المشاهدات هذا الشهر + 1
نهاية إذا
if 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("hits")%><br />
زيارات اليوم: <%=rs1("hitsday")%><br />
الزيارات الأسبوعية: <%=rs1("hitsweeks")%><br />
عدد الزيارات هذا الشهر: <%=rs1("hitmonths")%><br />
<%
نهاية إذا
rs1.إغلاق
تعيين rs1 = لا شيء
%>