分页代码

asp分页代码，asp代码，asp通用分页代码，asp分页代码大全，asp，分页代码

<%



sub pageset_rs(rs,sqlstr,i,pageshow)

set rs=server.CreateObject("adodb.recordset")

rs.open sqlstr,conn,1,1

PageUrl=Request.ServerVariables("PATH_INFO") '得到当前页面地址

if pageadd<>"" then

PageUrl=PageUrl&pageadd

PageUrl=PageUrl&"page="

else

PageUrl=PageUrl&"?page="

end if

page=int(request.QueryString ("page"))

if page<=0 then page=1

if page="" then page=1

If rs.EOF then

'Response.write "<center>" & "暂时没有该栏目的任何数据信息!!"&"</center>"

Else

TotalRecords = rs.recordcount

rs.PageSize= i

pagecount=rs.PageCount

TotalPages = cInt(rs.pagecount)

rs.absolutepage=Page

End If



if TotalRecords="" then TotalRecords=0

if TotalPages=1 then

pageshow="<center>共"&TotalRecords&"记录</center>"

else

if TotalPages>1 and page=1 then

pageshow="<center>共"&TotalRecords&"记录，现第"&page&"页，每页"&i&"条<br>"

pageshow=pageshow&"<a href="&pageurl&page+1&acts&">下一页</a></center>"

end if



if TotalPages>1 and page>1 and page<>TotalPages then

pageshow="<center>共"&TotalRecords&"记录，现第"&page&"页，每页"&i&"条<br>"

pageshow=pageshow&"<a href="&pageurl&page-1&acts&">上一页</a> "

pageshow=pageshow&"<a href="&pageurl&page+1&acts&">下一页</a></center>"

end if



if TotalPages>1 and page>1 and page=TotalPages then

pageshow="<center>共"&TotalRecords&"记录，现第"&page&"页，每页"&i&"条<br>"

pageshow=pageshow&"<a href="&pageurl&page-1&acts&">上一页</a></center>"

end if

end if

end sub

%>