aspÊý×Ö·ÖҳʾÀý¹²Èý¸ö

<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from ±í”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(request(”page”))>m then
page=m
end if
page=cint(page)
if not rs.eof then
rs.absolutepage=page
end if
if m>page+3 then
endpage=page+3
else
endpage=m
end if
if page>4 then
pagetitle=pagetitle & “ ” & “….”
end if
for i=page-3 to endpage
if not i<1 then
if i = page then
pagetitle=pagetitle & “ ” & “<B>[” & i & “]</B>”
else
pagetitle=pagetitle & “ ” & “[” & “<a href=userlist.asp?page=” & i & “>” & i & “<a>” & “]”
end if
end if
next
if page+3 < m then
pagetitle=pagetitle & “ ” & “….”
end if
%>
Äú¿ÉÒÔ¿´µ½,ÓÐÒ»¸ö“pagetitle”µÄ±äÁ¿£¬ÄúÖ»ÒªÓÃ
<%=pagetitle%>£¬¾Í¿ÉÒÔ°ÑËüµ÷ÓóöÀ´£¬ÊµÏÖÄúµÄЧ¹û¡£
ÁíÒ»¸ö
<%
     sql="Select * from [table] order by id desc"
     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.open sql,conn,1,1
     page=cint(request("page"))
     n=rs.RecordCount
     PageSize=10
     rs.pagesize=PageSize
     m=cint(rs.pagecount)
     if page="" then
     page=1
     elseif page<1 then
     page=1
     end if
     if cint(request("page"))>m then
     page=m
     end if