|
<% set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where myclass=" & request("class") & " or myclass is null order by rank desc",conn,1,1
if rs.eof then
else
call bookfor()
end if
sub bookfor()
call rspage(rs,30)
for i=1 to rs.PageSize
if rs.eof then
exit for
end if
recordcount00=rs.recordcount
%>
| · "><%=rs("title")%> |
<%=year(rs("time"))%>/<%=month(rs("time"))%>/<%=day(rs("time"))%> |
点击<%=rs("call_num")%>次 |
|
<%
rs.movenext
next
rs.close
%>
|
| 总记录数:<%=recordcount00%> 每页<%=rs.PageSize%>条 共<%=pagecount%>页 第<%=page%>页
<%if pagecount=1 then%>
首页 上一页 下一页 尾页
<%end if%>
<% if page=pagecount then
if page=1 then
%>
<%
else
lastpage=page-1
%>
首页 上一页 下一页 尾页
<%
end if
end if
if page
首页 上一页 下一页 尾页
<%
else
lastpage=page-1
nextpage=page+1
%>
首页 上一页 下一页 尾页
<%
end if
end if
end sub
%> |
|
|
|
|