梦想在远方

'***********************************************
'过程名：showpage
'作  用：显示“上一页 下一页”等信息
'参  数：sfilename  ----链接地址
'       totalnumber ----总数量
'       maxperpage  ----每页数量
'       page        ----当前页
'***********************************************
sub showpage(byval url,byval totalnumber,byval maxperpage,page)
  dim n, i,strTemp,strUrl
  if totalnumber mod maxperpage=0 then
      n= totalnumber \ maxperpage
    else
      n= totalnumber \ maxperpage+1
    end if
    sPage = 1 
    ePage = n
    If page < 5 and n >=5 Then
      sPage = 1
      ePage = 5
    Else
      sPage = page -2
      ePage = page + 2
    end if
    If page > n-2 Then
      sPage = n - 4 
    End If
    If sPage < 1 Then
      sPage = 1
    End If
    If ePage > n Then
      ePage = n
    End If
    str = "<style type=""text/css"">"&_
        ".pagelist{width:100%;text-align:center;line-height: 20px;}"&_
        ".pagelist li{display: inline-block;color:#ccc;min-width:14px;margin: 0 4px;font-size:12px;}"&_
        ".pagelist li a{display:inline-block;width:100%;padding:0 3px;text-decoration: none;color:rgb(66,67,62);}"&_
        ".pagelist .cur{background: #FF5722;color: #fff;}"&_
        ".pagelist .w55{width:55px}"&_
     "</style>"
     str = str & "<ul class=""pagelist"">"
     If page > 1 Then
       str = str & "<li><a href="""&url&"page="& page-1 &""">< Prev</a></li>"
     else
       str = str & "<li>< Prev</li>"
     End If
     If sPage > 1 Then
       str = str & "<li><a href="""&url&"page=1"">1...</a></li>"
     End If
     For i = sPage To ePage
       If i = page Then
        str = str & "<li><a href=""javascript:void(0)"" class=""cur"">"& page &"</a></li>"
       Else 
        str = str & "<li><a href="""&url&"page="& i &""">"& i &"</a></li>"
       End If
     Next
     If ePage < n Then
       str = str & "<li><a href="""&url&"page="& n &""">..."& n &"</a></li>"
     End If
     if page < n then
       str = str & "<li><a href="""&url&"page="& page+1 &""">Next ></a></li>"
     Else
       str = str & "<li>Next ></li>"
     end if
     str = str & "</ul>"
  response.write str
end sub