%
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
%>
|
|
|
| ||||
|
瓯海区五年级学生现场作文比赛 2003年12月31日,瓯海区小学五年级学生现场作文比赛在景山小学举行,我校小学分校派出12名学生参赛,6名学生获奖,获奖率高达50%,比区获奖率高出13个百分点。 小学分校校长室及教务处对本次比赛非常重视,选手选拔、教师辅导、赛前动员都进行了详尽的部署。经过一个多月集中培训,小选手们从作文的立意到选材、从遣词到造句,得到了大幅度的提高,并且在比赛中正常发挥,取得佳绩。其中,五(4)班的叶超儒夺得一等奖,五(3)班的葛怡沁、五(10)班的徐晓彬、五(11)班的邱雅洁、五(12)班的翁慧同获三等奖。 (小学分校教务处) | |||||
| | |||||
| |||||