作者：    来源：    点击：    日期：2007-5-5 23:34:10   

是根据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

首页 上一页 [1] [2] [3] [4]  下一页 尾页