%
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
%>
|
|
|
|
||
The colours of Australia(澳洲色彩)
The air of Australia is the cleanset of
all. The Blue 最爱澳洲的海,像在海神庇护下欣然成长的天之骄子,却干净、无瑕。澳洲的海很纯粹;海啸很明朗;海日很明媚;海风有点狂,但吹在脸上毫无痛痒,温柔,有无尽的温柔。海风轻抚起你的青丝、迎风跃舞。海鸥倚天翱翔,迎着旭日冲击一个个尖峰。在远处,天海一线,一片蔚蓝。 The Red 墨尔本是澳洲的工业中心,也是我们第一次与澳洲进行亲密接触的地方。但这里将工业区、商业区、住宅区划分得很明了。我们的homestay位于郊区。这里的环境很是幽雅,带着中式的闲情逸致。Homestay在墨尔本的Middle
Brightow。是二富区(在墨尔本,统分为3区,1区、2区、3区为住宅区。1区为二富区,2区为富人区,3区为普通区,而3区以外就是比较混乱的地方。我很不幸,住在了临近富人区的边边上,然而,这里又属于第二富区域)。这里空气出奇的清新,水龙头中拧出的水比中国的纯净水更干净,没有杂味。为什么小标题起为"红"呢?因为在Middle
Brightow,大多数的房屋都是红砖砌成的,一眼暗红。 The Green Colours 我的"colours"名为彩色。The dream
in Australia has colours。不错的,那些情情景景,令我毕生难忘,以及在澳洲英语夏令营的同学!布里斯班的南半球第一过山车,Seaworld、Movieworld…… |
|||
|
|
|||
|
版权所有:温州育英国际实验学校 制作:计算机管理中心 E-mail:
mkgzs@wzyuying.com
中国·浙江·温州市瓯海区 邮编:325014 电话:0577-86362803 传真:0577-86362372 |
|||