EndPage = 5
Else
EndPage = DataSource.PageCount
End If
End If
If CurPage>1 Then
Response.Write "<a title='首页' href='"&GetUrl("page")&"page=1'><font face=webdings>9</font></a> "
Response.Write "<a title='上页' href='"&GetUrl("page")&"page="&CurPage-1&"'><font face=webdings>3</font></a> "
Else
Response.Write "<font face=webdings>9</font> "
Response.Write "<font face=webdings>3</font> "
End If
For i=StartPage to EndPage
if i <> CurPage then
response.write("<a title='第"&i&"页' href='"&GetUrl("page")&"page="&i&"'>"&i&"</a> ")
Else
response.write("<b>"&i&"</b> ")
End if
next
If CurPage<DataSource.PageCount Then
Response.Write "<a title='下页' href='"&GetUrl("&page&")&"page="&CurPage+1&"'><font face=webdings>4</font></a> "
