<%
ClassRlmandbcls
PrivatesdbPath, rlconn, sdbType, sserververname, susername, spassword
Öffentlich
PrivateSubclass_initialize ()
sdbType = ""
Ende
PrivateSubclass_terminate ()
IfisObject (rlconn) dann
Rlconn.close
Setrlconn = nichts
Endif
Ende
PublicPropertyletDBTYPE (Byvalstrvar)
sdbType = strvar
Endproperschaft
PublicPropertyletSerVername (Byvalstrvar)
sServerName = strvar
Endproperschaft
PublicPropertyletususername (Byvalstrvar)
Susername = strvar
Endproperschaft
PublicPropertyletPassword (Byvalstrvar)
spassword = strvar
Endproperschaft
'Setzen Sie den Datenbankpfad
PublicPropertyletDBPath (Byvalsstrvar)
sdbPath = strvar
SelectCaseSSDBTYPE
Fall "SQL"
StrServer = Sserververname 'Datenbank -Servername
Struid = susername'your login -Konto
STRSAPWD = SPASSWORD'YOUR -Login -Passwort
StrDBNAME = SDBPATH'YOUR -Datenbankname
sdbpath = "driver = {sqlserver}; server =" & strServer & "; uid =" & struid & "; pwd =" & strsapwd & "; Datenbank =" & strdbname
Fall "Zugang", ""