asp分页程序经典的分页类

 '==============================
 '函 数 名：ShowPageCode
 '作    用：显示页码
 '参    数：链接PageUrl，当前页Nows，记录数AllCount，每页数量Sizes，总页数AllPage
 '==============================
 Public Function ShowPageCode(PageUrl,Nows,AllCount,Sizes,AllPage)
  If Nows>1 Then
   Response.Write("第一页")
   Response.Write(" ")
   Response.Write("上一页")
  Else
   Response.Write("第一页")
   Response.Write(" ")
   Response.Write("上一页")
  End If
  Response.Write(" ")
  If AllPage>Nows Then
   Response.Write("下一页")
   Response.Write(" ")
   Response.Write("尾页")
  Else
   Response.Write("下一页")
   Response.Write(" ")
   Response.Write("尾页")
  End If
  Response.Write(" "&Sizes&"条/页 共"&AllPage&"页/"&AllCount&"条 当前第"&Nows&"页 ")
  Response.Write("")
  For i=1 To AllPage
   If i=Nows Then
    Response.Write("第"&i&"页")
   Else
    Response.Write("第"&i&"页")
   End If
  Next
       Response.Write("")
 End Function