足球游戏_中国足彩网¥体育资讯$

分页函数
来源:易贤网 阅读:821 次 日期:2014-08-26 11:04:12
温馨提示:易贤网小编为您整理了“分页函数”,方便广大网友查阅!

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 & """ title=""第一页"">&lt;&lt;</a>"

BackStr="<a href=""" & Str & Pages & """ title=""最后一页"">&gt;&gt;</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 & """ title=""最后一页"">[" & 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 & """ title=""最后一页"">[" & Pages & "]&gt;&gt;</a>"

End If

End If

End Function

中国足彩网信息请查看IT技术专栏

中国足彩网信息请查看网络编程
上一篇:Session
易贤网手机网站地址:分页函数
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标