list.asp 设计分页代码
<!--'#include file="top.asp"-->
<!--#include file="page.asp"-->
<%
if not isempty(Request.QueryString("id")) then
dim listDb,mypage
set mypage=new pageobj
set listDb = new DB
listDb.openDB
set btmrs=listDb.execRS("select * from linkfile where file_type='友情链接' order by file_id",1,2)
if Request.QueryString("type")="article" then
set rsType = listDb.execRS("SELECT * FROM articletype WHERE category_id="&Request.QueryString("id"),1,2)
if rsType("category_type")=1 then
father=rsType("category_text")
set rsSontype = listDb.execRS("SELECT * FROM articletype WHERE category_pid="&Request.QueryString("id"),1,2)
'如果为二级的栏目，取得父节点，并取得所有子节点
'如果为一级的栏目，取得所有子级别栏目
if not rsSontype.eof then
current=rsSontype("category_text")'标记当前位置
currentid=rsSontype("category_id")
else
currentid=rsType("category_id")
end if
set rs=listDb.execRS("select * from article where typeid2="¤tid&" order by id desc",1,2)
if not rs.eof then
mypage.pageInit rs,15
end if
elseif rsType("category_type")=2 then
current=rsType("category_text") '标记当前位置
currentid=rsType("category_id") '标记当前位置
set rsType = listDb.execRS("SELECT * FROM articletype WHERE category_id="&rsType("category_pid"),1,2)
if not rsType.eof then
father=rsType("category_text")
end if
set rsSontype = listDb.execRS("SELECT * FROM articletype WHERE category_pid="&rsType("category_id"),1,2)
set rs=listDb.execRS("select * from article where typeid2="¤tid&" order by id desc",1,2)
if not rs.eof then
mypage.pageInit rs,15
end if
end if
end if
end if
%>
page.asp 代码：
<%
class pageobj
dim rs
dim ipage
Private Sub Class_Initialize
set rs=server.createobject("adodb.recordset")
end sub
'页面参数初始化
public sub pageInit(myrs,psize)
set rs=myrs
rs.pagesize=psize
if isempty(request.QueryString("page")) then
ipage=0
else
ipage=clng(request.QueryString("page"))
end if
if ipage<=0 then
ipage=1
end if
if ipage>rs.pagecount then
ipage=rs.pagecount
end if
rs.absolutepage=ipage
end sub
'开始分页
public sub page(myurl)
dim newurl1,newurl2,newurl3,newurl4
'得到请求页号
if Instr(myurl,"?")<>0 then
newurl1=myurl&"&page=1"
newurl2=myurl&"&page="&cstr(ipage-1)
newurl3=myurl&"&page="&cstr(ipage+1)
newurl4=myurl&"&page="&cstr(rs.pagecount)
else
newurl1=myurl&"?page=1"
newurl2=myurl&"?page="&cstr(ipage-1)
newurl3=myurl&"?page="&cstr(ipage+1)
newurl4=myurl&"?page="&cstr(rs.pagecount)
end if
%>
<%
if ipage>1 then
%>
<a href="<%=newurl1%>" style="color:#000000; font-weight: bold;">第一页</a>
<a href="<%=newurl2%>" style="color:#000000; font-weight: bold;">上一页 </a>
<%
end if
%>
<%
if ipage<rs.pagecount then
%>
<a href="<%=newurl3%>" style="color:#000000; font-weight: bold;">下一页 </a>
<a href="<%=newurl4%>" style="color:#000000; font-weight: bold;">最后一页</a>
<%
end if
%>
<%
end sub
%>
<%
'得到总页数
public function getPagecount()
getPagecount=rs.pagecount
end function
'得到当前页号
public function getCurrentpage()
getCurrentpage=rs.absolutepage
end function
'得到总文章数
public function getRecordcount()
getRecordcount=rs.recordcount
end function
'得到单页尺寸
public function getPagesize()
getPagesize=rs.pagesize
end function
%>
<%
end class
%>
