首页 >> 大赛规程

<% 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("") end function %> 大赛艺委会名单   艺委会主任：郭兰英 秦咏诚 艺委会副主任：李华德 李幼容 晓 丹 龚耀年 艺委会委员：瞿希贤 秋 里 阎 肃 谷建芬 李光曦　金 波 潘振声 于淑珍 孟庆云　孟 玲 铁 源 邹文琴 韩芝萍　秦植国 王效恭 邵紫绶 李众 于仲方 罗秦川 周晓峰 魏德泮 ") 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("") if r<>n then response.Write("") else 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 (" ") response.Write(""&r&"") response.write (" | ") response.Write ""&r&"" response.write (" |