En tant que programmeur, je crois que tout le monde a sa propre bibliothèque de fonctions et sa bibliothèque de classe. Lorsque vous travaillez sur un projet, extraire les fonctions et classes souhaitées de la bibliothèque. Cela peut améliorer l'efficacité du développement. Une classe dans la bibliothèque de classe ASP spéciale CJJ
La copie de code est la suivante:
'--- ********************* TCONNSTRING ************************************
'Structure de la chaîne de connexion de la base de données
Classtconnstring
PublicDBName, DBPath, DBServer, DBUser, DBPass, DBTYPE
Classe de fin
'--- ********************* TCONNSTRING ************************************
'--- ************************ TDBOPERE ************************************
«Classe de fonctionnement de la base de données générale
Classer
Privatecls_oconn, objet de connexion privée de classe CLS_OR
Privatecls_serrinfo, CLS_SCCON, CLS_SSQL, CLS_SURL, CLS_SFORMACTION
Privatecls_ipagesize 'nombre de pages
Privatecls_ltotalpage, CLS_LTOTALRECORD, CLS_LPAGENO
'Initialisation de la classe
PRIVATESUBCLASS_INITIALIZE ()
Fin
'*********************************************
'Type: Propriétés
'Objectif: créer une connexion de base de données basée sur le string de connexion obtenu
'Entrée: A_SCCON: chaîne de type de données
'Retour: aucun
'*********************************************
PublicProperTyletSetConn (a_sonn)
Dimsobjtype
sobjType = lCase (typename (a_sconn))
IfsobjType <> "String" puis
CLS_SERRINFO = CLS_SERRINFO & "<li> SetConn: Paramètre de chaîne illégale </li>" & Chr (10)
EXitproperty
Endire
Setcls_oconn = createObject ("adodb.connection")
Onerrorresumenext
CLS_OCONN.OPENA_SCCON