ข้อมูลทางสถิติ/วิธีของบทความ ASP รายวัน รายสัปดาห์ รายเดือน และจำนวนการเข้าชมทั้งหมด เพื่อนที่ต้องการความช่วยเหลือสามารถอ้างอิงถึงได้
คัดลอกรหัสรหัสดังต่อไปนี้:
-
'//hittime date type: รับเวลาเข้าถึงล่าสุด
'//hits ประเภทตัวเลข: รับจำนวนการดูหน้าเว็บทั้งหมด
'//ประเภทตัวเลข hitsday: รับจำนวนการดูวันนี้
'//ประเภทตัวเลข hitsweeks: รับจำนวนการดูในสัปดาห์นี้
'//ประเภทตัวเลข hitmonths: รับจำนวนการดูในเดือนนี้
'เพิ่ม 5 ฟิลด์เหล่านี้ลงในฐานข้อมูล'
ตั้ง rs1=server.CreateObject("adodb.recordset")
rs1.open "เลือก * จาก qwbmnewssss โดยที่ id=26",conn,1,3
ถ้า rs1.eof และ rs1.bof แล้ว
ตอบกลับเขียนว่า "erry"
อื่น
hittime = rs1("hittime") 'รับเวลาเข้าถึงล่าสุด
วันที่มืดมนตอนนี้เดือนตอนนี้สัปดาห์นี้
dayNow = day(date()) 'วันนี้เป็นวันอะไร?
monthNow = month(date()) 'ตอนนี้เดือนอะไร?
weekNow = วันทำงาน(date()) 'วันปัจจุบันของสัปดาห์ที่ 0 คือวันอาทิตย์
rs1("hits") = rs1("hits") + 1 'จำนวนการดูทั้งหมด + 1
ถ้า datediff("d",hittime,now()) = 0 ดังนั้น 'เปรียบเทียบวันที่เข้าถึงล่าสุดกับเวลาปัจจุบันและจำนวนวัน
rs1("hitsday") = rs1("hitsday") + 1 'ยอดดูวันนี้ + 1
อื่น
rs1("hitsday") = 1 'ยอดเข้าชมวันนี้ = 1
สิ้นสุดถ้า
ถ้า monthNow = เดือน (hittime) แล้ว
rs1("hitmonths") = rs1("hitmonths") + 1 'การดูเดือนนี้ + 1
อื่น
rs1("hitmonths") = 1 'ยอดดูเดือนนี้ + 1
สิ้นสุดถ้า
ถ้า datediff("d",hittime,now()) > 6 แล้ว 'มีปัญหาในการประมวลผลช่วงเวลาของสัปดาห์ ถ้าเวลาก่อนหน้าคือวันศุกร์และการเข้าถึงครั้งถัดไปคือวันอังคารของสัปดาห์ถัดไป บันทึกจะยังคงอยู่ ซ้อนทับ
rs1("ฮิตสัปดาห์") = 1
อื่น
ถ้า weekNow <> 1 แล้ว
rs1("ฮิตสัปดาห์") = rs1("ฮิตสัปดาห์") + 1
อื่น
weekNowss = วันทำงาน (hittime) 'วันของสัปดาห์ที่เข้าชมครั้งล่าสุด
ถ้า weekNow = weekNowss แล้ว
rs1("ฮิตสัปดาห์") = rs1("ฮิตสัปดาห์") + 1
อื่น
rs1("ฮิตสัปดาห์") = 1
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
rs1("hittime") = now() 'อัปเดตคำถามการเข้าชมครั้งล่าสุด
rs1.อัพเดต
-
การเปรียบเทียบเวลา: <%=datediff("d",hittime,now())%><br />
เวลาปัจจุบัน: <%=ตอนนี้()%><br />
เวลาคลิกสุดท้าย: <%=hittime%><br />
วันปัจจุบัน: <%=dayNow%><br />
เดือนปัจจุบัน: <%=เดือนตอนนี้%><br />
สัปดาห์ปัจจุบัน: <%=weekNow%><br />
ยอดดูทั้งหมด:<%=rs1("hits")%><br />
การเข้าชมวันนี้: <%=rs1("hitsday")%><br />
การเข้าชมรายสัปดาห์: <%=rs1("hitsweeks")%><br />
จำนวนการเข้าชมในเดือนนี้: <%=rs1("hitmonths")%><br />
-
สิ้นสุดถ้า
rs1.ปิด
ตั้งค่า rs1=ไม่มีอะไร
-