%
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
%>
|
|
|
| |||||
|
水果拼盘辉耀"温馨家园" 2004的钟声即将敲响,在告别今年最后一天的晚上--2003年12月31日,高级中学举行了"温馨家园"大型新年晚会。与以往不同的是,今年的晚会增设了"水果拼盘创意比赛"这一小板块,参赛的共有来自高一、高二共23个支部的水果拼盘。 平常看似普通的水果在同学们的精心装点下,被设计成各种色彩艳丽、造型奇特的图案,让人从中领略到当代高中生丰富的想象力和创造能力。其中以高二(4)班的《辉煌》和高一(12)班的《我爱我家》尤为突出,获得了本次比赛的一等奖,其余有3个班级和5个班级分别获得二、三等奖。 此次的"水果拼盘创意比赛",给同学们在紧张的学习中带来了一次难得放松的机会,同学们也尽情地施展出自己的制作才艺。一盘实在的拼盘却寄寓了同学们对老师对亲朋好友的新年祝福和对未来美好的希望和憧憬,如此的用心也为今年的新年晚会增色不少。 高级中学团委
杨松青 水果拼盘掠影: | ||||||
| | ||||||
| ||||||