林雨其蒙吧 关注:4贴子:141
  • 0回复贴,共1

记录集重新编号

只看楼主收藏回复

<div id="newslist">
  <ul>
  <%
    set RsPic=server.createobject("adodb.recordset")
    sql="select  * from Announce  ORDER BY taxis DESC"
    RsPic.open sql,conn,1,1
    if RsPic.eof or RsPic.bof then
    response.write "当前没有新闻动态"
    end if
dim page_size,page_no,total,page_total
page_size=3
if request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
end if
total=RsPic.recordcount
RsPic.pagesize=page_size
page_total=RsPic.pagecount
RsPic.absolutepage=page_no
dim i
i=page_size
k=0
num=0
    do while not RsPic.eof and i>0
k=k+1
i=i-1
num=(page_no-1)*RsPic.pagesize+k
%>
    <li><%=num%>·<A href="news_view.asp?id=<%=RsPic("id")%>" target="_blank"><%=strvalue(trim(RsPic("Title")),50)%></A> <font color="#cccccc">|<%=RsPic("Time")%></font></li>
<% RsPic.movenext

    loop
    RsPic.CLOSE
    SET RsPic=Nothing
%>                
  </ul>
</div></td>
  </tr>
  <tr><td align="center">共有 <span style="color:#FF0000"><%=total%>  </span>条新闻 ,分为<span style="color:#FF0000"><%=page_total%></span>页 ,
<%if page_no>1 then%>
<a href="?act=<%=act%>&page_no=<%=page_no-1%>">上一页</a>,
<%end if%>
<%if page_no<page_total then%>
<a href="?act=<%=act%>&page_no=<%=page_no+1%>">下一页 </a>,
<%end if%>
当前为第<span style="color:#FF0000"><%=page_no%></span>页</td></tr>
</table>
  </td>
  <td width="180" style="background:url(images/r_bg.jpg) no-repeat;">
    <!--#include file="right.asp"-->
  </td>


IP属地:广西1楼2007-08-20 11:25回复