知识大全非记录集分页

Posted 2022-07-14 函数

篇首语：非淡泊无以明志，非宁静无以致远。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全非记录集分页相关的知识，希望对你有一定的参考价值。

ASP通用文章分页函数：非记录集分页 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　说明: 本函数为文章分页非记录集分页本函数实现将文章分页显示并以指定长度显示每一分页本函数实现不需指定 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 )& response write dic( info )& response write dic( cnt )& 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 )& response write dic( info )& response write dic( cnt )& 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 %> cha138/Article/program/net/201311/13749

知识大全 非记录集分页

知识大全非记录集分页