CSDN博客

img devillicheng

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

发表于2004/9/14 12:47:00  265人阅读

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
            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

%
>
0 0

相关博文

我的热门文章

img
取 消
img