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