เพื่อนที่กำลังเรียน ASP ต้องเข้าใจ <%
ตั้งค่า conn=server.createobject (adodb.connection)
connstr=Provider=Microsoft.jet.oledb.4.0;data source=&server.mappath(cou.mdb) //cou คือชื่อฐานข้อมูล
conn.open constr
ถ้าเซสชัน (เยี่ยมชม)<>ใช่แล้ว
แอพลิเคชันล็อค()
conn.execute(update counter set hits=hits+1 โดยที่ kid=1) //counter คือชื่อของตารางที่ใช้เก็บข้อมูลในฐานข้อมูล
แอปพลิเคชันปลดล็อค ()
เซสชัน (เยี่ยมชม) = ใช่
สิ้นสุดถ้า
set rs=conn.execute (เลือก * จาก kuo โดยที่ kid=1)
ถ้า rs.eof และ rs.bof แล้ว
เคาน์เตอร์=0
อื่น
เคาน์เตอร์ = rs (ฮิต)
สิ้นสุดถ้า
฿.ปิด
เชื่อมต่อปิด
ตั้งค่า rs=nothing
ตั้งค่า conn=ไม่มีอะไร
-