首页 / 网页编程 / ASP / 让操作更便捷：ASPTable类

让操作更便捷：ASPTable类2011-11-12经常写代码，对于无聊的table、tr、td真是深恶痛绝，一遍又一遍编写着重复无聊的代码，昨天看《 ASP3.0高级编程》时，看到作者的一个ASP Table组件，感觉实在很方便，组件需要环境，通常情况下， 我们用虚拟主机的情况要多得多，所以就着这个思路，自己用类实现，测试了一下，感觉用着确实方便， 也拿来分享，也欢迎网友改进，不过别忘记发我一份！

以下是实现后的效果预览：

生成的代码有适当的缩进，还比较简单，以下是源码：

cls_table.asp

<%"shaoyun table类"time:2008/8/20 14:04"author:shaoyun"site:shaoyun.cnblogs.com www.bianceng.cn"email:shaoyun at yeah.netClass cls_Table  Private m_RS,m_Version,m_ClassName,m_ColCount,m_TableStyle,m_HeaderStyleDim m_TitleCols（）,m_TextCols（）,m_StyleCols（）  Private Sub Class_Initialize（）  m_ClassName="Shaoyun Table类"  m_Version="1.0"  m_RS= ""  m_ColCount=0  m_HeaderStyle=""End Sub  Private Sub Class_Terminate（）  Set m_RS=NothingEnd Sub  Public Property Get ClassName  ClassName = m_ClassNameEnd Property  Public Property Get Version  Version = m_VersionEnd Property  Public Property Let HeaderStyle（className）  m_HeaderStyle = classNameEnd Property  Public Property Let TableStyle（className）  m_TableStyle = classNameEnd Property  Public Function SetRS（adors）  Set m_RS=adorsEnd Function