Друзья, изучающие asp, должны понимать <%
set conn=server.createobject(adodb.connection)
connstr=Provider=Microsoft.jet.oledb.4.0;data source=&server.mappath(cou.mdb) //cou — имя базы данных
conn.open connstr
если сеанс(посещенный)<>да, тогда
приложение.Lock()
conn.execute(update counter set hits=hits+1 где kid=1) //счетчик — это имя таблицы, используемой для хранения данных в базе данных
приложение.UnLock()
сеанс (посещенный) = да
конец, если
set rs=conn.execute(выберите * из kuo, где kid=1)
если rs.eof и rs.bof, то
счетчики=0
еще
счетчики=rs(обращения)
конец, если
RS.закрыть
конн.закрыть
установить rs=ничего
установить соединение = ничего
%>