|
|
|
<%
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
%>
|
|
|
|
|
|
|
