生态空间

<% cnt=0 dnt=0 s=Request.ServerVariables("path_translated") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") cName=Server.MapPath("chy.cnt") dName=Server.MapPath("dchy.cnt") Set objCountFile = objFSO.OpenTextFile(cName,1,True) If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll) objCountFile.Close Set objCountFile=Nothing cnt=cnt+1 Set objCountFile=objFSO.CreateTextFile(cName,True) objCountFile.Write cnt objCountFile.Close Set objCountFile=Nothing if application("dntime")<=cint(hour(time())) then Set objCountFile = objFSO.OpenTextFile(dName,1,True) If Not objCountFile.AtEndOfStream Then dnt=CLng(objCountFile.ReadAll) objCountFile.Close Set objCountFile=Nothing end if application("dntime")=cint(hour(time())) dnt=dnt+1 Set objCountFile=objFSO.CreateTextFile(dName,True) objCountFile.Write dnt objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time())) k=0 i=1 y=0 Do While application("zxip"&i)<>"" if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then application("zxsj"&i)=t y=1 end if if t-application("zxsj"&i)>9 or t0 then application.lock application("zxip"&i-k)=application("zxip"&i) application("zxsj"&i-k)=application("zxsj"&i) application.unlock end if end if if k>0 then application.lock application("zxip"&i)="" application.unlock end if i=i+1 loop if y=0 then application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") application("zxsj"&i)=t else i=i-1 end if %> 生态空间


	主页　资源下载　文章精选　生态专题科学考查　留言板生态学软件


	第一章绪论	第八章生物群落的分类和排序
	第二章生物与环境	第九章生态系统的一般特征
	第三章种群及其基本特征	第十章生态系统中的能量流动
	第四章种群生活史	第十一章生态系统中的物质循环
	第五章种内与种间关系	第十二章陆地生态系统
	第六章生物群落的组成与结构	第十四章景观生态学系统
	第七章生物群落的动态	第十五章环境保护与可持续发展

最后更新： 2008年4月30日