|
|
|
<%
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
 |
大赛赛程 |
 |
|
本次大赛的赛程，共分三个阶段：
1、分赛区：
分赛区，亦即本次大赛的选拔赛，既可由各省、自治区、直辖市独立构成分赛区。
各分赛区组委会于2008年6月15日以前,将各分赛区总决赛选拔出的各组前3名，共12名选手和1组组合报送组委会，另在第七届大赛中获二等奖以上的选手，通过各分赛区组委会同意，可直接报送大赛组委会。
2、复赛、半决赛、决赛在温州举行：
各分赛区统一组织参加复赛的选手和指导教师，于 2008年7月12日报到（具体日程安排另行通知）。
凡参加复赛的选手在复赛、决赛期间，由组委会为其统一办理人身安全保险。
复赛四天，半决赛三天，决赛及颁奖晚会为一天。
3、颁奖晚会
2008年7月22日在温州举行 |
|
|
|
 |
<%
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
%>
|
|
|
|
|
|
|
