ASP数据岛操作类

单元格独立网络（itemStyle）允许对每一个单元格进行个性化设置，让每个单元格都焕发出独特的光彩。表头是否显示排序功能（HeadSort）的设置，让使用者能够更加方便地对数据进行排序操作。

页大小（PageSize）的设置，让数据得以分页展示，便于使用者查看。是否分页（AllowPageing）的设定，让数据得以更好地管理。页数风格（PageingStyle）为分页提供了美观的展示方式。

TBGrid类还包含了自定义单元项（Templates）、当前页（CurPage）、页面开始运行时间（PageStart）等特性，使得这个类更加强大、灵活。

```vbscript

Class TableRenderer

Private Sub InitTable()

' 设置字段和记录数（此处代码被注释掉，可能不需要）

' 如果Columns集合为空，则遍历数据源并添加到Columns中

If Columns.Count = 0 Then

For i = 0 To DataSource.Fields.Count - 1

Columns.Add DataSource.Fields(i).Name, DataSource.Fields(i).Name

Next

End If

' 设置默认样式

If IsEmpty(Style) And IsEmpty(NormalStyle) Then

DefaultStyle = 1

Else

DefaultStyle = Style

End If

' 设置当前页码和页面大小等参数

CurPage = CInt(Request.QueryString("page"))

If CurPage = "" Then CurPage = 1 End If

If PageSize = Empty Then PageSize = 10 End If

' 根据默认样式设置其他样式参数

Select Case DefaultStyle

Case 1

Style = "align=center border=0 cellpadding=4 cellspacing=1 bgcolor=''"

Alternate = 1

HeadStyle = "Height=25 style=""background-color:006699;color:ffffff"""

AlternateStyle = "bgColor=ffffff height=25"

NormalStyle = "height=25 bgcolor=f5f5f5"

AllowPageing = True

tbGrid1.PageingStyle = "bgcolor='f5f5f5' align='right'"

Case Else ' 其他样式处理...

End Select

End Sub

' 添加列和模板

Public Sub AddTemplate(ByVal ColumnName, ByVal Template)