SubshowPageNav(lngCurPage,lngPageCount,ByValstrQueryString)

Response.Write"当前第"&lngCurPage&"页,共:"&lngPageCount&"页"

Dimi,j,k

IflngCurPage=1Then'如果是第一页

'如果lngPageCount小于10,则导航页最多到lngPageCount页

IflngPageCount<10Then

j=lngPageCount

Else

j=10

EndIf

Fori=2Toj

Response.Write("<ahref=""?"&strQueryString&"&p="&i&""">"&i&"</a>&nbsp;")

Next

ElseIflngCurPage=lngPageCountThen'如果是最后一页

'如果lngPageCount小于10,则导航起始从1开始

IflngPageCount<10Then

j=1

Else

j=lngPageCount-10

EndIf

Fori=jTolngPageCount-1

Response.Write("<ahref=""?"&strQueryString&"&p="&i&""">"&i&"</a>&nbsp;")

Next

Response.Write(lPageCount)

Else'如果是中间的页

IflngCurPage<=5Then

j=1

Else

j=lngCurPage-5

EndIf

IflngPageCount<=lngCurPage+5Then

k=lngPageCount

Else

k=lngCurPage+5

EndIf

Response.Write("<ahref=""?"&strQueryString&"&p="&1&""">"&"&lt;&lt;"&"</a>&nbsp;&nbsp;")

Fori=jTolngCurPage-1

Response.Write("<ahref=""?"&strQueryString&"&p="&i&""">"&i&"</a>&nbsp;")

Next

Response.Write(lngCurPage&"&nbsp;")

Fori=lngCurPage+1Tok

Response.Write("<ahref=""?"&strQueryString&"&p="&i&""">"&i&"</a>&nbsp;")

Next

Response.Write("&nbsp;<ahref=""?"&strQueryString&"&p="&lPageCount&""">"&"&gt;&gt;"&"</a>")

EndIf

EndSub

下一篇：返回执行长度的随机字符串