%
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月27日一大早,温州中学的志愿者们就带着精心挑选的适合中学生生理、心理的书籍来到了学校。书籍的种类繁多,有教育类、科普类、益智类、人物类,有世界名著、有诗歌大全、有散文名家、有学习方法、有儿童读物,还有一分钟故事、三分钟经典收藏等等。早在一天前,校团委就在高、初中进行了宣传,并张贴了海报。因此,一下课,学生们便蜂拥而至,精心挑选自己喜爱的读物,掀起了一阵又一阵的购书热潮。同学们把自己的零花钱都掏出来,购买自己喜爱的书籍。正如一位同学所说:"这类活动很好,这些书籍我喜欢,我共买了4本。"还有的同学因为时间紧迫,购书的人又人潮涌动,挤都挤不进去,心里着急得不行。每一次下课都掀起一阵购书热潮,每一本书的卖出都让人感到欣慰。同学们不仅捐献了自己的爱心,更重要的是他们可以从书籍中收获比物质更宝贵的东西。整个售书义卖活动从早上8:00一直持续到中午,带来的书籍几乎被抢购一空。看着今天的辉煌战绩,温州中学的志愿者们都很兴奋,他们说这是他们所遇到最火爆的场面,也是书售出得最多,学生精神风貌最令人感动的学校。校团委书记周翔自始至终都参与了这次售书义卖活动。
相关照片:
(校团委 周 翔) | |||||
| | |||||
| |||||