<%
Classrlmandbcls
Privatesdbpath, Rlconn, Sdbtype, Sservername, Susername, Spassword
PublicCount
Privatesubclass_initialize ()
sdbtype = ""
Заканчивая
Privatesubclass_mterminate ()
Ifisobject (rlconn) тогда
Rlconn.close
SetrlConn = ничего
Эндиф
Заканчивая
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
Дело "SQL"
Strserver = sservername 'Имя сервера базы данных
Struid = Susername'your Login Account
Strsapwd = spassword'your вход в систему
Strdbname = sdbpath'your database name
sdbpath = "driver = {sqlserver}; server =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; database =" & strdbname
Дело "доступ", ""