ASP数据岛操作类(8)

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