ASP数据岛操作类

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'            Programming By Smartpig                              '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Class TBGrid
    public DataSource                '数据源
    public style                     '表格总风格
    public HeadStyle                 '表头风格
    public HeadItemStyle             '表头单独风格
    public itemStyle                 '单元格独立网络
    public HeadSort      '表头是否显示排序功能
    public Columns                   '需要显示的列元素
    public Alternate                 '是否交替风格
    public AlternateStyle            '偶数行风格
    public NormalStyle               '正常风格
    public DefaultStyle              '默认风格簇
    public PageSize                  '页大小
    public AllowPageing              '是否分页
    public PageingStyle              '页数风格

    Private Templates                '自定义单元项
    private CurPage                   '当前页
    private PageStart     '页面开始运行时间

    '内容之间的关系
    'Columns.add "Field","HeadText"
    'AddTemplate("HeadText",Template)
    'itemStyle.add "Field","style:adsasd"
    'HeadSort.add "Field",True
    'DataSource(Columns.Keys(i))

    Private Sub Class_Initialize   ' 设置 Initialize 事件。
        Set itemStyle  = CreateObject("Scripting.Dictionary")
        Set HeadSort  = CreateObject("Scripting.Dictionary")
        Set HeadItemStyle = CreateObject("Scripting.Dictionary")
        Set Columns   = CreateObject("Scripting.Dictionary")
        Set Templates  = CreateObject("Scripting.Dictionary")
        Set DataSource  = CreateObject("ADODB.Recordset")
        Alternate   = 0
        PageStart = Timer
    End Sub

    Private Sub Class_Terminate   ' 设置 Terminate 事件。
        Set itemStyle  = Nothing
        Set HeadSort  = Nothing
        Set HeadItemStyle = Nothing
        Set Columns   = Nothing
        Set DataSource  = Nothing
    End Sub

    Private Sub InitTable()
        'Set FieldsNum    = DataSource.Fields.Count
        'Set RowsNum     = DataSource.RecordCount
        if Columns.Count = 0 then
            For i = 0 to DataSource.Fields.Count -1
                Columns.add DataSource.Fields(i).Name,DataSource.Fields(i).Name
                response.Write(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='#cccccc'"
            Alternate    = 1
            HeadStyle    = "Height=25 style=""background-color:#006699;color:#ffffff"""
            AlternateSt