 |
| ·News |
| |
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from message where zid='英文版' order by id desc",conn,1,1
if rs.bof and rs.eof then
else
RS.PageSize=10'设置每页记录数
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
rs.CacheSize = RS.PageSize'设置最大记录数
Dim Totalcount
Totalcount =INT(RS.recordcount)
StartPageNum=1
do while StartPageNum+10<=CurPage
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
I=0
p=RS.PageSize*(Curpage-1)
do while (Not RS.Eof) and (I
| ">·<%=rs("title")%>……<%=rs("addtime")%> |
<%I=I+1
rs.movenext
loop
end if %>
| Previous page Next page |
|
|
|
|
|
