<%@ Language=VBScript%> <%'该文件需要进行调整和设置 dim typename NewsID=Request.QueryString("NewsID") Page=Request.QueryString("page") if page="" then page=1 elseif not IsNumeric(page) then response.write "" response.end end if page=int(page) if newsid="" then response.write "" response.end elseif not IsNumeric(newsid) then response.write "" response.end else conn.execute("update News Set Click=click+1 where NewsID=" & NewsID ) set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies("key")="" then rs.Source="select * from News where checkked=1 and newslevel=0 and newsid="&newsid end if if Request.cookies("key")="selfreg" then if Request.cookies("reglevel")=3 then rs.Source="select * from News where checkked=1 and newslevel<=3 and newsid="&newsid end if if Request.cookies("reglevel")=2 then rs.Source="select * from News where checkked=1 and newslevel<=2 and newsid="&newsid end if if Request.cookies("reglevel")=1 then rs.Source="select * from News where checkked=1 and newslevel<=1 and newsid="&newsid end if end if if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then rs.Source="select * from News where newsid="&newsid end if else rs.Source="select * from News where newsid="&newsid end if rs.Open rs.Source,conn,1,1 if rs.bof and rs.eof then response.write "无权限访问或无此内容,请注册登陆或联系管理员" else bigclassid=rs("bigclassid") smallclassid=rs("smallclassid") title=trim(rs("title")) title=replace(title,"
","") title1=trim(rs("title")) about=trim(rs("about")) Author=trim(rs("Author")) editor=trim(rs("editor")) Original=trim(rs("Original")) image=rs("image") UpdateTime=trim(rs("UpdateTime")) News_Content=rs("Content") SpecialID=rs("SpecialID") SpecialID2=rs("SpecialID2") click=rs("click") EnCode=trim(rs("EnCode")) typeid=rs("typeid") titletype=rs("titletype") titlesize=rs("titlesize") titlecolor=rs("titlecolor") titleface=rs("titleface") if titlesize=0 then size="18px" else if titlesize=1 then size="8px" else if titlesize=2 then size="10px" else if titlesize=3 then size="12px" else if titlesize=4 then size="14px" else if titlesize=5 then size="18px" else if titlesize=6 then size="24px" else if titlesize=7 then size="36px" end if end if end if end if end if end if end if end if rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type where typeID=" & typeID rs.Open rs.Source,conn,1,1 typename=rs("typename") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from bigclass Where BigClassid=" & BigClassid rs.Open rs.Source,conn,1,1 bigclassname=rs("bigclassname") rs.close set rs=nothing if smallclassid<>"" then set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from smallclass Where smallClassid=" & smallClassid rs.Open rs.Source,conn,1,1 smallclassname=rs("smallclassname") rs.close set rs=nothing end if %> <%=title%><%if smallclassid<>"" then%>_<%=SmallClassName%><%end if%>_<%=BigClassName%>_<%=typename%>_<%=jjgn%>
倡 议 书

    重庆东北边陲的城口县,有一个神奇美丽的国家级自然保护区——大巴山。这里八百里山川,封闭而原始,在茂密的森林里,生息着大量的珍稀、濒危动物:金雕盘旋山野,金钱豹卧伏林中,林麝、斑羚游走溪边,红腹锦鸡觅食于草丛。
然而,这些可爱的动物却面临着严重的生存威胁,受伤的鸟儿、生病的猕猴……正遭受着病痛的折磨。由于经费极度匮乏,缺少必要的救治场所及药品、器械和实验、化验等设备,他们只能在遮阳网搭成的大棚里得到简单的救护,因救护不力而时有野生动物死亡。看着这些美丽的动物,凝视它们求助的眼神,听着它们哀伤的鸣叫,我们怎么能无动于衷?建立大巴山野生动物救护站已经迫在眉睫。

    地球是所有生灵的家园。由于环境的恶化,由于人为的伤害,有的野生动物朋友已悄然从我们身边消失。近100年,物种灭绝的速度已超过了自然灭绝速度的100倍。每天,都有100多种生物从地球上消失。

    环境是人类生存的基础。尊重自然,保护自然,与自然和谐相处是构建和谐社会的必然要求和重要内容,也是公民基本道德规范的重要内容。关心万物生灵,是人类义不容辞的责任;关心万物生灵,就是关心人类自己。让我们伸出援助之手,看一场环保电影,买一套大巴山野生动物书签,收售家里、办公室的废旧物品……为建立大巴山野生动物救护站尽一份微力。

    一个人是一片绿叶,挽起手来,就是茂密的森林;一个人是一条小溪,汇聚起来,就是奔腾的江河。我们捐助的经费积少成多,一定能够使大巴山野生动物的救护条件得到较大改善,野生动物们一定能更加健康、自由地繁衍生息。

    “只要人人都献出一点爱,世界将变成美好的明天。”积极投入捐助活动吧,你会体味到奉献的快乐;你会更具有可贵的爱心;你将进一步享受到人与自然和谐相处带给你的那份慰籍和愉悦。

    伸出你的手,献出你的爱——大巴山野生动物在呼唤;人类绿色文明在呼唤;重庆美好未来在呼唤!

<%end if%><%end if%>