%
set counter=server.createobject("mswc.counters")
counter.increment(counts)
'response.buffer=true
sub gcounter
picture=slt
picnum=6
'POWERED BY SLIGHTBOY
set conn=Server.CreateObject("ADODB.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("..\database\tj.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sql= "select * from data where id=1"
rs.open sql,conn,3,3
'防刷代码开始
ip=Request.ServerVariables("REMOTE_ADDR")
'比对新老IP
if not ip=session("OldIp") then
session("OldIp")=ip
rs("counter")=rs("counter")+1
rs.update
counternum=rs("counter")
rs.close
else
counternum=rs("counter")
rs.close
end if
counternum=cstr(counternum)
response.write counternum
' digits=6
' for i=digits-1 to 0 step -1
' temp=fix(counternum/10^i)
' response.write ""
' counternum=counternum-temp*10^i
' next
end sub
%>
|
|
|
| ||||
|
小学分校举行四年级电脑绘画作品评比活动 2004年12月18日至12月25日,小学分校四年级举行了电脑绘画作品评比活动。本次活动旨在提高四年级学生的电脑绘画操作技能技巧,把传统的手画技巧与电脑相结合,初步认识电脑是如何为人们所用,如何的方便快捷。学生经过一周的比赛评比活动,成绩目前揭晓,现公布如下: 计算机管理中心报道 | |||||
| | |||||
| |||||