最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
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