ASP通用分页类

Const SW_intVerticalView = 1 '竖排

'线的显示类型

Const SW_intShowBigBorder = 2 '粗线

Const SW_intShowSmallBorder = 1 '细线

Const SW_intShowNoBorder = 0 '无线

'显示的页数

Const SW_intShowPages = 10

'*****************************************

' 类型： 类

' 目的： 控制分页信息显示的样式

'*****************************************

Class SWStyle

'*****************************************

' 类型： 属性

' 目的： 设定背景颜色

' 输入： a_strBGColor: 背景颜色。

' 返回： 无

'*****************************************

Public Property Let BGColor(a_strBGColor)

SW_strBGColor = a_strBGColor

End Property

'*****************************************

' 类型： 属性

' 目的： 设定背景图像

' 输入： a_strBGImage: 背景图像

' 返回： 无

'*****************************************

Public Property Let BGImage(a_strBGImage)