程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp長文章的自動分頁代碼

asp長文章的自動分頁代碼

編輯:關於ASP編程

     <% 

    sub autopage() 

    dim Maxpagelen,page,content,PageNumber,ArticleID 

    dim contentlen 

    dim BeginPoint,EndPoint 

     

    Maxpagelen=1000 

    content=ubbcode(rs("content")) 

    ArticleID=rs("ArticleID") 

    contentlen=len(content) 

    page=request.QueryString("page") 

     

    if contentlen<=Maxpagelen then 

    response.Write content 

    else 

    if page="" then 

    page=1 

    else 

    page=Cint(page) 

    end if 

     

    if pageNumber*MaxPagelen<contentlen then 

    PageNumberPageNumber=PageNumber+1 

    end if 

    PageNumber=int(contentlen/Maxpagelen)+1 

    if page<1 then page=1 

    if page>PageNumber then page=PageNumber 

    if page=1 then 

    BeginPoint=1 

    else 

    BeginPoint=MaxPagelen*(page-1)+1 

    end if 

    if page=PageNumber then 

    EndPoint=contentlen 

    else 

    EndPoint=MaxPagelen*page 

    if EndPoint>=ContentLen then 

    EndPoint=ContentLen 

    end if 

    end if 

     

    content=Mid(content,BeginPoint,EndPoint-BeginPoint) 

    response.Write content 

    response.Write"<br>" 

    response.Write"<br>" 

    response.Write"<br>" 

     

    end if 

    for i=1 to PageNumber 

    response.Write "<a href=articele.asp?ArticleID=" & ArticleID &"&page=" & i & "> "& i &"</a>" 

    Next 

    end sub 

    %>  

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved