<%
Classrlmandbcls
Privatesdbpath, rlconn, sdbtype, sservername, susername, spassword
Cuenta pública
Privatesubclass_initialize ()
sdbtype = ""
Endsub
Privatesubclass_merminate ()
IfisObject (rlconn) entonces
Rlconn.close
Setrlconn = nada
Endif
Endsub
PublicPropertyletDBType (Byvalstrvar)
sdbtype = strvar
Endpropertía
PublicPropertyletServerName (Byvalstrvar)
sservername = strvar
Endpropertía
PublicPropertyletUserName (Byvalstrvar)
Susername = Strvar
Endpropertía
PublicPropertyletPassword (ByvalStrvar)
Spassword = Strvar
Endpropertía
'Establecer la ruta de la base de datos
PublicPropertyletdbpath (Byvalstrvar)
sdbpath = strvar
SelectCassDBType
Caso "SQL"
Strserver = sservername 'nombre del servidor de la base de datos
Struid = Susername'Your Cuenta de inicio de sesión
Strsapwd = spassword'tyour contraseña de inicio de sesión
Strdbname = sdbpath'your nombre de la base de datos
sdbpath = "driver = {sqlserver}; server =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; database =" & strdbname
Caso "Acceso", ""