所属类别：技术博客

文章作者：踏浪飞鸿

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

<%'**************************************************************************************'**'*文件说明部分*'**'****************************************************************************************'----------------------------------------------------------------------------------------'该文件中实现的函数:'GetPage(Max)获取页码,返回类型:int'ShowPage(intCurPage,intPageCount,intPageSize,intRecordCount)显示导航条,无返回值'----------------------------------------------------------------------------------------'使用实例:把以下*号中的代码放到ASP文件中的body之间'----------------------------------------------------------------------------------------'*'*<%'*intPageSize=5'页面大小:rs.pagesize'*intPageCount=6'页面数量:rs.pagecount'*intRecordCount=29'总共记录数量:rs.recordcount'*intCurPage=GetPage(intPageCount)'获取当前页:rs.absolutepage'*callshowpage(intCurPage,intPageCount,intPageSize,intRecordCount)'显示导航条'*%>''----------------------------------------------------------------------------------------'****************************************************************************************'**'*函数实现部分*'**'****************************************************************************************%>functionviewPage(ipage){document.frmPage.m_page.value=ipage;document.frmPage.submit();}<%'----------------------------------------------------------------------------------------'函数名称:GetPage(maxPageNum)'函数功能:获取m_page并且转为正确int类型页码'参数列表:Max最大限制页码,如:rs.pagesize'程序设计:覃雁禄qylmail@163.com'设计日期:2006-9-20'----------------------------------------------------------------------------------------functionGetPage(Max)Page=Request("m_page")ifPage=""thenPage=1elseifnotIsNumeric(Page)thenPage=1elsePage=Cint(Page)endififPage<1thenPage=1endififPage>MaxthenPage=MaxendifGetPage=Pageendfunction'----------------------------------------------------------------------------------------'函数名称:ShowPage(p_Current,p_Total,p_PageSize,r_Total)'函数功能:显示分页导航条'参数列表:'p_Total:总页数'p_Current:当前页'p_PageSize:每页记录数'r_Total:总记录数'程序设计:覃雁禄qylmail@163.com'设计日期:2006-9-20'调用方法:'将该页代码包含到要调用的页面.添加名称为"frmPage"的窗体,'在窗体中调用ShowPage(p_Current,p_Total,p_PageSize,r_Total).'要传递的其它参数可以用该形式传递:'实例如下:'''<%CallShowPage(p_Current,p_Total,p_PageSize,r_Total)%>''备注:'为方便添加其它参数,该函数不提供窗体,'所以调用时需放在一个窗体里,并且将窗体名称命名为:frmPage.'------------------------------------------------------------------------------------------SubShowPage(p_Current,p_Total,p_PageSize,r_Total)response.Write"总计"&r_Total&"条记录"response.Write"页次"&p_Current&"/"&p_Total&""response.Write"每页"&p_PageSize&"条"ifp_Total>1then'当记录大于一页时ifp_Current=1then'当前记录为第一页response.Write"首页上页下页"response.Write"尾页"elseifp_Current=p_Totalthen'当前记录为最后一页response.Write"首页"response.Write"上页下页尾页"elseresponse.Write"首页上页"response.Write"下页尾页"endifelse'当记录只有一页时response.Write"首页上页下页尾页"endifresponse.Write""response.Write""EndSub%>发表于 @ 2006年09月20日 11:27:00评论(loading...AddFeedbackCountStack("1253014"))编辑新一篇:SQL日期和时间函数旧一篇:CRM常用词汇大全

....