让操作更便捷：ASPTable类

'addcol(显示标题,显示文本格式,单元格的样式)

Public Function AddCol(displayName,colFormat,className)
　　m_ColCount = m_ColCount + 1
　　Redim Preserve m_TitleCols(m_ColCount)
　　Redim Preserve m_TextCols(m_ColCount)
　　Redim Preserve m_StyleCols(m_ColCount)
　　
　　m_TitleCols(m_ColCount)=displayName
　　m_TextCols(m_ColCount)=colFormat
　　m_StyleCols(m_ColCount)=className
End Function

'获取生成的格式代码

Public Function GetHTML()
　　Dim strHTML
　　strHTML=""
　　strHTML=strHTML & "<TABLE class=""" & m_TableStyle & """>" & 

vbCrLf
　　strHTML=strHTML & "<TR>" & vbCrLf
　　For i=1 to m_ColCount
　　　　strHTML=strHTML & Chr(9) & "<TH class=""" & m_HeaderStyle & 

""">"
　　　　strHTML=strHTML & m_TitleCols(i) & "</TH>" & vbCrLf
　　Next
　　strHTML=strHTML & "</TR>" & vbCrLf
　　
　　Dim strRowText
　　Do While Not m_RS.EOF
　　　　strRowText=""
　　　　For i=1 to m_ColCount
　　　　　　strRowText=strRowText & Chr(9) & "<TD class=""" & m_StyleCols(i) 

& """>"
　　　　　　strRowText=strRowText & ExpandString(m_TextCols(i)) & "</TD>" 

& vbCrLf
　　　　Next
　　　　strHTML=strHTML & "<TR>" & vbCrLf & strRowText & "</TR>" 

& vbCrLf
　　　　m_RS.movenext
　　Loop
　　strHTML=strHTML & "</TABLE>"
　　GetHTML=strHTML
End Function

（编辑：佛山站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!