自从用贯了.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 &n
<%
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
