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="<<"

BackStr=">>"

If Pages<=1 Then

ShowPages=""

Exit Function

End If

If Pages<=10 Then

For i=1 To Pages

If i<>Page Then

ShowPages=ShowPages & "[" & i & "] "

Else

ShowPages=ShowPages & "[" & i & "] "

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 & "[" & Pages & "]>>"

Else

ShowPages=ShowPages & "[" & i & "] "

End If

Else

If i=Pages Then

ShowPages=ShowPages & "[" & Pages & "] "

ShowPages=ShowPages & BackStr

Else

ShowPages=ShowPages & "[" & i & "] "

End If

End If

Next

ShowPages=FrontStr & " " & ShowPages

If EndNum

ShowPages=ShowPages & "...[" & Pages & "]>>"

End If

End If

End Function

更多信息请查看IT技术专栏