<%
if not rs.eof then
tel=rs.recordcount '总共记录数
shum=20
rs.pagesize=shum '每页显示的条数
maxpage=rs.pagecount '总共页数
requestpage=clng(request("p")) '接收页码
if requestpage="" or requestpage=0 then '当前页为空或者为零时 值为1
requestpage=1
end if
'当前页大于最大页码时 当前页等于最大页码
if requestpage>maxpage then
requestpage=maxpage
end if
'向下移动相应的行数
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.eof
%>
 ','','scrollbars=yes,width=300,height=300')"><%=rs("title")%> |
[<%=rs("time")%>] |
<%
Rs.MoveNext
if rs.eof then exit for
next
Rs.Close
Set Rs=Nothing
else
response.Write("暂无新闻")
end if
%>
|
|
|