Como programador, acredito que todos têm sua própria biblioteca de funções e biblioteca de classes. Ao trabalhar em um projeto, extraia as funções e aulas desejadas da biblioteca. Isso pode melhorar a eficiência do desenvolvimento. Uma aula na Biblioteca de Classe ASP especial CJJ
A cópia do código é a seguinte:
'--- *******************
'Estrutura da sequência de conexão do banco de dados
CLASSTCONNSTRING
PublicDbname, DBPath, DbServer, DBUser, DBPass, DBType
Endclass
'--- *******************
'--- ***********************
'Classe de operação de banco de dados geral
CLASSTDBOPERTO
PrivateCls_oconn, objeto de conexão privada da classe CLS_ors, objeto RecordSet
Privatecls_serrinfo, CLS_SCONN, CLS_SSQL, CLS_SURL, CLS_SFORMACIONE
Privatecls_ipagesize 'número de páginas
Privatecls_ltotalpage, cls_ltotalrecord, cls_lpageno
'Inicialização da classe
Privatesubclass_initialize ()
Endsub
'***********************************************
'Tipo: Propriedades
'Objetivo: Crie uma conexão de banco de dados com base no Connectionstring obtido
'Input: A_SCONN: String de tipo de dados
'Retorno: Nenhum
'***********************************************
PublicPropertyleTetConn (A_SCONN)
Dimsobjtype
SOBJTYPE = LCASE (TIPENAME (A_SCONN))
IfSobjType <> "String" Então
cls_serrinfo = cls_serrinfo & "<li> setConn: parâmetro ilegal de string </li>" & ch (10)
ExitProperty
Endif
SetCls_oconn = createObject ("adodb.connection")
OnErrorReSumenext
CLS_OCONN.OPENA_SCONN