%
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
%>
|
|
|
| ||||
与绿色同行
做环保卫士 4月18日,我校小学分校少先队大队部成立了红领巾绿色中队。绿色中队共有49名队员,他们都是从各班评选出的"绿色小卫士"中择优选取。下午4点,少先队大队部在小学北教楼书画廊举行了简短的红领巾绿色中队成立仪式。小学德育处要求红领巾绿色中队的队员们一要自觉维护好校园环境卫生,二要大胆监督师生不文明的环保行为,三要发现问题及时反馈。要求队员们以身作则,身体力行,积极宣传环保知识,为全校学生养成文明环保行为做示范。仪式结束后,小队员们在校园内举行了"你扔我捡"的环保活动,小队员们热情高,活动效果好。 据了解,小学分校少先队大队部从上月底开始开展了争做"绿色卫士"活动。该活动分为动员学习、开展活动和评选"绿色卫士"三项内容。到目前为止,各班都已开展了形式多样的环保活动,并根据《绿色卫士评选标准》评选出校级"绿色卫士"49名。《绿色卫士评选标准》包括环境意识、节约资源、环境文明行为和环境保护四大块内容计四十小点。 我校红领巾绿色中队的成立有助于进一步推进绿色环保教育,表明我校少先队绿色环保教育活动正迈入规范化、制度化和经常化。 又悉,我校小学分校于2002年在温州市率先成立"绿色文明大队"和"绿之翼小队",在创建浙江省绿色学校中作出了重要的贡献。 (小学德育处、汪培坚) | |||||
| | |||||
| |||||