作为程序员，相信每个人都有自己的函数库及类库。在做项目时，从库里面提取想要的函数及类。这样可以提高开发效率。CJJ专用ASP类库中的某个class
复制代码代码如下:
'----********************TConnString*****************************----
'数据库连接字符串结构体
ClassTConnString
PublicDBName,DBPath,DBServer,DBUser,DBPass,DBType
EndClass
'----********************TConnString*****************************----
'----*********************TDBOperate*****************************----
'通用数据库操作类
ClassTDBOperate
Privatecls_oConn,cls_oRS'类私有Connection对象、RecordSet对象
Privatecls_sErrInfo,cls_sConn,cls_sSQL,cls_sURL,cls_sFormAction
Privatecls_iPageSize'分页数
Privatecls_lTotalPage,cls_lTotalRecord,cls_lPageNo
'类初始化
PrivateSubClass_Initialize()
EndSub
'*****************************************
'类型：属性
'目的：根据获取的ConnectionString，创建数据库连接
'输入：a_sConn:数据类型字符串
'返回：无
'*****************************************
PublicPropertyLetSetConn(a_sConn)
DimsObjType
sObjType=LCase(TypeName(a_sConn))
IfsObjType<>"string"Then
cls_sErrInfo=cls_sErrInfo&"<li>SetConn：非法的字符串参数</li>"&Chr(10)
ExitProperty
EndIf
Setcls_oConn=CreateObject("Adodb.Connection")
OnErrorResumeNext
cls_oConn.Opena_sConn