以下是asp的分页,请问在php该如何写?
<%
Dim MyPageSize,MyPage
Page=int(Request.QueryString("T"))
MyPageSize = 50
If Not IsNumeric(Page) Or IsEmpty(Page) Or Page <=0 Then
MyPage=1
else
MyPage=Abs(Page)
end if set rs=server.CreateObject("ADODB.RecordSet")
Sql="select * from [QiQiBoy_Board_Disp] Order By LastModify desc"
rs.Open sql,conn,1,1
if not rs.eof then
rs.PageSize     = MyPageSize
MaxPages        = rs.PageCount
Total           = rs.RecordCount
rs.absolutepage = MyPage
end if dim i
for i = 1 to MyPageSize
if not rs.eof then
bgcolor="#ffffff"
if i mod 2 = 0 then 
bgcolor=""&HOST_BODY&""
else
bgcolor="#ffffff"
end If
%>
  <TR bgcolor="<%=bgcolor%>">
    <TD height="28"></TD>
    <TD height="28"><%=(MyPage-1)*MyPageSize+i%></TD>
    <TD height="28" style="font-size: 14px"><%if rs("BoardHot")=1 then response.write("[<font color=""#cc0000"">推荐</font>]") else response.write("") end if%><a href="come.asp?id=<%=int(rs(0))%>"><%=Topic_Filter(showstring(rs(4)))%></a></TD>
    <TD height="28"><%=int(rs(9))%></TD>
    <TD height="28"><%=int(rs(10))%></TD>
    <TD height="28"><%=showstring(rs(7))%></TD>
  </TR>
<%
else
exit for
end if
rs.movenext
next
%>
  <tr>
    <TD width="1%" height="20"></TD>
    <td colspan="5" width="99%" height="30">
<%
response.Write("共有小区数 <font color=#cc0000>"&TotalBoards&"</font> 个,&nbsp;主题数 <font color=#cc0000>"&TotalTopics&"</font> 篇,&nbsp;帖子数 <font color=#cc0000>"&TotalReplys&"</font> 篇,&nbsp;&nbsp;&nbsp;")
response.Write("[<a href=""?t=1"" title=""第一页""><<</a>] ")
if MyPage > 1 then
response.Write("[<a href=""?t="&MyPage-1&""" title=""上一页""><</a>] ")
end if
if (MyPage >= 5 and MaxPages-MyPage <1) then response.Write("[<a href=""?t="&MyPage-4&""">"&MyPage-4&"</a>] ")
if (MyPage >= 4 and MaxPages-MyPage <2) then response.Write("[<a href=""?t="&MyPage-3&""">"&MyPage-3&"</a>] ")
if MyPage >=3 then response.Write("<a href=""?t="&MyPage-2&""">["&MyPage-2&"]</a> ")
if MyPage >=2 then response.Write("<a href=""?t="&MyPage-1&""">["&MyPage-1&"]</a> ")
response.Write("[<u>"&MyPage&"</u>] ")
if MaxPages-MyPage >=1 then response.Write("[<a href=""?t="&MyPage+1&""">"&MyPage+1&"</a>] ")
if MaxPages-MyPage >=2 then response.Write("[<a href=""?t="&MyPage+2&""">"&MyPage+2&"</a>] ")
if (MyPage <3 and MaxPages-MyPage >=3) then response.Write("[<a href=""?t="&MyPage+3&""">"&MyPage+3&"</a>] ")
if (MyPage <2 and MaxPages-MyPage >=4) then response.Write("[<a href=""?t="&MyPage+4&""">"&MyPage+4&"</a>] ")
if (MyPage <1 and MaxPages-MyPage >=5) then response.Write("[<a href=""?t="&MyPage+5&""">"&MyPage+5&"</a>] ")
if MyPage < MaxPages then
response.Write("[<a href=""?t="&MyPage+1&""" title=""下一页"">></a>] ")
end if
response.Write("[<a href=""?t="&MaxPages&""" title=""最后页"">>></a>]")
%>
    </td>
  </tr>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>