<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,1,1
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page") 'page值为承受值
rs.PageSize = 2 '每页显示纪录数
if Not IsEmpty(page) then '假如page已初始化...
if Not IsNumeric(page) then '判别page值是不是为数字
page=1
else
Page = cint(page) '吸收page并化为数字型赋给page变量
end if
if Page > rs.PageCount then '假如吸收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置以后显示页等于最初页
elseif Page <= 0 then '假如page小于等于0
rs.AbsolutePage = 1 '设置以后显示页等于第一页
else
rs.AbsolutePage = Page '假如大于零,显示以后页等于吸收的页数
end if
else
rs.AbsolutePage=1
end if
Page = rs.AbsolutePage%>
<%
For i = 1 to rs.PageSize '使用for next 轮回顺次读出以后页的纪录
if rs.EOF then
Exit For
end if
response.write("文章题目是:"& rs("cn_title"))
response.write("<br>文章作者是:"& rs("cn_author"))
response.write("<br>文章到场工夫是:"& rs("cn_time"))
response.write("<br>文章内容是:"& rs("cn_content"))
response.write("<hr>")
rs.MoveNext
Next
%>