让操作更便捷：ASPTable类 - ASP教程
发布时间：2016-10-10 19:31:14 所属栏目：Asp教程 来源：站长网
导读：经常写代码，对于无聊的table、tr、td真是深恶痛绝，一遍又一遍编写着重复无聊的代码，昨天看《 ASP3.0高级编程》时，看到作者的一个ASP Table组件，感觉实在很方便，组件需要环境，通常情况下， 我们用虚拟主机的情况要多得多，所以就着这个思路，自己用类
|
经常写代码，对于无聊的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.net Class cls_Table Private m_RS,m_Version,m_ClassName,m_ColCount,m_TableStyle,m_HeaderStyle Dim 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=Nothing End Sub Public Property Get ClassName ClassName = m_ClassName End Property Public Property Get Version Version = m_Version End Property Public Property Let HeaderStyle(className) m_HeaderStyle = className End Property Public Property Let TableStyle(className) m_TableStyle = className End Property Public Function SetRS(adors) Set m_RS=adors End Function
（编辑：淮北站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
