<%'///////////////主体代码开始///////////////////////////////%>
<%filenames = "news.asp"
%>
<%page=request("page")
lookpage=14
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
set rs=server.createobject("adodb.recordset")
sql="select * from news order by newsid desc"
rs.open sql,conn,1,1
if rs.eof then%>
| 暂无动态 |
<%else
rs.pagesize=lookpage
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize%>
<%i=0
do while not rs.eof and (i
 |
.html"><%=rs("newstitle")%> |
<%=year(rs("addtime"))&"-"&month(rs("addtime"))&"-"&day(rs("addtime"))%> |
|
<%rs.movenext
loop
%>
|
<%
%>
第<%=page%>页/共<%=totalpage%>页
<%if page-1>0 then%>
<%else%>
<%end if%>
<%for i=1 to totalpage
if i=page then%>
<%=i%>
<%else%>
<%=i%>
<%end if
next%>
<%if page+1<=totalpage then%>
<%else%>
<%end if%> |
<%end if
rs.close
set rs=nothing%>
<%'///////////////////主体代码结束//////////////////////////%>
|
