在ASP页面中如何简单的做到分页的效果
rs有pagesize、absolutepage、pagecount等属性
网上一搜一大把。
http://www.google.com/search?hl=zh-CN&q=asp+%E5%88%86%E9%A1%B5&lr=
<%'从这开始读数据
strSQL="Select * from web_news Order by ID Desc"
rs.open strSQL,conn,1,1
'分页显示初始化
page=GetVariable("page")
if page="" then
page=1
else
page=Cint(page)
end if
Section=GetVariable("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if
'变量赋值
intPageSize=15 '每页显示记录数
intSectionSize=5 '多少页为一段，像GOOGLE一样
PrevSectionText=" <FONT face=webdings>7 </FONT>" '上一段的链接文字
NextSectionText=" <FONT face=webdings>8 </FONT>" '下一段的链接文字
PrevPageText=" <FONT face=webdings>3 </FONT>" '上页的链接文字
NextPageText=" <FONT face=webdings>4 </FONT>" '下页的链接文字
strPageUrl="?"
rs.pagesize=intPageSize
intCount=rs.RecordCount
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
rs.AbsolutePage=page
end if
%>
<TABLE width="100%&quo
