<% set conn=server.createobject("adodb.connection") connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("cou.mdb") //cou是數(shù)據(jù)庫名 conn.open connstr if session("visited")<>"yes" then application.Lock() conn.execute("update counter set hits=hits+1 where kid=1") //counter是數(shù)據(jù)庫里面用于存儲數(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 %>
