<% @ language=vbscript CODEPAGE="65001"%> <% dim connectionstr set conn=Server.CreateObject("ADODB.Connection") Set rs=server.CreateObject("Adodb.recordset") connectionstr="driver={mysql odbc 3.51 driver};database=zjwdb_69910;server=localhost;uid=zjwdb_69910;password=luoqingwen" conn.open connectionstr visitors=date() exec="select * from mycount" rs.CursorLocation=3 rs.open exec,conn,3,3 rs.movelast if IsEmpty(session("connected")) then '禁止其它用户更改计数器的值 'application.lock if rs.fields("date")=visitors then currentclick=rs.fields("click")+1 visitor=rs.fields(0).value rs("click")=rs.fields("click")+1 rs.update else currentclick=1 visitor=rs.fields("date") rs.addnew rs("id")=rs.fields("id")+1 rs("date")=visitors rs("click")=1 rs.update end if '取消锁定，允许用户更改计数器的值 'application.unlock else 'application.lock currentclick=rs.fields("click") 'application.unlock end if rs.close session("connected")=TRUE '设定来访者为已连接者(TRUE)，此时再按“刷新”按钮计数器值不会变化。 exec="select sum(click) as totalclick from mycount" rs.CursorLocation=3 rs.open exec,conn,3,3 rs.movelast visitor=rs.fields(0) rs.close exec="select click from mycount where date='" & visitors-1 & "'" rs.CursorLocation=3 rs.open exec,conn,3,3 rs.movelast if rs.recordcount=0 then yesterdayvisitor=0 else yesterdayvisitor=rs.fields(0).value end if rs.close 'response.write "" & visitor & "," & yesterdayvisitor & "," & currentclick & "" response.write("document.write('自2010-01-01以来
本站点击数
" & visitor & "
昨日点击数 " _ & yesterdayvisitor & "
今日点击数 " & currentclick & "