jb51生成所有页面的效果+分页生成 -font color=red-原

原文：

自然之奇妙：生命的奥秘

自然界是一个充满生机和奇妙的世界，它孕育着无数生命。生命的奥秘是自然界最为引人入胜的奇迹之一。从微小的细菌到庞大的动物群体，每个生物都有其独特的存在方式和生命过程。让我们一起自然的奇妙，揭示生命的奥秘。

一、生命的起源

生命的起源是生物学中一个重要的研究领域。科学家们通过不断的研究和，逐渐揭示了生命起源的奥秘。生命的起源离不开遗传物质DNA的作用，它是生命的基石，承载着生命的遗传信息。

二、生物的多样性

自然界的生物多样性是惊人的。从热带雨林到荒漠，从高山到深海，每个地方都有其独特的生物群落。生物的多样性是生命得以延续和发展的重要保障，也是自然界保持平衡的关键。

三、生命的进化

生命的进化是自然界中一个壮观的过程。通过漫长的进化过程，生物逐渐适应了不同的环境，拥有了不同的特征和形态。生命的进化是自然界中不断发展和变化的重要表现。

四、生命的未来

随着人类社会的发展和科技的进步，自然界的生态平衡受到了很大的影响。我们如何保护自然，保护生命，让生命在未来继续繁荣发展，是我们需要思考和解决的问题。

揭开生命神秘面纱：自然的奥秘之旅

在生机勃勃的自然界中，孕育着无数生命，它们共同演绎着生命的奇妙乐章。从微小的生命体到庞大的动物群体，每个生物都有自己独特的生存方式和生命历程。让我们踏上这次奥秘之旅，共同自然的神秘面纱，揭开生命的奇妙面纱。

第一章：生命之源

在生物学家的领域里，生命起源的研究至关重要。科学家们通过不懈的努力和深入研究，逐渐揭示了生命起源的神秘面纱。遗传物质DNA的神奇作用在生命起源中起到了关键的角色，它是生命的基石，承载着生命的遗传密码。

第二章：自然的生物多样性画卷

自然界的生物多样性是一幅绚丽多彩的画卷。从热带雨林到荒漠，从高山到深海，每个地方都有其独特的生物群落。生物多样性是生命得以延续和发展的重要保障，也是自然界保持平衡的关键所在。

第三章：生命的演化之旅

生命的进化是一场壮丽的演化之旅。经过漫长的进化过程，生物逐渐适应了不同的环境，拥有了不同的特征和形态。这是自然界中不断发展和变化的重要体现，展现了生命的顽强和适应力。

```html

<%

dim rs

set rs = server.CreateObject("adodb.recordset")

'处理不同的请求类型

if request("type")="date" then

yearstr = request("selyear")

monstr = request("selmonth")

daystr = request("selday")

if daystr<>"" then

theymd = yearstr & "-" & monstr & "-" & daystr

sql = "select id from news where datetime like '" & themd & "%' order by datetime desc"

else

themd = yearstr & "-" & monstr & "-"

sql = "select id from news where datetime like '" & themd & "%' order by datetime desc"

end if

elseif request("type")="new" then

new = request("newcount")

if new<>"" then

new = cint(new)

sql = "select " & new & " id from news order by datetime desc"

end if

elseif request("type")="nosh" then

sql = "select id from news where shengcheng=0"

elseif request("type")="all" then

sql = "select id from news order by id desc"

end if

if sql<>"" then

if request("p")!="" then

p = cint(request("p"))

else

p = 1

end if

MaxPerPage = 100

rs.open sql, conn, 1, 1

if not rs.eof then

rs.pagesize = MaxPerPage '得到每页数

mpage = rs.pagecount '得到总页数

allshu = rs.recordcount '得到总数

do while not rs.eof

i = i + 1

call MakeHtml()

if i >= MaxPerPage then exit do

rs.movenext

loop

end if

rs.close