<%
ClassRLManDBCls
PrivatesDBPath,RLConn,sDBType,sServerName,sUserName,sPassword
PublicCount
PrivateSubClass_Initialize()
sDBType=""
EndSub
PrivateSubClass_Terminate()
IfIsObject(RlConn)Then
RlConn.Close
SetRlConn=Nothing
Endif
EndSub
PublicPropertyLetDBType(ByValstrVar)
sDBType=strVar
EndProperty
PublicPropertyLetServerName(ByValstrVar)
sServerName=strVar
EndProperty
PublicPropertyLetUserName(ByValstrVar)
sUserName=strVar
EndProperty
PublicPropertyLetPassword(ByValstrVar)
sPassword=strVar
EndProperty
'設置數據庫路徑
PublicPropertyLetDBPath(ByValstrVar)
sDBPath=strVar
SelectCasesDBType
Case"SQL"
StrServer=sServerName'數據庫服務器名
StrUid=sUserName'您的登錄帳號
StrSaPwd=sPassword'您的登錄密碼
StrDbName=sDBPath'您的數據庫名稱
sDBPath="driver={SQLserver};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
Case"ACCESS",""