一种asp分页方法

最新推荐文章于 2024-10-16 17:36:30 发布

sykpboy

最新推荐文章于 2024-10-16 17:36:30 发布

阅读量637

点赞数

分类专栏： asp & COM 文章标签： asp vbscript sql html input file

本文链接：https://blog.csdn.net/sykpboy/article/details/338714

版权

asp & COM 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<%
dim WebPageSize,Page,Sql,Info,PageDis,ClassID,i,Dis

webPageSize=10 '每页显示的信息数量

'---------查表语句------------
sql = "select * from topic"
set Info=Server.CreateObject("adodb.recordset")
Info.open sql,conn,1,1
'-------查表语句结束----------

'----------分页语句------------
page=IntSql(request("page"))
If isempty(page) then
page=1
end if

Info.PageSize=webPageSize
If Info.recordcount>0 then
If page<1 or (page-1)*Info.pagesize>=Info.recordcount then
page=1
End If
Info.absolutepage=cint(page)
end If
'--------分页语句结束----------

'--------显示记录内容----------
If Info.Eof or Info.Bof Then
Dis "资料整理中！"
Else
For i=1 to webPageSize
  Dis = Dis & Info("ID")&"<BR>" '显示数据内容
  Info.MoveNext
  If Info.EOF Then Exit For
Next
End If
'---------记录内容结束---------

'--------显示的分页信息--------
PageDis = "<Form method='Get' ction='?ClassID="&ClassID&"'>"
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&page&"'>刷新</a> "

If Info.Pagecount = 0 then
PageDis = PageDis & "首页 上一页 下一页 末页 页次0/0页"
ElseIf Info.Pagecount = 1 then
PageDis = PageDis & "首页 上一页 下一页 末页 页次1/1页"
ElseIf Page = 1 then
PageDis = PageDis & "首页 "
PageDis = PageDis & "上一页 "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&Page+1&"'>下一页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&Info.PageCount&"'>末页</a> "
PageDis = PageDis & "页次"&Page&"/"&Info.PageCount&"页"
ElseIf Info.pageCount=cint(page) then
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page=1'>首页</a> "
PageDis = PageDis & "<a href='?ClsaaID="&ClassID&"&Page="&Page-1&"'>上一页</a> "
PageDis = PageDis & "下一页 "
PageDis = PageDis & "末页 "
PageDis = PageDis & "页次"&Page&"/"&Info.PageCount&"页"
Else
PageDis = PageDis & "<a herf='?ClassID="&ClassID&"&Page=1'>首页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&page="&Page-1&"'>上一页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&page="&Page+1&"'>下一页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&Info.PageCount&"'>末页</a> "
PageDis = PageDis & "页次"&Page&"/"&Info.PageCount&"页"
End If

PageDis = PageDis & "  共 "&Info.RecordCount&" 条记录 "
PageDis = PageDis & "第 <input type='text' name='page' size='2' value='"&page&"'> 页"
PageDis = PageDis & "<input type='hidden' Name='ClassID' value='"&ClassID&"'></Form>"

'--------分页信息结束-----------

<%
'---调用数据内容---
Response.write Dis
'---调用分页代码---
Response.write PageDis
%>