<%
classrlmandbcls
PrivatesDBPath, Rlconn, SDBType, Sservername, Susername, Spassword
공공 시설
privatesubclass_initialize ()
sdbtype = ""
Endsub
privatesubclass_terminate ()
그런 다음 ifisobject (rlconn)
rlconn.close
setrlconn = 아무것도 없습니다
endif
Endsub
PublicPropertyletdbType (ByValStrvar)
sdbtype = strvar
엔드 프로페티
PublicPropertyLetservername (ByValStrvar)
sservername = strvar
엔드 프로페티
PublicPropertyletuserName (ByValStrvar)
Susername = strvar
엔드 프로페티
PublicPropertyletpassword (ByValStrvar)
spassword = strvar
엔드 프로페티
'데이터베이스 경로를 설정하십시오
PublicPropertyletdbPath (byvalstrvar)
sdbpath = strvar
selectcasesdbtype
"SQL"사례
strserver = sservername '데이터베이스 서버 이름입니다
struid = susername'your 로그인 계정
strsapwd = spassword'your 로그인 비밀번호
strdbname = sdbpath'your 데이터베이스 이름입니다
sdbpath = "driver = {sqlserver}; server ="& strserver & "; uid ="& struid & "; pwd ="& strsapwd & "; database ="& strdbname
"Access", "", ""