%
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年瓯海区"新理念、新评价"语文素养评价试卷评比活动已经结束,我校共有8位老师获奖:苏薇薇、陶慧娟、李灵三位老师荣获二等奖,李道强、陈相明、陈颖、曹晓辉、刘沁五位老师荣获三等奖。 虽说只是设计一份语文素养评价试卷,可老师们认真研读新课标,钻研新教材,精心设计每一道题目。此次参赛大面积获奖,不仅看出我校师资力量强,还从另一个侧面反映我校在新课程课改实验中,已经走在了前列。 | |||||
| | |||||
| |||||