一个显示Grid的VBScript对象

一个显示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
Mode = "View"
Else
Mode = m_strMode
End If
End Property

Public Property Let Mode(strMode)
If strMode <> "View" And strMode <> "Edit" Then
Response.Write ("模式错误——只允许使用View和Edit<br>")
Response.End
Else
m_strMode = strMode
End If
End Property

Public Property Get ProcessPage()
ProcessPage = m_strProcessPage
End Property

Public Property Let ProcessPage(strProcessPage)
m_strProcessPage = strProcessPage
End Property

Public Property Get Title()
If IsNull(m_strTitle) Or Len(m_strTitle) = 0 Then
Title = "Data Grid"
Else
Title = m_strTitle
End If
End Property

Public Property Let Title(strTitle)
m_strTitle = strTitle
End Property

Public Property Get RSName()
If IsNull(m_strRSName) Or Len(m_strRSName) = 0 Then
RSName = "Grid"
Else
RSName = m_strRSName
End If
End Property

Public Property Let RSName(strRSName)
m_strRSName = strRSName
End Property

Public Property Get FindFields()
FindFields = m_strFindFields
End