一个比较实用的asp 函数集合类

 Public Property Get Version
  Version="DSJ 1.1.0 Beta"
 End Property
 
 Public Property Get Error
  Error=p_Error
 End Property
 
 Public Property Get Debug
  Debug=p_Debug
 End Property
 Public Property Let Debug(BoolDebug)
  If BoolDebug Then
   p_Debug=True
  Else
   p_Debug=False
  End If
 End Property
 
 Public Property Get dbType
  dbType=p_dbType
 End Property
 Public Property Let dbType(lngdbType)
  If IsNumeric(lngdbType) Then
   p_dbType=lngdbType
  Else
   p_dbType=12
  End If
 End Property
 
 Public Property Get dbFolder
  dbFolder=p_dbFolder
 End Property
 Public Property Let dbFolder(strFolder)
  If Right(strFolder,1)="\" OR Right(strFolder,1)="/" Then
   p_dbFolder=strFolder
  Else
   If (NOT IsNull(strFolder)) OR (strFolder<>"") Then
    p_dbFolder=strFolder & "\"
   Else
    p_dbFoler=""
   End If
  End If
 End Property
 
 Public Property Get Database
  Database=p_dataBase
 End Property
 Public Property Let Database(strDataBase)
  p_dataBase=strDatabase
 End Property
 
 Public Property Get dbUserID
  dbUserID=p_dbUserID
 End Property
 Public Property Let dbUserID(strDataBaseUserID)
  p_dbUserID=strDataBaseUserID
 End Property
 
 Public Property Get dbPassword
  dbPassword=p_dbPassword
 End Property
 Public Property Let dbPassword(strDataBasePassword)
  p_dbPassword=strDataBasePassword
 End Property
 
 Public Property Get SQLDataSource
  SQLDataSource=p_sqlDataSource
 End Property
 Public Property Let SQLDataSource(strSQLDataSource)
  If strsqlDataSource<>"" Then
   If Left(p_dbType,1)=2 Then
    p_sqlDataSource=strSQLDataSource
   Else
    AddErrorCode(110)
    p_sqlDataSource=""

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:asp 分页代码

下一篇:ASP 和数据库连接