一聚教程网:一个值得你收藏的教程网站

热门教程

asp分页程序经典的分页类

时间:2022-07-02 23:09:07 编辑:袖梨 来源:一聚教程网


 '==============================
 '函 数 名: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("")
 End Function

热门栏目