单页分页

<!-- #include file="include/skin.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/admin_post.asp" -->


<%
'****************************************************


tit="领导致词"
call web_head(0,0,0,0,0)


dim word,cod,id,PaginationType,MaxCharPerPage
sql="select top 1 id,topic,word,cod,PaginationType,MaxCharPerPage from life where topic='领导致词' and hidden=0 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
word=rs("word")
cod=rs("cod")
PaginationType=rs("PaginationType")
MaxCharPerPage=rs("MaxCharPerPage")
if int(cod)=1 then word=code_jk(word)
%>


<table width="636" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="172" height="300" valign="top"><table width="160" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td><img src="skin/skin_1/jgjs/t_1.gif" width="172" height="256"></td>
      </tr>
      <tr>
        <td><a href="jgjs.asp"><img src="skin/skin_1/jgjs/t_2.gif" width="172" height="41" border="0"></a></td>
      </tr>
      <tr>
        <td><a href="cszn.asp"><img src="skin/skin_1/jgjs/t_3.gif" width="172" height="42" border="0"></a></td>
      </tr>
      <tr>
        <td><a href="ldzc.asp"><img src="skin/skin_1/jgjs/t_4.gif" width="172" height="42" border="0"></a></td>
      </tr>
      <tr>
        <td><a href="ryzl.asp"><img src="skin/skin_1/jgjs/t_5.gif" width="172" height="41" border="0"></a></td>
      </tr>
      <tr>
        <td height="210"> </td>
      </tr>
    </table></td>
    <td width="464"><table width="160" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td><img src="skin/skin_1/jgjs/t_6.gif" width="598" height="182"></td>
      </tr>
      <tr>
        <td><img src="skin/skin_1/jgjs/t_9.gif" width="598" height="46"></td>
      </tr>
      <tr>
        <td height="300"><table width="565" border="0" align="center" cellpadding="0" cellspacing="2">
          <tr>
            <td width="555" height="400" valign="top"><%call ArticleContent()%></</td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>


<%
rs.movenext
loop
rs.close
call web_end(0,0)
'****************************************************
'--------------自动分页代码开始-----------
sub ArticleContent()    
        select case PaginationType
        case 0    '不分页显示
                  response.write word                        
        case 1    '自动分页显示
          call AutoPagination()
        case 2    '手动分页显示
          call ManualPagination()
    end select
end sub

sub ManualPagination()   '手动分页显示
    dim ArticleID,strContent,CurrentPage,strFileName
    dim ContentLen,MaxPerPage,pages,i
    dim arrContent
        strContent=word
    ContentLen=len(strContent)
    CurrentPage=trim(request("ArticlePage"))
    if Instr(strContent,"[NextPage]")<=0 then
        response.write strContent
        response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
    else
        arrContent=split(strContent,"[NextPage]")

        pages=Ubound(arrContent)+1
        if CurrentPage="" then
            CurrentPage=1
        else
            CurrentPage=Cint(CurrentPage)
        end if
        if CurrentPage<1 then CurrentPage=1
        if CurrentPage>pages then CurrentPage=pages

        response.write arrContent(CurrentPage-1)

        response.write "</p><p align='center'><b>"
        if CurrentPage>1 then
            response.write "<a href='?ID="&ID&"&ArticlePage="&CurrentPage-1&"'>上一页</a>  "
        end if
        for i=1 to pages
            if i=CurrentPage then
                response.write "<font face=Arial color='red'>"&cstr(i)&"</font> "
            else
                response.write "<a href='?ID="&ID&"&ArticlePage="&i&"'><font face=Arial>["&i&"]</font></a> "
            end if
        next
        if CurrentPage<pages then
            response.write " <a href='?ID="&ID&"&ArticlePage="&CurrentPage+1&"'>下一页</a>"
        end if
        response.write "</b></p>"
        
    end if

end sub

sub AutoPagination() '自动分页显示
    dim ArticleID,strContent,CurrentPage,strFileName
    dim ContentLen,MaxPerPage,pages,i,lngBound
    dim BeginPoint,EndPoint
        strContent=word
      ContentLen=len(strContent)
    CurrentPage=trim(request("ArticlePage"))
    if ContentLen<=MaxCharPerPage then
        response.write strContent
        response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
    else
        if CurrentPage="" then
            CurrentPage=1
        else
            CurrentPage=Cint(CurrentPage)
        end if
        pages=ContentLen\MaxCharPerPage
        if MaxCharPerPage*pages<ContentLen then
            pages=pages+1
        end if
    lngBound=ContentLen          '最大误差范围
        if CurrentPage<1 then CurrentPage=1
        if CurrentPage>pages 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=MaxCharPerPage*(CurrentPage-1)+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_1>0 then
                lngTemp1_1=lngTemp1_1_1
            elseif lngTemp1_1_2>0 then
                lngTemp1_1=lngTemp1_1_2
            elseif lngTemp1_1_3>0 then
                lngTemp1_1=lngTemp1_1_3
            else
                lngTemp1_1=0
            end if
                            
            lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
            lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
            lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
            if lngTemp1_2_1>0 then
                lngTemp1_2=lngTemp1_2_1
            elseif lngTemp1_2_2>0 then
                lngTemp1_2=lngTemp1_2_2
            elseif lngTemp1_2_3>0 then
                lngTemp1_2=lngTemp1_2_3
            else
                lngTemp1_2=0
            end if
            
            if lngTemp1_1=0 and lngTemp1_2=0 then
                lngTemp1=BeginPoint
            else
                if lngTemp1_1>lngTemp1_2 then
                    lngtemp1=lngTemp1_2
                else
                    lngTemp1=lngTemp1_1+8
                end if
            end if

            lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
            lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
            if lngTemp2_1_1>0 then
                lngTemp2_1=lngTemp2_1_1
            elseif lngTemp2_1_2>0 then
                lngTemp2_1=lngTemp2_1_2
            else
                lngTemp2_1=0
            end if
                        
            lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
            lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
            if lngTemp2_2_1>0 then
                lngTemp2_2=lngTemp2_2_1
            elseif lngTemp2_2_2>0 then
                lngTemp2_2=lngTemp2_2_2
            else
                lngTemp2_2=0
            end if
            
            if lngTemp2_1=0 and lngTemp2_2=0 then
                lngTemp2=BeginPoint
            else
                if lngTemp2_1>lngTemp2_2 then
                    lngtemp2=lngTemp2_2
                else
                    lngTemp2=lngTemp2_1+4
                end if
            end if

            lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
            lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
            if lngTemp3_1_1>0 then
                lngTemp3_1=lngTemp3_1_1
            elseif lngTemp3_1_2>0 then
                lngTemp3_1=lngTemp3_1_2
            else
                lngTemp3_1=0
            end if
            
            lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
            lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
            if lngTemp3_2_1>0 then
                lngTemp3_2=lngTemp3_2_1
            elseif lngTemp3_2_2>0 then
                lngTemp3_2=lngTemp3_2_2
            else
                lngTemp3_2=0
            end if
                    
            if lngTemp3_1=0 and lngTemp3_2=0 then
                lngTemp3=BeginPoint
            else
                if lngTemp3_1>lngTemp3_2 then
                    lngtemp3=lngTemp3_2
                else
                    lngTemp3=lngTemp3_1+5
                end if
            end if
            
            if lngTemp1>lngTemp2 then
                lngTemp=lngTemp2
            else
                lngTemp=lngTemp1
            end if
            if lngTemp<lngTemp3 then
                lngTemp=lngTemp3
            end if

            if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
                BeginPoint=lngTemp
            else
                lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
                lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
                if lngTemp4_1_1>0 then
                    lngTemp4_1=lngTemp4_1_1
                elseif lngTemp4_1_2>0 then
                    lngTemp4_1=lngTemp4_1_2
                else
                    lngTemp4_1=0
                end if
                
                lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
                lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
                if lngTemp4_2_1>0 then
                    lngTemp4_2=lngTemp4_2_1
                elseif lngTemp4_2_2>0 then
                    lngTemp4_2=lngTemp4_2_2
                else
                    lngTemp4_2=0
                end if
                
                if lngTemp4_1=0 and lngTemp4_2=0 then
                    lngTemp4=BeginPoint
                else
                    if lngTemp4_1>lngTemp4_2 then
                        lngtemp4=lngTemp4_2
                    else
                        lngTemp4=lngTemp4_1+5
                    end if
                end if
                
                if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
                    BeginPoint=lngTemp4
                else                    
                    lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
                    lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
                    if lngTemp5_1>0 then
                        lngTemp5=lngTemp5_1
                    elseif lngTemp5_2>0 then
                        lngTemp5=lngTemp5_2
                    else
                        lngTemp5=BeginPoint
                    end if
                    
                    if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
                        BeginPoint=lngTemp5
                    else
                        lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
                        lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
                        if lngTemp6_1>0 then
                            lngTemp6=lngTemp6_1
                        elseif lngTemp6_2>0 then
                            lngTemp6=lngTemp6_2
                        else
                            lngTemp6=0
                        end if
                    
                        if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
                            BeginPoint=lngTemp6+4
                        end if
                    end if
                end if
            end if
        end if

        if CurrentPage=pages then
            EndPoint=ContentLen
        else
          EndPoint=MaxCharPerPage*CurrentPage
          if EndPoint>=ContentLen then
            EndPoint=ContentLen
          else
            lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
            lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
            lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
            if lngTemp1_1_1>0 then
                lngTemp1_1=lngTemp1_1_1
            elseif lngTemp1_1_2>0 then
                lngTemp1_1=lngTemp1_1_2
            elseif lngTemp1_1_3>0 then
                lngTemp1_1=lngTemp1_1_3
            else
                lngTemp1_1=0
            end if
                            
            lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
            lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
            lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
            if lngTemp1_2_1>0 then
                lngTemp1_2=lngTemp1_2_1
            elseif lngTemp1_2_2>0 then
                lngTemp1_2=lngTemp1_2_2
            elseif lngTemp1_2_3>0 then
                lngTemp1_2=lngTemp1_2_3
            else
                lngTemp1_2=0
            end if
            
            if lngTemp1_1=0 and lngTemp1_2=0 then
                lngTemp1=EndPoint
            else
                if lngTemp1_1>lngTemp1_2 then
                    lngtemp1=lngTemp1_2-1
                else
                    lngTemp1=lngTemp1_1+7
                end if
            end if

            lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
            lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
            if lngTemp2_1_1>0 then
                lngTemp2_1=lngTemp2_1_1
            elseif lngTemp2_1_2>0 then
                lngTemp2_1=lngTemp2_1_2
            else
                lngTemp2_1=0
            end if
                        
            lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
            lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
            if lngTemp2_2_1>0 then
                lngTemp2_2=lngTemp2_2_1
            elseif lngTemp2_2_2>0 then
                lngTemp2_2=lngTemp2_2_2
            else
                lngTemp2_2=0
            end if
            
            if lngTemp2_1=0 and lngTemp2_2=0 then
                lngTemp2=EndPoint
            else
                if lngTemp2_1>lngTemp2_2 then
                    lngTemp2=lngTemp2_2-1
                else
                    lngTemp2=lngTemp2_1+3
                end if
            end if

            lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
            lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
            if lngTemp3_1_1>0 then
                lngTemp3_1=lngTemp3_1_1
            elseif lngTemp3_1_2>0 then
                lngTemp3_1=lngTemp3_1_2
            else
                lngTemp3_1=0
            end if
            
            lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
            lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
            if lngTemp3_2_1>0 then
                lngTemp3_2=lngTemp3_2_1
            elseif lngTemp3_2_2>0 then
                lngTemp3_2=lngTemp3_2_2
            else
                lngTemp3_2=0
            end if
                    
            if lngTemp3_1=0 and lngTemp3_2=0 then
                lngTemp3=EndPoint
            else
                if lngTemp3_1>lngTemp3_2 then
                    lngtemp3=lngTemp3_2-1
                else
                    lngTemp3=lngTemp3_1+4
                end if
            end if
            
            if lngTemp1>lngTemp2 then
                lngTemp=lngTemp2
            else
                lngTemp=lngTemp1
            end if
            if lngTemp<lngTemp3 then
                lngTemp=lngTemp3
            end if

            if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
                EndPoint=lngTemp
            else
                lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
                lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
                if lngTemp4_1_1>0 then
                    lngTemp4_1=lngTemp4_1_1
                elseif lngTemp4_1_2>0 then
                    lngTemp4_1=lngTemp4_1_2
                else
                    lngTemp4_1=0
                end if
                
                lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
                lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
                if lngTemp4_2_1>0 then
                    lngTemp4_2=lngTemp4_2_1
                elseif lngTemp4_2_2>0 then
                    lngTemp4_2=lngTemp4_2_2
                else
                    lngTemp4_2=0
                end if
                
                if lngTemp4_1=0 and lngTemp4_2=0 then
                    lngTemp4=EndPoint
                else
                    if lngTemp4_1>lngTemp4_2 then
                        lngtemp4=lngTemp4_2-1
                    else
                        lngTemp4=lngTemp4_1+4
                    end if
                end if
                
                if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
                    EndPoint=lngTemp4
                else                    
                    lngTemp5_1=instr(EndPoint,strContent,"<img",1)
                    lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
                    if lngTemp5_1>0 then
                        lngTemp5=lngTemp5_1-1
                    elseif lngTemp5_2>0 then
                        lngTemp5=lngTemp5_2-1
                    else
                        lngTemp5=EndPoint
                    end if
                    
                    if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
                        EndPoint=lngTemp5
                    else
                        lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
                        lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
                        if lngTemp6_1>0 then
                            lngTemp6=lngTemp6_1+3
                        elseif lngTemp6_2>0 then
                            lngTemp6=lngTemp6_2+3
                        else
                            lngTemp6=EndPoint
                        end if
                    
                        if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
                            EndPoint=lngTemp6
                        end if
                    end if
                end if
            end if
          end if
        end if
        response.write mid(strContent,BeginPoint,EndPoint-BeginPoint)
        
        response.write "</p><p align='center'><b>"
        if CurrentPage>1 then
            response.write "<a href='"&strFileName&"?ID="&ID&"&ArticlePage="&CurrentPage-1&"'>上一页</a>  "
        end if
        for i=1 to pages
            if i=CurrentPage then
                response.write "<font face=Arial color='red'>"&cstr(i)&"</font> "
            else
                response.write "<a href='"&strFileName&"?ID="&ID&"&ArticlePage="&i&"'><font face=Arial>["&i&"]</font></a> "
            end if
        next
        if CurrentPage<pages then
            response.write " <a href='"&strFileName&"?ID="&ID&"&ArticlePage="&CurrentPage+1&"'>下一页</a>"
        end if
        response.write "</b></p>"
    end if
end sub
'--------------自动分页代码结束-----------
%>

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: