一个显示Grid的VBScript对象
是根据MS提供的代码修改而成,目前还不支持编辑,可以排序、查询、分页显示<%@ Language=VBScript %>
<% Option Explicit %>
<%
Class classDataGrid
Private m_strSQL
Private m_strConn
Private m_strRowColor1
Private m_strRowColor2
Private m_strMode
Private m_strProcessPage
Private m_strTitle
Private m_strRSName
Private m_strFindFields
Public Property Get SQL()
SQL = m_strSQL
End Property
Public Property Let SQL(strSQL)
m_strSQL = strSQL
End Property
Public Property Get Conn()
Conn = m_strConn
End Property
Public Property Let Conn(strConn)
m_strConn = strConn
End Property
Public Property Get RowColor1()
If IsNull(m_strRowColor1) Or Len(m_strRowColor1) = 0 Then
RowColor1 = "#ffffff"
Else
RowColor1 = m_strRowColor1
End If
End Property
Public Property Let RowColor1(strRowColor1)
m_strRowColor1 = strRowColor1
End Property
Public Property Get RowColor2()
If IsNull(m_strRowColor2) Or Len(m_strRowColor2) = 0 Then
RowColor2 = "#00ffff"
Else
RowColor2 = m_strRowColor2
End If
End Property
Public Property Let RowColor2(strRowColor2)
m_strRowColor2 = strRowColor2
End Property
Public Property Get Mode()
If IsNull(m_strMode) Or Len(m_strMode) = 0 Then
补充:asp教程,组件开发