 |
<%
dim conn,rs,sql,iCount,iPageSize,page,maxpage
iCount=0
iPageSize=0
page=0
maxpage=0
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM [LinkInfo] WHERE [ItemClass]=2 ORDER BY [ID] "
rs.open sql,conn,1,1
if rs.eof then
%>
| 对不起，暂无记录！ |
<%
else
%>
<%
rs.PageSize =10'每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
dim tempID
tempID=(page-1)*iPageSize
for i=1 to rs.pagesize
tempID=tempID+1
%>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
|
|
<%
if iCount>iPageSize then
call PageControl(iCount,maxpage,page,"border=0 align=right"," ")
end if
%> |
|
|
|
|
