在ASP 中实现ASP.Net 的DataGrid 功能

自从用贯了.Net的DataGrid就再也懒得去用ASP画表格了，于是想了一个折中的办法，访照DataGrid的功能写了一个TBGrid 类，这样可以轻松的重用代码．比起每次都得重复劳动方便多了．希望能给用得到的人带去一些方便．用法很简单，看后面的例子便一目了然了．有什么不完善的地方希望大家有和我讨论．

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'            Programming By Smartpig                              '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Class TBGrid

    public DataSource                '数据源
    public style                    '表格总风格
    public HeadStyle                '表头风格
    public HeadItemStyle            '表头单独风格
    public itemStyle                '单元格独立网络
    public Columns                    '需要显示的列元素
    public Alternate                '是否交替风格
    public AlternateStyle            '偶数行风格
    public NormalStyle                '正常风格
    public DefaultStyle                '默认风格簇
    public PageSize                    '页大小
    public CurPage                    '当前页
    public AllowPageing                '是否分页
    public PageingStyle                '页数风格
    
    Private Templates                '自定义单元项
    
    '内容之间的关系
    'Columns.add "Field","HeadText"
    'AddTemplate("HeadText",Template)
    'itemStyle.add "Field","style:adsasd"
    'DataSource(Columns.Keys(i))
    
    Private Sub Class_Initialize   ' 设置 Initialize 事件。
        Set itemStyle     = 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
    End Sub
    
    Private Sub Class_Terminate   ' 设置 Terminate 事件。
        Set itemStyle    = 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
        end if
        
        if PageSize = Empty then
            PageSize = 10
        end if
        
        select Case DefaultStyle
            Case 1
                Style                ="border=1 cellpadding=2 cellspaccing=0 borderColor=#000000 style=""Border-collapse:collapse;font-size:12px"""
                Alternate            = 1
                HeadStyle            = "Height=25 bgColor=#CCCCCC"
                AlternateStyle        = "bgColor=#EEEEEE height=20"
                NormalStyle            = "height=20"
                
            Case Else
        End Select
                
    End sub
    
    public Sub AddTemplate(ByVal ColumnName,ByVal Template)
        Columns.add ColumnName,ColumnName
        Templates.add ColumnName,Template
    End Sub

    public Sub Show()
        InitTable()
        
        Dim tableStr
        Dim tdStart,tdEnd,tbStyle,tbContent
        Dim curRow
        Dim clm
        Dim regEx,Match,Matches
           
        tableStr = "<table " & style & ">" & vbCrLF
        
        'Draw Table Head
        Response.Write(tableStr)
        Response.Write("<tr>")
        for Each clm in Columns.Keys()
            tbStyle = HeadStyle & " " & HeadItemStyle(clm)
            tdStart = "<td " & tbStyle & ">"
            tdEnd = "</td>"
            
            Response.Write(tdStart)
            Response.Write(Columns(clm))
            Response.Write(tdEnd)
        Next
        Response.Write("</tr>" & vbCrLF)
        
        'Draw Table items
        curRow = 1
        if AllowPageing <> Empty then
            DataSource.PageSize = PageSize
        else
            DataSource.PageSize = DataSource.RecordCount
        end if
        
        if CurPage = Empty then
            CurPage = 1
        end if
        
        if CurPage < 1 then
            DataSource.AbsolutePage = 1
        end if
        
         if CurPage >= DataSource.PageCount then
            DataSource.AbsolutePage = DataSource.PageCount
        end if
        
        if CurPage >= 1 and CurPage <= DataSource.PageCount then
            DataSource.AbsolutePage = CurPage
        end if

        for curRow = 1 to DataSource.PageSize
            if DataSource.EOF then
                Exit For
            end if
                        
            Response.Write("<tr>")
            for Each clm in Columns.Keys()
                if Alternate = 0 then
                    tbStyle = NormalStyle & " " & ItemStyle(clm)
                else
                    if curRow mod 2 = 0 then
                        tbStyle = AlternateStyle & " " & ItemStyle(clm)
                    else
                        tbStyle = NormalStyle & " " & ItemStyle(clm)
                    end if
                end if
                
                tdStart = "<td " & tbStyle & ">"
                tdEnd = "</td>"
                
                if Templates(clm) = Empty then
                    tbContent = DataSource(clm)
                else
                    tbContent = Templates(clm)
                    Set regEx = New RegExp
                    regEx.Pattern= "{[A-Za-z0-9_-]+}"
                    regEx.IgnoreCase = True
                    regEx.Global = True
                    Set Matches=regEx.Execute(Templates(clm))
                    For each match in matches
                        On Error Resume Next
                        tbContent = Replace(tbContent,Match.Value, _DataSource(Mid(Match.Value,2,Len(Match.Value)-2)),1) 
                    Next
                                        
                end if
            
                Response.Write(tdStart)
                Response.Write(tbContent)
                Response.Write(tdEnd)
            Next
            Response.Write("</tr>" & vbCrLF)
            
            DataSource.MoveNext
        Next
        
        'Draw Pageing Row
        if DataSource.PageCount > 1 and LCase(pageingStyle) <> "none" then
            Dim i
            response.write("<tr>")
            response.write("<td colspan=" & Columns.Count & " " & PageingStyle & ">")
            for i=1 to DataSource.PageCount
                if i <> CurPage then
                    response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & i & "'>" )
                end if
                response.write(i)
                if i <> CurPage then
                    response.write("</a>")
                end if
                response.write(" ")
            next
            response.write("</td></tr>" & vbCrLf)
        end if
        
        'Draw Table end
        Response.Write("</table>")
        
    end sub

End Class

'users Like { UserID,LoginName,Password,RealName,Age,Gender,}
'initDB
'Rs.Open "Select * from users",Cn
'Dim tbGrid1
'Set tbGrid1 = New TBGrid
'Set tbGrid1.DataSource = Rs
'tbGrid1.Columns.add "LoginName","用户名"
'tbGrid1.ItemStyle.add "Password","align=right"
'tbGrid1.ItemStyle.add "修改","width=100"
'tbGrid1.AddTemplate "修改","<a href='aaa.asp?id={UserID}'><font color=red>{RealName}</font></a>"
'tbGrid1.Columns.add "Password","密码"
'tbGrid1.PageSize = 5
'tbGrid1.AllowPageing = true
'tbGrid1.PageingStyle = "align=right"
'tbGrid1.CurPage = CInt(Request("page"))
'tbGrid1.Show()
'CloseDB

%>