%
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
%>
|
|
|
| |||||||||||||
|
城市里的鸟类 如果不算那些“外来户”,在城里常住的鸟儿越来越少。也许城市周围的鸟越来越多,这不难理解,因为它们被城里的污染、噪音和老鼠驱赶到郊外。可是在乡村,它们也受到农业机器和农药的威胁,所以鸟儿又只好回到城郊的村庄或者城里不多的小片绿地(公园),就和人一样,可真巧了!
如何喂鸟
如果你真的喜欢鸟,希望它们自由自在而且身临其境强力壮,那就不要让它们养成乞食的坏习惯;如果你在温暖的季节也给它们喂食,就会使它们逐渐丧失觅食的本性和能力。要知道,动物越受磨练,它们就越坚毅,生存能力就越强。 但是,在寒冷的季节,城市里的鸟可真有难处了。当一切都被大雪覆盖,或者泥土被冻得梆梆硬的时候,鸟儿们就需要你的帮助了。这时,你可以撒一些粮食在地上,或者挂一些碎肉在树上;此外还可以请它们喝一些水,因为鸟也会出现脱水现象;你可以把冰砸碎,放在容器里,融化以后给鸟喝。
如果你希望总是在同一个地点为鸟供食,这肯定是很有意思的。但你要注意,鸟的敌人可能会发现这个地方,供食品点反而会成为一个陷阱。而且,即使你喂的那些小鸟儿不会被天敌吃掉,可要是你在假期外出旅行,鸟儿的日子将会怎么过呢?
你可以采集或购买鸟食,也可以用动物油和压碎的粮食、瓜子和菜子粒做成面团。不过别忘了:鸟只吃它们喜欢吃的东西,如果你把粮食瓜子或果子核混合放在一个食槽里,肯定大部分是多余的。
水上禽类 城市公园里的湖和塘可以引来各种的鸟类,如果游人不惊吓它们的话。 鸭是人们最熟悉的。它们一边摇遥摆摆地走,一边“嘎嘎”地叫着,一边寻食着人类扔给它们的面包屑。 绿头鸭(鸳鸯)是最常见的。雄鸭的头呈深绿色,毛色闪亮;雌鸭的毛是棕色的,鸭嘴一般为黄色。 天鹅是人见人爱的宠物。这种大鸟能适应各种气候条件。天鹅自由自在地生活在比较宽阔的水面上,可是在城市公园的湖中,天鹅们就和囚徒一样(不能飞)。为什么呢?原来天鹅起飞时需要一条相当长的“跑道”,它先在水面上一边跑一边扑打翅膀,然后才能慢慢升空。因为它的体重达25公斤,它那2.35米宽的翅膀勉强能使它在空中飞翔。 白天鹅又叫大头鹅或哑鹅,它的长嘴上面有一个大肉疱,天鹅不歌唱,但生气时会嘶鸣;当它的羽毛竖了起来,你可就要当心它会啄你。
| ||||||||||||||
| | ||||||||||||||
| ||||||||||||||