说明:
本函数为文章分页 非记录集分页
本函数实现将文章分页显示 并以指定长度显示每一分页
本函数实现不需指定 URL 自动更替 URL
本函数实现返回多个结果 为: 分页链接文章统计信息文章内容 由字典实现
如果分页大小大于文章总大小 分页链接将为空
显示如:
第页 第页 第页 第页 第页
字/页 /页 共字
正文
注: 显示内容的三个元素可自由变更位置
附注:
如果您是在查找 记录集分页函数 鄙人以前也写过一个 名为 ASP VBScript 分页函数 by Stabx 第三版
链接:
shawlqiu
主内容: 分页函数及调用代码
linenum
<%
dim rs dic
set rs=createObject(adodbrecordset)
rsopen select * from ctat where aid=conn
rsopen select * from ctat where aid=conn
set dic=fAtPgnt(rs(content)requestqueryString(apid))
responsewrite dic(pgnt)&<br/>
responsewrite dic(info)&<br/>
responsewrite dic(cnt)&<br/>
set dic=nothing
rsclose
set rs=nothing
function fAtPgnt(aStrpSizerId)
ASP 通用文章分页函数(非记录集分页) 返回多个结果 字典实现 By shawlqiu
输入参数说明:
aStr 为要分页的字符串
pSize 为每页大小数字
rId 为 URL 参数 ID 默认为 apid 由函数里的 rName 变量定义
输出参数说明:
obj(pgnt) 为文章翻页链接
obj(info) 为文章统计信息
obj(cnt) 为文章内容
sample call:
dim rs dic
set rs=createObject(adodbrecordset)
rsopen select * from ctat where aid=conn
set dic=fAtPgnt(rs(content)requestqueryString(apid))
responsewrite dic(pgnt)&<br/>
responsewrite dic(info)&<br/>
responsewrite dic(cnt)&<br/>
set dic=nothing
rsclose
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=requestServerVariables(QUERY_STRING)
rName=apid
if rqs= then
url=?&rName&=
elseif instr(rqsrName)<> then
url=?&replace(rqsrName&=&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(scriptingdictionary)
if aStrLen<=pSize then 如果分页大小大于正文大小时 执行以下操作
dicadd pgnt 增加页面连接到字典
增加统计信息到字典
dicadd info formatNumber(pSize)&字/页 &rid&/&tPg&页 共&_
formatNumber(aStrLen)&字
dicadd 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(rIdi)= then temp= class=hl
temp=temp&<a &url&i&&temp&>第&i&页</a>
next
dicadd pgnt temp 增加页面连接到字典
增加统计信息到字典
dicadd info formatNumber(pSize)&字/页 &rid&/&tPg&页 共&_
formatNumber(aStrLen)&字
dicadd cnt mid(aStrcPgpSize) 增加文章内容到字典
set fAtPgnt=dic
set dic=nothing
end function shawlqiu code
%>
