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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值