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

              
            '增加统计信息到字典
            dic.add "info", formatNumber(pSize,0)&"字/页 "&rid&"/"&tPg&"页 共"&_
            formatNumber(aStrLen,0)&"字"
           
            dic.add "cnt", mid(aStr,cPg,pSize) '增加文章内容到字典
        set fAtPgnt=dic
        set dic=nothing
    end function 'shawl.qiu code'
%>