หน้าแรก>บทช่วยสอนการเขียนโปรแกรมเครือข่าย>กวดวิชา ASP

ตัวอย่างการสร้างสถิติ ASP อย่างง่าย

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-02-19 06:12:01

ตัวอย่างการผลิตทางสถิติที่สามารถนับจำนวนผู้เยี่ยมชมและบันทึกจำนวนการเข้าชม, IP และเวลา เพื่อนๆ ที่ต้องการข้อมูลดังกล่าวสามารถอ้างอิงได้

ฉันสร้างเว็บไซต์และแน่นอน เช่นเดียวกับคนอื่นๆ ฉันยังอ่านเคาน์เตอร์อยู่ทุกวัน ซึ่งทำให้ฉันมีความสุขมาก แต่แล้วฉันก็คิดว่าใครในโลกนี้ที่เห็นเว็บไซต์ของฉันบ้าง เพื่อนหรือเพื่อนเก่า? ไม่รู้ว่ามากี่ครั้งแล้ว แต่ยังอยากนับให้หมด เลยสมัครขอสถิติฟรี แต่เปลี่ยน N ติดต่อกันแล้วยังไม่พอใจเลย ดูเหมือนเป็นวิธีเดียวเท่านั้น มีอาหารและเสื้อผ้าให้เพียงพอก็แค่ทำเอง ฉันยังหวังว่าผู้เชี่ยวชาญจะหัวเราะเยาะและไม่ขอคำแนะนำ

ฉันใช้ไลบรารี ACCESS เป็นตัวอย่าง ที่จริงแล้วหากต้องการใช้ไลบรารี SQL SERVER คุณจะต้องเปลี่ยนคำสั่งของไลบรารีลิงก์เท่านั้น

โครงสร้างห้องสมุดมีดังนี้

ชื่อไฟล์ไลบรารี: CONT.ASP เดิมทีคือ CONT.MDB แต่หลังจากสร้างขึ้นแล้ว ส่วนขยายก็เปลี่ยนไปเป็น ASP เพื่อป้องกันไม่ให้ดาวน์โหลดไลบรารี

ชื่อตาราง: แท็บ

คำอธิบายประเภทข้อมูลชื่อฟิลด์

ID กำหนดหมายเลขผู้เยี่ยมชมโดยอัตโนมัติ

ข้อความ IP ใช้เพื่อบันทึก IP ของผู้เข้าชม

วันที่และเวลา dat1 ใช้เพื่อบันทึกครั้งสุดท้ายที่ผู้เยี่ยมชมเยี่ยมชม

วันที่และเวลาที่ใช้ในการบันทึกเวลาที่ผู้เยี่ยมชมครั้งแรก

หมายเลข CS เป็นจำนวนเต็มที่ใช้บันทึกจำนวนการเข้าชมของผู้เยี่ยมชม

โปรแกรมนี้เรียบง่ายมาก โดยมีเพียงสองไฟล์เท่านั้น dispcont.asp ใช้เพื่อแสดงผลทางสถิติ และ contpage.asp ใช้สำหรับข้อมูลทางสถิติ

มาดูสถิติของ CONTPAGE.ASP กันก่อน โดยมีโค้ดดังนี้:

  1. <%SetConn=Server.CreateObject(ADODB.การเชื่อมต่อ)
  2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  3. Conn.Openconnstr'***** คำสั่งข้างต้นใช้เพื่อเชื่อมต่อกับไลบรารี และ cont.asp เป็นชื่อไฟล์ไลบรารี
  5. keren=request.cookies(keren)'อ่านคุกกี้แล้ว ชื่อคุกกี้คือ keren 555 - E ของ Ah Yu เป็นคำในวรรณกรรมที่ไม่ดี และเขารู้วิธีใช้พินอินเท่านั้น
  6. ifkeren=then' กำหนดว่า cookes ว่างเปล่าหรือไม่ ถ้าว่างเปล่า จะต้องเป็นเพื่อนใหม่ ไม่เช่นนั้นจะเป็นเพื่อนเก่า
  8. sql=SELECT*FROMแท็บอยู่ที่ไหน=-1
  9. setrs=server.createobject (ADODB.Recordset)
  10. rs.Opensql,conn,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)'เขียนคุกกี้ เนื้อหาเหมือนกับ ID
  17. response.cookies(keren).expires=date+365'กำหนดวันที่ใช้งานได้ของคุกกี้โดยเริ่มจากตอนนี้ 365 วัน
  1. อย่างอื่นข้างต้นคือวิธีจัดการกับเพื่อนใหม่ เราควรทำอย่างไรกับเพื่อนเก่า? ดูด้านล่าง:
  2. sql=SELECT*FROMtabwhereid=&keren'Go ไปที่ห้องสมุดเพื่อค้นหาบันทึกของเพื่อนเก่าของเรา
  3. setrs=server.createobject (ADODB.Recordset)
  4. rs.Opensql,conn,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. สิ้นสุด
  3. rs.update' ฉันได้จดทุกอย่างที่ควรจดไว้แล้ว มาอัปเดตไลบรารีกันดีกว่า
  4. rs.close'ปิดวัตถุชุดระเบียน
  5. setconn=nothing' เผยแพร่ conn ฉันยังคงคิดว่าควรเปิดและปิดการเชื่อมต่อเมื่อใดก็ได้ ฉันคิดว่ามันไม่พึงปรารถนาที่สุดที่จะใส่ไว้ใน SESSION 4%〉

โอเค บันทึกเสร็จแล้ว มีโค้ดมากกว่า 20 บรรทัด และเป็นโปรแกรมขนาดเล็กที่เรียบง่ายมาก

หลังจากเขียนโปรแกรมแล้ว จะวางมันลงบนเพจได้อย่างไร ง่ายมาก เพียงหาตำแหน่งบนหน้าแรกแล้วเพิ่มโค้ดบรรทัดนี้: <img src=contpage.asp width=0 height=0>

ขั้นต่อไปคือโชว์สถิติมีคนเก่งกว่าอายูอีกเยอะแต่ก็ยังอยากอวดความอัปลักษณ์ของตัวเอง

ชื่อไฟล์: dispcont.asp โปรดดูโค้ด:

  1. -
  2. SetConn=Server.CreateObject(ADODB.การเชื่อมต่อ)
  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=แล้วpage3=1
  10. pa=คำขอ(pa)
  11. ifpa=thenpa=session(contpa)'จำนวนการแสดงผลต่อหน้า
  12. ifpa=thenpa=15' แสดงรายการ 15 รายการต่อหน้าตามค่าเริ่มต้น ซึ่งสามารถเปลี่ยนแปลงได้ตามใจชอบ
  13. เซสชั่น(contpag)=page3
  14. เซสชั่น(contpa)=pa
  15. Pages=pa'Display number per page****************** โปรแกรมด้านบนนี้ใช้เพื่อใช้ฟังก์ชันเพจจิ้ง
  17. SQL=SELECT*FROMtaborderby-dat,-id
  18. หรี่แสง
  19. Setrs=Server.CreateObject(ADODB.RecordSet)
  20. rs.Opensql,conn,1,1
  21. ซีเอสไอ=0
  22. ซีเอส1=0
  23. ซีเอส100=0
  24. csdat1=0
  25. do Whilenotrs.eof
  26. csi=csi+rs(cs)
  27. ifrs(cs)=1แล้วcs1=cs1+1
  28. ifrs(cs)〉=100แล้วcs100+1
  29. ifdatevalue(rs(dat))=datethen
  30. csdat1=csdat1+1
  31. สิ้นสุด
  32. rs.movenext
  33. วนซ้ำ
  34. ZS=RS.RECORDCOUNT
  35. '************************************************ * ***8โปรแกรมต่อไปนี้ใช้สำหรับการแสดงเพจ
  36. -
  38. <ศีรษะ>
  39. 〈ชื่อ〉สถิติคอมพิวเตอร์ที่ยอดเยี่ยม〈/ชื่อ〉
  40. </ศีรษะ>
  41. 〈bodystyle=font-size: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? pag=〈%=page3%〉&pa=40〉40]
  43. [〈ahref=dispcont.asp〉รีเฟรช]
  44. 〈divalign=ซ้าย〉
  45. 〈tableborder=0cellpadding=0style=font-size:9pt〉
  46. 〈tr〉〈td〉หมายเลขหน้า〈/td〉〈%page2=1
  47. fori=1tozsหน้าขั้นตอน
  48. ifpage3=cstr(page2)แล้ว
  49. %〉〈td〉[〈%Response.Writepage2%〉]〈/td〉
  50. <%อื่น%>
  51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
  52. <%endif
  53. หน้า2=หน้า2+1
  54. ต่อไป
  55. sn=pages*(page3-1)'หมายเลขบันทึกปัจจุบัน=จำนวนที่แสดงต่อหน้า*จำนวนหน้า-จำนวนที่แสดงต่อหน้า
  56. ถ้าsn〉zsthensn=0
  57. rs.movesn,1
  58. '************************************ ย่อหน้าข้างต้นใช้สำหรับเพจ
  59. %〉〈/tr〉〈/ตาราง〉
  60. 〈/div〉〈tablestyle=font-size:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
  61. 〈tr〉〈td〉Number〈/td〉〈td〉หน้าแรกที่เข้าชมล่าสุด〈/td〉〈td〉IP เข้าชมล่าสุด〈/td〉〈td〉จำนวนหน้าแรก〈/td〉〈td〉วันที่เข้าชมครั้งแรก〈/td 〉 〈/tr〉〈%
  62. fori=1หน้ายอดนิยม
  63. ตอบกลับเขียน〈/tr〉
  64. การตอบสนองเขียน〈td〉&rs(ID)&〈/td〉
  65. Response.เขียน〈td〉&rs(dat)&〈/td〉
  66. การตอบสนองเขียน〈td〉&rs(IP)&〈/td〉
  67. Response.เขียน〈td〉&rs(CS)&〈/td〉
  69. การตอบสนองเขียน〈td〉&rs(DAT1)&〈/td〉
  70. ตอบกลับเขียน〈/tr〉
  71. rs.movenext
  72. ifrs.eofthenexitfor
  73. ต่อไป
  74. RS.ปิด
  75. -
  76. 〈tr〉〈td〉Total〈%=zs%〉〈/td〉〈td〉มีผู้ที่เคยเยี่ยมชมมากกว่า 100 ครั้ง〈%=cs100%〉〈/td〉〈td〉มีผู้ที่เคยเยี่ยมชม 1 : 〈%=cs1%〉〈/td〉〈td〉จำนวนการเข้าชมทั้งหมด 〈%=csi%〉〈/td〉〈td〉การเข้าชมวันนี้: 〈%=csdat1%〉〈/td〉〈/tr〉
  77. </โต๊ะ>

ข้างต้นเป็นการแสดงเพจแบบสมบูรณ์ที่สามารถคัดลอกและใช้งานได้ (หมายเหตุ: จะไม่พิจารณาสถานการณ์ที่ไม่มีบันทึก) ดังคำกล่าวที่ว่าทำด้วยตัวเองเท่านั้นที่คุณจะมีอาหารและเสื้อผ้าเพียงพอ ดังนั้นรีบหน่อย ลองดูสิ!

บทความที่เกี่ยวข้อง