亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

pages為總的頁數(shù)，page為當(dāng)前頁面，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

更多信息請(qǐng)查看IT技術(shù)專欄