|
|
|
<%
MaxPerPage=SchoolPageNum*2
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=Request("page")
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
rs.open "select id,Schoolname,aboutSchool,MyAlbum from School order by Taxis desc",conn,1,1
if rs.eof and rs.bof then
Response.Write "
对不起,暂无任何信息!
"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
if (totalPut / MaxPerPage)>1 then showpage totalput,MaxPerPage,"mxtj.Asp" end if
else
if (currentPage-1)*MaxPerPage
 |
大赛宗旨 |
 |
|
为贯彻胡锦涛总书记“要在未成年人中大力开展思想道德教育”的批示，本次大赛的宗旨是以弘扬和培育“以爱国主义为核心的团结统一、爱好和平、勤劳勇敢、自强不息” 的伟大民族精神和弘扬奥林匹克精神，为2008北京奥运增光添彩。以自下而上、层层开展的少年儿童歌曲创作与演唱活动为载体，引导全国少年儿童在歌声里了解民族精神的丰富内容，感受民族精神的伟大力量，从小树立民族自尊心与自豪感。伟大的民族精神在优美的歌声中得以传承和发扬。
|
|
|
|
 |
<%
if rs.eof then exit for
rs.movenext
next
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
response.write("")
response.write("")
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
if CurrentPage<2 then
response.write " | "
response.write " | "
else
response.write " | "
response.write " | "
end if
for r=1 to n
if r=cint(currentpage) then
response.write("")
response.Write(""&r&"")
response.write (" | ")
if r<>n then response.Write("| | ")
else
response.write("")
response.Write ""&r&""
response.write (" | ")
if r<>n then response.Write("| | ")
end if
next
if n-currentpage<1 then
response.write " | "
response.write " | "
else
response.write " | "
response.write " | "
end if
response.write ("
| ")
end function
%>
|
|
|
|
|
|
|
