|
|
|
<%
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）大 奖（每年龄组1名，组合组1名）
2）一等奖（每年龄组3名，组合组2名）
3）二等奖（每年龄组6名，组合组3名）
凡进入半决赛的选手获三等奖，未进入半决赛的选手均获优秀奖。
|
|
|
|
 |
<%
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
%>
|
|
|
|
|
|
|
