Como programador, creo que todos tienen su propia biblioteca de funciones y biblioteca de clases. Cuando trabaje en un proyecto, extraiga las funciones y clases deseadas de la biblioteca. Esto puede mejorar la eficiencia del desarrollo. Una clase en la biblioteca de clase ASP especial de CJJ
La copia del código es la siguiente:
'--- ************************* Tconnstring ********************************
'Estructura de cadena de conexión de base de datos
Classtconnstring
PublicDBName, DBPATH, DBSERVER, DBUSER, DBPASS, DBTYPE
Clase final
'--- ************************* Tconnstring ********************************
'--- ************************
'Clase de operación de base de datos general
Classtdboperer
PrivateCls_oconn, objeto de conexión privada de clase CLS_ORS, objeto de registro
PrivateCls_Serrinfo, CLS_SCONN, CLS_SSQL, CLS_SURL, CLS_SFORMACTION
PrivateCls_ipagesize 'Número de páginas
PrivateCls_ltotalPage, CLS_LTOTALRECORD, CLS_LPAGENO
'Inicialización de clase
Privatesubclass_initialize ()
Endsub
'**********************************************
'Tipo: Propiedades
'Propósito: cree una conexión de base de datos basada en la conexión de conexión obtenida
'Entrada: a_sconn: cadena de tipo de datos
'Regreso: ninguno
'**********************************************
PublicPropertyletSetConn (A_SCONN)
Dimsobjtype
Sobjtype = lcase (typename (a_sconn))
Ifsobjtype <> "string" entonces
cls_serrinfo = cls_serrinfo & "<li> setConn: parámetro de cadena ilegal </li>" & chr (10)
Exitproperty
Endif
SetCls_oconn = createObject ("ADODB.Connection")
OnerrorResumEnext
CLS_OCONN.OPENA_SCONN