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

上一页  [1] [2] [3] 下一页