|
|
|
<%
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
 |
大赛组委会成员 |
 |
|
- 名 誉主 任：王照华 高占祥
- 顾 问：彭珮云 陈慕华何振梁 晓 光
王定国 杨伟光 时乐濛 乔羽
赵沁平 杨培青
- 组委会主任：申 溪 中国儿童音乐学会会长
- 组委会副主任：
吴 斌 中国教育学会音乐教育专业委员会秘书长
王效恭 中国儿童音乐学会常务副会长
郭文山 人民音乐出版社党组副书记
莫蕴慧 中国教育学会音乐教育专业委员会副秘书长
- 组委会秘书长:左干 北京晨歌文化艺术有限公司总经理
- 副秘书长:方群力 中国儿童音乐学会副秘书长
|
|
|
|
 |
<%
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
%>
|
|
|
|
|
|
|
