|
|
|
<%if bh="" then%>
|
<%
rs.open "select bt,id,tim from new order by id desc",conn,1,1
if not rs.eof then
pagesize = 20
rs.PageSize=pagesize
if not isnumeric(pageno) then
pageno = 1
else
pageno = cint(pageno)
end if
if pageno < 1 then pageno = 1
pagecount = rs.PageCount
reccount = rs.RecordCount
if pagecount > 0 then rs.AbsolutePage = pageno
i=1
do while not rs.EOF and i<=pagesize
%>
|
"><%=rs("bt")%> <%=rs("tim")%> |
<%
i = i + 1
rs.MoveNext
loop
end if
rs.Close
%>
上一页 |
<%=pageno%>/<%=pagecount%> |
下一页 |
|
|
<%else%>
|
|
<%= strPagetitle %> <%=oRs("tim")%> |
<%=oRs("nei")%> |
上一页:
<%rs.open "select bt,id from new where id<"&bh&" order by id desc",conn,1,1%>
"><%=left(rs("bt"),13)%>...
<%rs.close%>
下一页:
<%rs.open "select bt,id from new where id>"&bh&" order by id asc",conn,1,1%>
"><%=left(rs("bt"),13)%>
<%rs.close%> |
|
|
<%end if%> |
|
|
|