文章内容分页效果_自动手动.docVIP

?????úèY·?ò3D§1?-×??ˉ+ê??ˉ.txtéú??￡?ê?ó?à′?-óaμ?￡???2?ê?ó?à′????μ??￡?D?é￡?ê?ó?à′???μμ?￡???2?ê?ó?à′???éμ??￡°?è?￡?ê?ó?à′ì?°?μ?￡???2?ê?ó?à′é?o|μ??￡?e??￡?ê?ó?à′?íêüμ?￡???2?ê?ó?à′oaá?μ??￡????￡?ê?ó?à′?÷??μ?￡???2?ê?ó?à′×°ê?μ??￡D?è?￡?ê?ó?à′3áμíμ?￡???2?ê?ó?à′ì???μ??￡================================================= 1y3ì??￡oShowArticleContent ×÷ ó?￡o2éó?×??ˉ·?ò3·?ê???ê???????ì?μ??úèY 2? êy￡o?T ================================================= const MaxPerPage=200000 const ShowContentByPage=yes sub ShowArticleContent() dim ArticleID,strContent,CurrentPage dim ContentLen,MaxPerPage,pages,i,lngBound dim BeginPoint,EndPoint ArticleID=rs(ArticleID) strContent=rs(Content) ContentLen=len(strContent) CurrentPage=trim(request(ArticlePage)) if ShowContentByPage=No or ContentLen=200000 then response.write strContent if ShowContentByPage=Yes then response.write /pp align=center/p end if else if CurrentPage= then CurrentPage=1 else CurrentPage=Cint(CurrentPage) end if pages=ContentLen\MaxPerPage_Content if MaxPerPage_Content*pagesContentLen then pages=pages+1 end if lngBound=MaxPerPage_Content ×?′ó?ó2?·??§ if CurrentPage1 then CurrentPage=1 if CurrentPagepages then CurrentPage=pages dim lngTemp dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3 dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2 dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2 dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2 dim lngTemp5,lngTemp5_1,lngTemp5_2 dim lngTemp6,lngTemp6_1,lngTemp6_2 if CurrentPage=1 then BeginPoint=1 else BeginPoint=MaxPerPage_Content*(Current1)+1 lngTemp1_1_1=instr(BeginPoint,strContent,/table,1) lngTemp1_1_2=instr(BeginPoint,strContent,/TABLE,1) lngTemp1_1_3=instr(BeginPoint,strContent,/Table,1) if lngTemp1_1_10 then lng