%
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
%>
|
|
|
|
||
我 在 Australia 启 程 放假了什么时候才可以去梦寐以求的澳大利亚,去领略异国风光?学校通知7月7号出发。于是,在出发前的几天里,妈妈带我买了一些日用品和具有中国特色的小礼品,万事俱备。可7月7日还没到,我呆在家中坐卧不安,想像着在飞机上坐上十个小时会是怎样的感觉,心中勾画澳大利亚的异国情调与风光。 游览金矿 掩映在竹林丛中的山洞,烟雾迷蒙,岩洞内的石头上,还有一缕浮云伴你上天游峰,那是层层梯云……,这就是金矿。 感受黄金海岸 这儿是人们到澳大利亚必去的地方,因为它太美了,让人们无法拒绝它的诱惑。在这里有造型独特的摩天大楼,感受到现代城市的氛围;也可以欣赏沙滩的美丽景色,或去感受冲浪的刺激与登山的艰辛…… 乘船游悉尼 乘坐游艇在海上兜风,一边吃饭一边看美丽的景色,这在悉尼是最常见的。小时候我也想过长大也去乘着游艇,边吃饭边欣赏美景,在海上飘荡。今天,我坐上了游艇,实现了我的梦想。 |
|||
|
|
|||
|
版权所有:温州育英国际实验学校 制作:计算机管理中心 E-mail:
mkgzs@wzyuying.com
中国·浙江·温州市瓯海区 邮编:325014 电话:0577-86362803 传真:0577-86362372 |
|||