|
|
|
<%
set rs=server.createobject("adodb.recordset")
sql="select * from article1 order by tim desc"
rs.open sql,conn,1,1
if rs.eof then
response.Write(" 暂时没有记录 ")
else
rs.PageSize = 18 //pagesize属*指定了每页要显示的记录条数
Page = CLng(fix(Request("Page"))) 'string型转化为long型
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page //把页码赋给absolutepage属*从而知当前页的首条记录号
%>
<%
for o=1 to Rs.PageSize
if rs.eof or rs.bof then exit for
%>
 |
><%if len(rs("title"))>43 then
response.Write left(rs("title"),41)&"..."
else
response.Write rs("title")
end if%> |
<%=year(rs("tim"))&"-"&month(rs("tim"))&"-"&day(rs("tim"))%> |
<%
rs.movenext
next
%>
|
| <%
If Page <> 1 Then
Response.Write "第一页"
Response.Write "上一页"
else
Response.Write "第一页"
Response.Write "上一页"
End If
If Page <> rs.PageCount Then
Response.Write "下一页"
Response.Write "最后一页"
else
Response.Write "下一页"
Response.Write "最后一页"
End If
Response.write"页码：" & Page & "/" & rs.PageCount &" 每页"&rs.PageSize&"条信息"
rs.close
set rs=nothing
end if%> |
|
