最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
一个显示Grid的VBScript对象
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
<%@ 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
-
上一个: IIS中的 MIME类型 (z3)
-
下一个: 不知道全不全
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14