欢迎来到天天文库
浏览记录
ID:15462277
大小:43.00 KB
页数:17页
时间:2018-08-03
《文章内容分页效果-自动+手动》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、文章内容分页效果-自动+手动'================================================='过程名:ShowArticleContent'作用:采用自动分页方式显示文章具体的内容'参数:无'=================================================constMaxPerPage=200000constShowContentByPage="yes"subShowArticleContent()dimArticleID,strContent,CurrentPagedimConte
2、ntLen,MaxPerPage,pages,i,lngBounddimBeginPoint,EndPointArticleID=rs("ArticleID")strContent=rs("Content")ContentLen=len(strContent)CurrentPage=trim(request("ArticlePage"))ifShowContentByPage="No"orContentLen<=200000thenresponse.writestrContentifShowContentByPage="Yes"thenresponse
3、.write"
4、entPage>pagesthenCurrentPage=pagesdimlngTempdimlngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3dimlngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2dimlngTemp3,lngTemp3_1,lngTemp3_2,lngTe
5、mp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2dimlngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2dimlngTemp5,lngTemp5_1,lngTemp5_2dimlngTemp6,lngTemp6_1,lngTemp6_2ifCurrentPage=1thenBeginPoint=1elseBeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
6、lngTemp1_1_1=instr(BeginPoint,strContent,"",1)lngTemp1_1_2=instr(BeginPoint,strContent,"",1)lngTemp1_1_3=instr(BeginPoint,strContent,"",1)iflngTemp1_1_1>0thenlngTemp1_1=lngTemp1_1_1elseiflngTemp1_1_2>0thenlngTemp1_1=lngTemp1_1_2elseiflngTemp1_1_3>0thenlng
7、Temp1_1=lngTemp1_1_3elselngTemp1_1=0endiflngTemp1_2_1=instr(BeginPoint,strContent,"
8、emp1_2_2elseiflngTemp1_2_3>0thenlngTemp1_2=lngT
此文档下载收益归作者所有