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

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

自从用贯了.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

%>