论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > Asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

ASP中的分页导航

文章类别:Asp | 发表日期:2009-8-10 10:49:38

 '//分页导航
    '//fileName:文件名/当前页面的话,可以留空
    '//argString:分页参数例如classid=1&tid=16,分页必须的参数page不必填写
    '//pindex:当前页码
    '//datacount:总记录数
    '//pages:总页数
    '//showMsg:是否显示分页信息,参数为true/false
    '//showText:是否显示首页、上页、下页、末页的导航,参数为true/false
    '//showNumber:是否显示数字分页导航,参数为true/false
    'public function pageLink(fileName,argString,pindex,datacount,pages,showMsg,showText,showNumber)
    public function pageLink(fileName,argString,showMsg,showText,showNumber)
        '//
        if argString<>"" then argString = argString & "&"
        if not showText and not showNumber then showText=true
        '//
        if showMsg then
            Response.Write("[")
            Response.Write("第 <span style='color:red;'>" & pindex & "</span> 页")
            Response.Write("/分 <span style='color:red;'>" & pages & "</span> 页")
            Response.Write("/总 <span style='color:red;'>" & datacount & "</span> 条记录")
            Response.Write("] ")
        end if
        '//
        if showText then
            if pindex>1 then
                Response.Write("<a href='" & fileName & "?" & argString & "page=1'>[首页]</a>")
                Response.Write(" ")
                Response.Write("<a href='" & fileName & "?" & argString & "page=" & pindex - 1 & "'>[上页]</a>")
            else
                Response.Write("[首页]")
                Response.Write(" ")
                Response.Write("[上页]")
            end if
            Response.Write(" ")
            if pindex<pages then
                Response.Write("<a href='" & fileName & "?" & argString & "page=" & pindex + 1 & "'>[下页]</a>")
                Response.Write(" ")
                Response.Write("<a href='" & fileName & "?" & argString & "page=" & pages & "'>[末页]</a>")
            else
                Response.Write("[下页]")
                Response.Write(" ")
                Response.Write("[末页]")
            end if
        end if
        '//
        if showNumber then
            Response.Write("      ")
            for i = 4 to 1 step -1
                if (pindex - i)>0 then
                    Response.Write("<a href='" & fileName & "?" & argString & "page=" & pindex - i & "'>" & pindex - i & "</a>")
                    Response.Write(" ")
                end if
            next
            '//
            Response.Write("<span style='color:red;'>" & pindex & "</span>")
            '//
            for i = 1 to 4
                if (pindex + i)<=pages then
                    Response.Write(" ")
                    Response.Write("<a href='" & fileName & "?" & argString & "page=" & pindex + i & "'>" & pindex + i & "</a>")
                end if
            next
            '//
        end if
        '//
    end function
%>

上一篇:{教程}ASP中显示日期格式的函数 人气:2259
下一篇:{教程}ASP中的分页函数 人气:2506
视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058