• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [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

%
>

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
JQuery以POST方法从ASP.NET服务器获取Json数据完整示例发布时间:2022-07-10
下一篇:
ASP.NET(C#)上传图片(二进制)发布时间:2022-07-10
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap