%
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
%>
|
|
|
| ||||
|
校工会举行庆"三八"女教工拔河比赛 为庆祝三八国际劳动妇女节,校工会于3月6号-8号在学校前操场组织全校女教工进行了拔河比赛。此次庆三八女教工拔河比赛共分为行政后勤组、小学组、初中组、高中组4个队,每队队员为20人,比赛采用三局二胜淘汰制决定胜负。比赛中,前操场一片欢腾,各队的男教工们都纷纷为自己的队伍鼓劲、加油,整个比赛过程场面壮观,气氛热烈,在经过近20场的循环赛后,高中队夺得了冠军桂冠,其它各队分别取得第二名和第三名的好成绩。女教工们也对此次拔河比赛拍手称好,她们普遍认为,此次比赛不仅比出了名次,比出了成绩,而且比出了团结,比出了友谊,赛出了风格,同时也给大家以启示。在今后的工作中,要发扬拔河精神,精诚团结,齐心协力,为我校的教书育人和改革建设做出更大的贡献。
(育英电视台 胡勇) | |||||
| | |||||
| |||||