%
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)班 陈駉駉 对于冬天,我从小就十分向往,尤其是喜爱那白皑皑的雪花。它,美丽而又宁静,纯洁而又高雅。我盼望能亲眼看到它,哪怕是一眼也好。可是,温州的气候暖,冬天不容易下雪。因此,我的希望一次又一次地成为失望。 我期待温州能下一次雪,期待能看一切雪景。我的直觉告诉我,我一定能看到它。 前不久,我随爸爸来到了匈牙利。"爸爸,匈牙利能下雪吗?"我问爸爸,目光里充满了希望。 只见爸爸微笑着点了点头。"太好了!"一阵像歌声般的喜悦,漾进了我的心田。 于是,我开始日日夜夜地盼着下雪。 我幻想中的雪花就如芙蓉一般。正是那一天,让我看清了雪花的真正的面貌。 "姐姐!下雪了!下雪了!"弟弟蹦跳着跑进我的房间,将这个喜讯告诉我。我不敢相信自己的耳朵,是真的吗?当我确信自己没听错时,兴奋极了,因为我的美梦即将实现,我终于能亲眼目睹美丽的雪景了。 我激动地跑出门外,展现在眼前的是一片茫茫雪海。它是多么像一床白色的大幔帐,铺在天地之间啊!它在阳光的照射下,耀人眼目。房屋、树枝、马路……都披上了厚厚的银白的冬装,四周的一切都成了粉妆玉砌的世界。天空中,雪花像烟一样轻,跟银一样白,飘飘摇摇,纷纷扬扬。它们,似乎在和我说悄悄话;又如多年重逢的老友,跟我贴脸,跟我交谈,跟我握手。雪花,你是天宫派出的小天将,还是天宫树上落下的玉桂!
风,刮得令人感到刺骨,可这并不使我感到寒冷!我心灵的每个角落都是快乐。我仿佛觉得,这一场雪,是为我而下;这一场雪景,是为我而布置的。 白色,不正是纯洁的颜色么?这时,我仿佛觉得,它已落在我的心中。 (指导老师:唐昭文) | |||||
| | |||||
| |||||