| 标题 | 分页函数 |
| 范文 | pages为总的页数，page为当前页面，url为链接地址 Function ShowPages(Pages,Page,Url) '分面显示 Dim i,Str,FrontStr,BackStr,ShowStr,StartNum,EndNum Str=Url If Replace(Str,"?","")<>Str Then Str=Str & "&page=" Else Str=Str & "?page=" End If FrontStr="<a href=""" & Str & 1 & """第一页""><<</a>" BackStr="<a href=""" & Str & Pages & """最后一页"">>></a>" If Pages<=1 Then ShowPages="" Exit Function End If If Pages<=10 Then For i=1 To Pages If i<>Page Then ShowPages=ShowPages & "<a href=""" & Str & i & """>[" & i & "]</a> " Else ShowPages=ShowPages & "[<b>" & i & "</b>] " End If Next ShowPages=FrontStr & " " & ShowPages & " " & BackStr Exit Function End If If Pages>10 Then StartNum=Page-5 EndNum=StartNum+9 If StartNum<=0 Then StartNum=1 EndNum=StartNum+9 End If If EndNum>Pages Then EndNum=Pages StartNum=EndNum-9 End If For i=StartNum To EndNum If i<>Page Then If i=Pages Then ShowPages=ShowPages & "<a href=""" & Str & Pages & """最后一页"">[" & Pages & "]>></a>" Else ShowPages=ShowPages & "<a href=""" & Str & i & """>[" & i & "]</a> " End If Else If i=Pages Then ShowPages=ShowPages & "[<b>" & Pages & "</b>] " ShowPages=ShowPages & BackStr Else ShowPages=ShowPages & "[<b>" & i & "</b>] " End If End If Next ShowPages=FrontStr & " " & ShowPages If EndNum<Pages Then ShowPages=ShowPages & "...<a href=""" & Str & Pages & """最后一页"">[" & Pages & "]>></a>" End If End If End Function |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。