oracle rownum分页 ASP通用文章分页函数：非记录集分页

ASP通用文章分页函数：非记录集分页  

　　说明: 本函数为文章分页 非记录集分页本函数实现将文章分页显示 并以指定长度显示每一分页本函数实现不需指定 URL 自动更替 URL本函数实现返回多个结果 为: 分页链接 文章统计信息 文章内容 由字典实现如果分页大小大于文章总大小 分页链接将为空

　　显示如:第 页 第 页 第 页 第 页 第 页 字/页 / 页 共 字正文

　　注: 显示内容的三个元素可自由变更位置

　　附注: 如果您是在查找 记录集分页函数 鄙人以前也写过一个 名为 ASP VBScript 分页函数 by Stabx 第三版 链接:  

　　shawl qiu  

　　主内容: 分页函数及调用代码linenum<%     dim rs dic    set rs=createObject( adodb recordset )        rs open select * from ctat where aid= conn        rs open select * from ctat where aid= conn         set dic=fAtPgnt(rs( content ) request queryString( apid ))            response write dic( pgnt )& <br/>             response write dic( info )& <br/>             response write dic( cnt )& <br/>         set dic=nothing        rs close    set rs=nothing     function fAtPgnt(aStr pSize rId)        ASP 通用文章分页函数(非记录集分页) 返回多个结果 字典实现 By shawl qiu                输入参数说明:    aStr 为要分页的字符串    pSize 为每页大小数字    rId 为 URL 参数 ID 默认为 apid 由函数里的 rName 变量定义        输出参数说明:    obj( pgnt ) 为文章翻页链接    obj( info ) 为文章统计信息    obj( cnt ) 为文章内容        sample call:            dim rs dic        set rs=createObject( adodb recordset )            rs open select * from ctat where aid= conn                        set dic=fAtPgnt(rs( content ) request queryString( apid ))                response write dic( pgnt )& <br/>                 response write dic( info )& <br/>                 response write dic( cnt )& <br/>             set dic=nothing                        rs close        set rs=nothing            if isNumeric(pSize)=false or len(aStr)= then exit function        if isNull(rId) or rId= or isNumeric(rId)=false then rId= 如果分页查询ID为空则 ID为 dim aStrLen 取文章总长度的变量            aStrLen=len(aStr)                智能URL字符串替换        dim rqs url rName            rqs=request ServerVariables( QUERY_STRING )            rName= apid         if rqs= then            url= ? &rName& =         elseif instr(rqs rName)<> then                url= ? &replace(rqs rName& = &rId )&rName& =         else            url= ? &replace(rqs & &rName& = &rId )& & &rName& =         end if                dim tPg 定义总页数变量            tPg=int(aStrLen/ pSize)*                     if rId< then rId= 如果分页查询ID小于 则为         if cLng(rId)>cLng(tPg) then rId=tPg 如果分页查询ID大于总页数 则为总页数                    dim cPg 定义取当前页字符起始位置变量        if rId= then cPg= else cPg=pSize*(rId )+ 读取文章的起始位置

         dim dic 字义字典变量        set dic = createObject( scripting dictionary )            if aStrLen<=pSize then 如果分页大小大于正文大小时 执行以下操作                dic add pgnt 增加页面连接到字典                                    增加统计信息到字典                dic add info formatNumber(pSize )& 字/页 &rid& / &tPg& 页 共 &_                formatNumber(aStrLen )& 字                                 dic add cnt mid(aStr ) 增加内容到字典                set fAtPgnt=dic                set dic=nothing                exit function            end if                    dim i temp temp             for i= to tPg                如果当前查询ID=i 则加入高亮CSS类                if strComp(rId i )= then temp = class= hl temp=temp& <a &url&i& &temp & >第 &i& 页</a>             next                         dic add pgnt temp 增加页面连接到字典                            增加统计信息到字典            dic add info formatNumber(pSize )& 字/页 &rid& / &tPg& 页 共 &_            formatNumber(aStrLen )& 字    

                     dic add cnt mid(aStr cPg pSize) 增加文章内容到字典        set fAtPgnt=dic        set dic=nothing    end function shawl qiu code %> lishixinzhi/Article/program/net/201311/13749