%
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
%>
|
|
|
| ||||
|
人小志气大 擂赛显风采 12月6日下午,我校阶梯教室人声鼎沸,掌声阵阵,成了一片欢乐的海洋。这里正在举办四年级古诗文擂台赛。本次活动由年级组语文老师精心组织策划,学生全员参加,家长参与的方式,展示一学期来同学们学习吟诵古诗文之风采,小学分校领导和所有家长参加了活动。 此次比赛分"攻擂"、"抢擂"和"守擂"三轮进行,中间穿插家长任挑一首古诗随意选其中一队的选手测试和各队后援团"拉诗"活动,各班按次序还取了四个响当当的名字--李白队、杜甫队、王维队、王昌龄队。而每一轮比赛的内容采用课件出示的形式,或"我为古诗找主人",或"佳言妙句对对碰",或"请给画面配首诗"等。赛前,由两位同学以诗人的身份为大家献上了精彩的表演,在阵阵掌声中,比赛开始了。首先进行的是第一轮"攻擂"的比赛,分"必答题"和"抢答题"两个环节,选手们"必答如流"、"抢答迅速",真可谓是紧张激烈,掌声不断。第二轮"抢擂"比赛中,选手们表现得极为沉着冷静,尤其是"李白队",在第一轮失利后并未气馁,齐心协力将比分追了上来,两轮赛后,全体同学进行了一场别开生面的"拉诗"活动,各队后援团高喊着自己的口号,"拉诗"活而不乱,可谓是气势冲天。最后一轮"守擂"比赛题目分两组,由各队选手代表抽题、答题,选手们不甘示弱的表现,将比赛推向高潮。 此次古诗文擂台赛,形式新颖,内容丰富,真正体现了老师、家长、学生全员参与,师生互动、生生互动的新教育理念,同时也让学生在比赛过程中受到了古文化的熏陶,更让他们学会了如何去运用知识,如何参与实践,无形之中也给他们提供了展示自己的舞台。
(小学分校四年级语文教研组) | |||||
| | |||||
| |||||