Viết Counter bằng ASP

 
<% 
'Khai báo biến sẽ sử dụng 
Dim Count 'Nhận giá trị của số Counter 
Dim strSQL 'Nhận giá trị của câu truy vấn SQL 
Dim Conn 'Kết nối đến cơ sở dữ liệu 
Dim objRS 'Kết nối Recordset 

'Tạo và mở kết nối tới file cơ sở dữ liệu Counter.mdb 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Counter.mdb") 
</SPAN>

<SPAN class=spnMessageText>strSQL = "SELECT * FROM Counter " 
Set objRS = Conn.Execute(strSQL) 

'Kiểm tra xem trong trường Count có giá trị hay không? 
If NOT objRS.EOF Then 'Tương đương - Nếu chưa đến cuối mẩu tin (mẩu tin không rỗng) thì 

'Gán biến Count bằng với giá trị của mẩu tin trong cơ sở dữ liệu 
Count = objRS("Count") 
'Và sau đó tăng giá trị của biến Count lên thêm 1 đơn vị 
Count = (Count + 1) 

'Rồi cập nhật giá trị mới này vào cơ sở dữ liệu 
'Câu truy vấn SQL để cập nhật giá trị vào CSDL 
strSQL = "UPDATE Counter SET Count = (" &amp; Count &amp; ") " 
'Thực thi câu truy vấn này 
Set objRS = Conn.Execute(strSQL) 

'Ngược lại nếu đã đến cuối mẩu tin trong CSDL, tức là trong CSDL trường Count chưa có giá trị 
ELSE 

'Gán cho biến Count giá trị bắt đầu từ 1 
Count = 1 

'Và cập nhật vào CSDL 
'Câu truy vấn SQL thêm mới dữ liệu vào CSDL 
strSQL = "INSERT INTO Counter (Count) VALUES (" &amp; Count &amp; ") " 

'Thực thi câu truy vấn 
Set objRS = Conn.Execute(strSQL) 

End If 

'Đóng và huỷ kết nối 
objRS.Close 
Set objRS = Nothing 
strSQL = "" 
%&gt;