|
| |
青年绿色志愿者注册，请按这里 |
团员意识教育专题
|
|
| |
<%Set Conn = Server.CreateObject("ADODB.Connection")
Set rs= Server.CreateObject("ADODB.Recordset")
DnsText="DRIVER={Microsoft Access Driver (*.mdb)}; "
DnsText=DnsText & "DBQ=" & server.mappath("huanbao.mdb")
' Conn.Open "huanbao"
sql= "SELECT * from dc where wt ='33'"
'rs.Open sql,conn
Rs.Open Sql, DnsText,1,3
if rs.eof then
conn.Execute( "insert into dc (wt) values ('33')")
zrs=0
da1=0
da2=0
da3=0
else
da1=rs("da1")
da2=rs("da2")
da3=rs("da3")
end if
zrs=da1+da2+da3
if zrs>0 then
da1b=da1/zrs
da2b=da2/zrs
da3b=da3/zrs
else
da1b=0
da2b=0
da3b=0
end if
rs.close
'conn.close
%>
|
|
|
保护环境
从身边做起 |
1.使用布袋
2.尽量乘坐公共汽车
3.不要过分追求穿着的时尚
4.不进入自然保护核心区
5.昌步行，骑单车
6.不使用非降解塑料餐盒
7.不燃放烟花爆竹
8.双面使用纸张
9.节约粮食
10.拒绝使用一次性物品 更多... |
| |
已灭绝的
野生动物
|
| |
|
|
环境前沿 