<% 
set conn=server.createobject("adodb.connection") 
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("cou.mdb") //cou是數(shù)據(jù)庫(kù)名 
conn.open connstr 
if session("visited")<>"yes" then 
application.Lock() 
conn.execute("update counter set hits=hits+1 where kid=1") //counter是數(shù)據(jù)庫(kù)里面用于存儲(chǔ)數(shù)據(jù)的表名 
application.UnLock() 
session("visited")="yes" 
end if 
set rs=conn.execute("select * from kuo where kid=1") 
if rs.eof and rs.bof then 
counters=0 
else 
counters=rs("hits") 
end if 
rs.close 
conn.close 
set rs=nothing 
set conn=nothing 
%>