Membres enregistrés, créez votre base de données de développement Web, -------------------------------------- - - ------ Root1 ------------------------------------------- ------------------------------------------------
************************************************* * ***************************************
* Utilisez cette classe pour gérer et enregistrer votre DLL dans la page ASP
* Cette classe est testée sur Win 2K
* Remarque: utilisez d'abord cette classe pour créer un fichier XML. Le fichier est le suivant.
*
* <?
* <Liste DLL>
* </ dll liste>
*
* ------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -----
*exemple:
* Dim objretsvr32
* Définir objregsvr32 = nouveau regsvr32
* Avec objregsvr32
* si .loadxml ("../ mydll.xml") alors
* Appeler Response.Write ("Erreur de chargement du fichier XML")
* définir objregsvr32 = rien
* Response.end
* terminer si
* Sélectionnez Case .AddNode ("F: /web/CW31072/dll/test/myclass.dll", true) ‘Ajouter de nouvelles entrées et enregistrer DLL
* Cas 1
* Appelez Response.Write ("L'entrée a été ajoutée au fichier XML! Et DLL enregistré avec succès!")
* Cas 0
* Appelez Response.Write ("L'entrée a été ajoutée au fichier XML! Mais il a échoué lors de la DLL enregistrée!")
* cas -1
* Appelez Response.Write ("Il y a déjà cette entrée dans le fichier XML! La DLL a également été enregistrée!")
* Fin SELECT
* ..........................
* Terminer avec
*
* 'La classe Ben est très simple, il y a des moyens, donc je ne donne pas un exemple, regardez-le. Vous pouvez l'ouvrir à l'avenir
* 'Le fichier XML dépend de la liste DLL que vous avez enregistrée et d'être enregistrée.
* 'Les fichiers XML dans chaque entrée sont les suivants: <dl a enregistré = "1"> f: /web/cw31072/dll/test/myclass.dll </ dll>
* 'f: /web/cw31072/dll/test/myclass.dll est le chemin d'accès de votre fichier DLL
* 'Qu'il ait été enregistré = "1" est que la DLL a été enregistrée, = "0" n'est pas encore enregistrée!
************************************************* * ***************************************
classe regsvr32
S_OBJXML privé
Privé s_objnoderoot
Privé s_strxmlpath
Privé s_stratrattibutename
'------------------------------------------------- -------------------------------------------------- -----------------------------
'Objectif: Chargez le fichier XML de configuration de la DLL
'Paramètre: adresse du fichier XML
'Retour: retour à true s'il ne charge pas
'------------------------------------------------- -------------------------------------------------- -----------------------------
Fonction publique LoadXML (Strpath)
set s_objxml = createObject ("msxml2.document")
s_objxml.async = false
s_objxml.load (strpath)
Si S_OBJXML.PARSEERROR.ERRORCODE <> 0 alors
définir s_objxml = rien
loadXml = true
fonction de sortie
terminer si
Définir S_OBJNODEROOT = S_OBJXML.DocumentElement
s_strxmlpath = strpath
S_StratTrributeName = "s'il a été enregistré"
fonction finale
'-------------------------------------------
'Objectif: ajouter un projet DLL
'Paramètres: Strpath: Adresse du fichier DLL
'Blnreg: s'il faut l'enregistrer après avoir ajouté
«Retour: si l'enregistrement est requis, l'enregistrement est réussi, l'enregistrement échoue, l'échec de l'enregistrement renvoie 0, le projet a déjà le projet et le registre reviendra -1
'-------------------------------------------
Fonction publique addn