ASP翻页函数

原创 2006年06月04日 13:26:00

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 使用例子
'sample call '''// call fPageCount(rs,50,1,10,url_,"#CCCCCC") //'''
'sample call '''// call fPageCount(otherRSname,50,1,10,url_,"#CCCCCC") //'''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'参数使用说明
''''''''''''''''''''''''''''''''''''''
'rs                 |     数据库表连接名
'repeatnum            |    每页显示记录总数
'startbynum            |    从多少开始循环显示
'numlink            |    显示数字链接导航数目
'url                |    翻页 URL 链接 -- 例: "asp.asp?pageview="
'visitedlinkcolor    |    当前链接页号或没有链接页号的链接颜色
'''''''''''''''''''''
'全例: call fPageCount(rs,50,1,10,"asp.asp?pageview=","#CCCCCC")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'翻页输入框使用例子
'''''''''''''''''''
'<form NAME="formT" METHOD="get" ACTION="">
     '<%
         'if rqqcid_<>"" then
                 'response.write "<input TYPE='hidden' NAME='classid' VALUE="&rqqcid_&">"
         'end if
         'if rqqncid_<>"" then
                 'response.write "<input TYPE='hidden' NAME='nclassid' VALUE="&rqqncid_&">"
         'end if
     '%'>
     '<div CLASS="center">
         '<% call fPageCount(rs,50,1,10,"class.asp?classid="&rqqcid_&"&nclassid="&rqqncid_&"&pageview=","#CCCCCC")%'>
     '</div>
'</form>
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function fPageCount(rs,repeatnum,startbynum,numlink,url,visitedlinkcolor)
    toF_="首页"
     toP10_=" 上十"
     toP1_=" 上一"
     toN1_=" 下一"
     toN10_=" 下十"
     toL_="尾页"
    
     if not rs.eof  then
             rrc_=rs.recordcount
     end if

    if (not rs.eof or not rs.bof) and rrc_>repeatnum then '记录总数大于每页总数才显示分页链接
        
             pageview=CInt(Request("pageview"))  '读取 URL 页号
             rs.PageSize=repeatnum '定义每页显示记录数
        
         If pageview<=0 Then pageview=1 '如果 pageview 小于或等于0, 返回值1
             If pageview>rs.PageCount Then pageview=rs.PageCount ' 如果 pageview 大于分页总数, 返回分页末页值 
             rs.AbsolutePage=pageview '定义当前页码
            
             cPageNo=rs.AbsolutePage
             tpagecount=rs.pagecount
        
             If cPageNo<1 Then cPageNo=1  '如果页数小于 1, 默认为 1; 当前页, cPageNo = Current Page NO.
             If tPageCount<1 Then tPageCount=1 
             If cPageNo>tPageCount Then cPageNo=tPageCount  
                 Dim NaviLength 
                 NaviLength=numlink ' 显示数字链接数
                 Dim StartPage,EndPage ' 定义当前页, 开始页, 结束页
                 StartPage=(cPageNo/NaviLength)*NaviLength+1  '为开始页赋值
                
             if pageview=1 then '判断是否首页, 如果是首页不添加链接,反之添加.
                 Response.Write "<font color="&visitedlinkcolor&">"&toF_&"</font> "
             Else 
                 Response.Write "<a href="&url&"1>"&toF_&"</a> "
             End If  
            
             If (cPageNo Mod NaviLength)=0 Then StartPage=StartPage-NaviLength  
                 EndPage=StartPage+NaviLength-1                 
             If EndPage>tPageCount Then EndPage=tPageCount  
    
             If StartPage>1 Then '向后移动一分页, 十页为一分页, 并且以 1, 11, 21... 为每页的开始篇数
                 Response.Write "<a href="&url&(cPageNo-(cPageNo mod 10)-NaviLength+1)&"#anchor>"&toP10_&"</a> " 
             Else 
                 Response.Write "<font color="&visitedlinkcolor&">"&toP10_&"</font> " 
             End If 
    
             If pageview <> 1 and pageview <>0 Then '后移一页
                 Response.Write "<a href="&url&(pageview-1)&"#anchor>"&toP1_&"</a> " 
             Else 
                 Response.Write "<font color="&visitedlinkcolor&">"&toP1_&"</font> " 
             End If 
    
             For startbynum=StartPage To EndPage 
                 If startbynum=cPageNo Then 
                     Response.Write "<b class=gray>"&startbynum&"</b>" 
                 Else 
                     Response.Write "<a href="&url&startbynum&"#anchor>" &startbynum& "</a>" 
                 End If 
                 If startbynum<>tPageCount Then Response.Write " "
             Next 
    
             If pageview <> rs.PageCount and pageview <>0 Then '前移一页
                 Response.Write " <a href="&url&(pageview+1)&"#anchor>"&toN1_&"</a> " 
             Else 
                 Response.Write "<font color="&visitedlinkcolor&">"&toN1_&"</font> " 
             End If 
    
             If EndPage<tpagecount Then  '向前移动一分页, 十页为一分页, 并且以 1, 11, 21 为每页的开始篇数
                 Response.Write " <a href="&url&(cPageNo-(cPageNo mod 10)+NaviLength+1)&"#anchor>"&toN10_&"</a> " 
             Else 
                 Response.Write " <font color=#CCCCCC>"&toN10_&"</font> " 
             End If 
    
             if  rs.PageCount<>pageview then '判断是否尾页
                 Response.Write "<a href="&url&rs.PageCount&"#anchor>"&toL_&"</a>" 
             Else 
                 Response.Write "<font color="&visitedlinkcolor&">"&toL_&"</font>"
             End If 
            
             response.write " 转到:<input TYPE='text' NAME=pageview class=jumpinput VALUE='' onMouseMove='this.focus();this.select();'>"
            
                     '页面信息
                     response.Write b_&sp2_&repeatnum&"篇/页"&sp2_&cPageNo&"/"&tPageCount&"页"&sp2_&"共 "&rrc_&"篇"
     elseif (not rs.eof or not rs.bof) and rrc_<=repeatnum then
             response.write "<div class=font12px>共 "&rrc_&"篇</div>"
     end if
end function
%>

【jQueryMobile】使用jQueryMobile实现滑动翻页的效果

滑动手势在移动设备是很流行的,在移动设备中滑动翻页中很常见 虽然这个功能可以在jQueryMobile中实现,但是个人与之前写的《【jQuery】论手机浏览器中拖拽动作的艰难性》(点击打开链接)中的观...
  • yongh701
  • yongh701
  • 2014年12月11日 20:19
  • 3194

微信里经常看到的滑动翻页效果,slide,翻页slide

转自:http://www.bkjia.com/HTML5/927456.html 微信里经常看到的滑动翻页效果,slide,翻页slide 上个星期我们的产品姐姐让我帮她写个...
  • chelen_jak
  • chelen_jak
  • 2015年04月29日 18:01
  • 4594

ASP项目中的公共翻页模块

在大型的ASP项目中,很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话,这样的工作即降低了工作效率,也不利于工程的模块化,不能使代码重用。因此,把翻页这样的功能模块化是很有必要的。   ...
  • tgw2000
  • tgw2000
  • 2015年01月20日 16:53
  • 140

ASP写的汉字转换UTF-8及UTF-8转GB2312

汉字转换为UTF-8 function chinese2unicode(Str)   dim i   dim Str_one   dim Str_unicode   for i=1 to l...
  • hefeng_aspnet
  • hefeng_aspnet
  • 2013年09月26日 15:29
  • 2295

asp短信接口开发经验及具体开发实现

http://www.leiyusoft.com/sms_sdk_asp.html 官网介绍及Demo下载。
  • baidu_31002735
  • baidu_31002735
  • 2015年09月02日 08:33
  • 764

ASP.NET大数据量分页技术的初步体验技巧

可以借助于GridView与AspNetPager(强大的开源分页控件)实现ASP.NET获取数据表格时的分页。 GridView分页功能较弱,分页切换速度不如AspNetPager。 两者可单独使用...
  • freeWayWalker
  • freeWayWalker
  • 2013年07月28日 18:11
  • 1736

Asp.Net 如何调用js中的函数function ?

http://bbs.csdn.net/topics/330215458 1、直接在前台调用 javascript 函数  很简单,在 head 元素之间加入 script 元素,将 ty...
  • DJ2008
  • DJ2008
  • 2013年09月28日 17:34
  • 5429

ASP远程脚本调用

远程脚本调用技术(Remote Scripting)的最大特点是:客户端脚本调用服务器脚本时无需刷新整个页面。一般情况  下,Web页面需要与服务器交互时必须提交表单数据,刷新整个页面。这不仅不利于...
  • u014739784
  • u014739784
  • 2014年04月25日 09:35
  • 381

asp 支付宝 企业版 接口 支持网银接口 ,网银直接支付

asp 支付宝 企业版 接口 支持网银接口 ,网银直接支付 只是多了一个defalutbank的参数。具体看  open.alipay.com ' 类名:AlipaySubmit ' 功能:支付宝...
  • zhangfeng1133
  • zhangfeng1133
  • 2015年08月23日 13:38
  • 2989

翻页(PHP代码函数)

//翻页(PHP代码函数) //代码来源:Monxin ./config/functions.php function MonxinDigitPage($sum,$current_page,$pag...
  • monxinmonxin0
  • monxinmonxin0
  • 2015年04月03日 13:38
  • 123
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP翻页函数
举报原因:
原因补充:

(最多只允许输入30个字)