ASP编程常用代码精选集合(十三)

《ASP编程常用代码精选集合(十三)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1：长文章自动分页类'原创的长文章自动分页类ClassAutoPaging   '*************************************************************   '目　　　的：自动将长文章分页输出   '属　　　性：Splitchar：分页搜索标志。以一维数组方式输入，默认array("
","
","
","
")   '　　　　　　PagingString：要进行分页的字符串   '　　　　　　PagingSize：分页长度 

2、  '　　　　　　CurrentPage：当前输出页码   '　　　　　　DefaultRange：默认搜索分页标志范围   '　　　　　　StepRange：搜索步长   '方　　　法：getTotalPageCount()：返回总分页数   '　　　　　　OutputString：输出当前分页内容   '*************************************************************   publicSplitchar               '分页搜

3、索标志，数组   publicPagingString           '分页字符串   publicPagingSize               '页面最大长度   publicCurrentPage           '当前页码   publicDefaultRange           '默认起始范围   publicStepRange               '步长   privateTruncate               '2维数组m，n。m0=页码、m1=起始字符、m

4、2=结束字符，n=总页数   privateintStart               '开始位置   privateintLen                   '截取长度   privatetmpStr   privateRange                   '起始范围   privateSubClass_Initialize()       Splitchar=array("
","
","
","
")       PagingSize=2000    

5、   DefaultRange=1       StepRange=1       intStart=0       intEnd=0   EndSub      publicFunctiongetTotalPageCount()                       '返回总页数       iflen(PagingString)modPagingSize>0then           getTotalPageCount=int(len(PagingString)/PagingSize)+1

6、       else           getTotalPageCount=len(PagingString)/PagingSize       endif   EndFunction   publicSubOutputString       redimTruncate(2,getTotalPageCount())       FortmpI=0togetTotalPageCount()           Truncate(0,tmpI)=tmpI       Next       Fortm

7、pI=1toubound(Truncate,2)           ifTruncate(0,tmpI)=1then               Truncate(1,tmpI)=1           else               Truncate(1,tmpI)=Truncate(1,tmpI-1)+Truncate(2,tmpI-1)           endif           Range=DefaultRange           DowhileRange

8、ze               tmpStr=right(mid(PagingString,Truncate(1,tmpI),PagingSize),Range)               FortmpInt=0toubound(Splitchar)                   ifinstr(1,tmpStr,Splitchar(tmpInt))>0then                       Truncate(2,tmpI)=(P