ASP项目中的公共翻页模块
2019-11-30来源：http://dijiu.com
在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。&nb
在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。 设计方法： 1、调用该模块时，只需要传递记录集和每页显示的记录的条数； 2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页； 3、不要考虑文件名，程序的每次翻页都能在当前页面。 想清楚了上面3个问题，我们的公共翻页模块就可以动手了。 <% ’+++++++++++++++++++++++++++++++++++++ ’◆模块名称：公共翻页模块 ’◆文件名：TurnPage.asp ’◆传入参数：Rs_tmp(记录集),PageSize(每页显示的记录条数) ’◆输出：记录集翻页显示功能 ’+++++++++++++++++++++++++++++++++++++ ’ SubTurnPage(ByRefRs_tmp,PageSize)’Rs_tmp记录集;PageSize每页显示的记录条数; DimTotalPage’总页数 DimPageNo’当前显示的是第几页 DimRecordCount’总记录条数 Rs_tmp.PageSize=PageSize RecordCount=Rs_tmp.RecordCount TotalPage=INT(RecordCount/PageSize*-1)*-1 PageNo=Request.QueryString("PageNo") ’直接输入页数跳转； IfRequest.Form("PageNo")<>""ThenPageNo=Request.Form("PageNo") ’如果没有选择第几页，则默认显示第一页； IfPageNo=""thenPageNo=1 IfRecordCount<>0then Rs_tmp.AbsolutePage=PageNo EndIf ’获取当前文件名，使得每次翻页都在当前页面进行； DimfileName,postion fileName=Request.ServerVariables("script_name") postion=InstrRev(fileName,"/")+1 ’取得当前的文件名称，使翻页的链接指向当前文件； fileName=Mid(fileName,postion) %> 总页数：<%=TotalPage%> 页 当前第<%=PageNo%>页 <%IfRecordCount=0orTotalPage=1Then Response.Write"首页前页后页末页" Else%> ?pageno=1">首页 <%IfPageNo-1=0Then Response.Write"前页" Else%> ?pageno=<%=pageno-1%>">前页 <%EndIf IfPageNo+1>TotalPageThen Response.Write"后页" Else%> ?pageno=<%=pageno+1%>">后页 <%EndIf%> ?pageno=<%=totalpage%>">末页 <%EndIf%> 转到第 <%IfTotalPage=1Then%> <%Else%> <%EndIf%>页 <%EndSub%> 当然，大家可以把翻页的链接做成图片按钮，这样的话也面就更加美观了。 调用方法: 1、在程序开始或要使用翻页的地方包含翻页模块文件； 2、定义变量：RowCount，每页显示的记录条数 3、调用翻页过程：CallTurnPage(记录集,RowCount) 4、在DoWhile循环输出记录集的条件中加上"RowCount>0"条件 5、在循环结束"Loop前"加上：RowCount=RowCount-1 ’----------------------------------------------------- 调用范例： 文件名：News.asp <% DimConn，Rs_News SetConn=server.CreateObject("ADODB.CONNECTION") Conn.Open"cpm
相关教程资讯
相关专题推荐
2017鸡年生肖运势专题
2017年十二生肖运程来了！新的一年开始新的历程，大家都关心自己的流年运势，财运、事业运、爱情运、健康运、每月运程、今日运势等等都决定你2017的总运程运势。看你在2016年的基础上发生了哪些 >>> 详细浏览
-
知命八字算命星座 v6.3.1安卓版
生活助手/8.28MB -
灵机八字星座算命 v9.0.7安卓版
生活助手/34.83MB -
周易算命宝 v1.1安卓版
生活助手/4.43MB
