一个显示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