Les fonctionnalités peuvent définir un cache privé ou un cache public pour améliorer l'efficacité. Vous pouvez librement choisir d'utiliser le composant Stream ou le composant FSO. Prendre en charge l'encodage de fichiers personnalisé et enregistrer
les attributs de fichiers.
Nom
Text, le nom du modèle, principalement utilisé pour distinguer les différents modèles lors de l'utilisation du cache public.
Format
Texte, type d'encodage de fichier, valeur réglable.
Objet
Le texte, à l'aide de composants, peut définir des valeurs :
Flux
OFS
Cache public
Valeur booléenne, utilisez le cache public. Lorsqu'il est activé, le fichier modèle sera enregistré dans l'objet Application. Les autres objets qui font référence à cette classe de modèle peuvent lire à partir du cache en définissant la même valeur Nom et en ouvrant également le cache public. (Méthode de chargement)
Cache privé
Valeur booléenne, utiliser le cache privé. Lorsqu'il est activé, le fichier modèle sera enregistré dans la variable interne de l'objet et le même objet qui fait référence à cette classe de modèle peut le lire. (Méthode de chargement)
Direction
Texte, répertoire où se trouve le fichier modèle, sans barre oblique ni barre oblique inverse avant et après, tel que : template/default
Déposer
Texte, nom du fichier modèle, sans barre oblique ni barre oblique inverse devant, tel que : default.html
Enregistrer la direction
Texte, le répertoire dans lequel le fichier est enregistré, sans barres obliques ni barres obliques inverses avant et après, tel que : html/default
Enregistrer le fichier
Texte, enregistrer le nom du fichier, sans barre oblique ni barre oblique inverse devant, tel que : default.html
objet
Code
Text, le texte actuel, cet objet est remplacé lors de l'utilisation de la méthode SetVar et le modèle est surchargé sur cet objet lors de l'utilisation de la méthode Load
Stockage
Texte, texte enregistré Lors de l'utilisation de la méthode SaveFront ou SaveLast, le texte de l'objet Code est enregistré au début ou à la fin de cet objet. Il peut être utilisé pour obtenir tous les codes après une boucle.
méthode
Effacer le cache
Effacer les caches publics et privés (forcer le rechargement du modèle à partir du fichier)
Effacer le cache public
Vider le cache public
Effacer le cache privé
Vider le cache privé
Effacer le code
Effacer l'objet Code
Effacer le stockage
Effacer l'objet de stockage
EnregistrerFront
Enregistrez le texte de l'objet Code actuel au début de l'objet Storage
EnregistrerDernier
Enregistrez le texte dans l'objet Code actuel à la fin de l'objet Storage
Enregistrer le code
Enregistrez le texte de l'objet Code actuel dans un fichier
EnregistrerStockage
Enregistrez le texte de l'objet de stockage actuel dans un fichier
EnsembleVar
Paramètres de remplacement de texte dans l'objet Code courant : texte à remplacer, texte à remplacer
Charger
Chargez le fichier modèle dans l'objet Code. Lorsque le cache privé est activé et existe, il est chargé à partir du cache privé. Lorsqu'il est activé et que le cache public existe, il est chargé à partir du cache public. il est chargé à partir du fichier.
variables internes
ccStrPath
Répertoire racine par défaut
ccStrCookieName
Préfixe du nom de l'objet Application par défaut
code
Classe ccClsTemplate
Privé ccStrCode,ccStrStorage
PrivateccStrCacheCode
ccBlnPublicCache privé, ccBlnPrivateCache
Nom ccStr privé, nom ccStrCookie
Privé ccStrDirection, ccStrSaveDirection, ccStrFile, ccStrSaveFile, ccStrPath
Privé ccObjStream, ccObjFSO, ccStrFormat, ccIntObject, ccObjText, ccIntFormat
Sous-classe privée_Initialize
ccStrName = "default" 'Nom par défaut
ccBlnPublicCache = Faux
ccBlnPrivateCache = Faux
ccStrFile = "cache.html"
ccStrSaveFile = "save_cache.html"
ccStrCookieName = "ccClass_Template" 'Préfixe du nom de l'objet d'application
ccStrFormat = "UTF-8" 'UTF-8|ASCII|GB2312|BIG5
ccIntFormat = -1
ccIntObject = 1 'Composant de modèle de lecture/enregistrement par défaut 1 : ADODB.Stream 2 : FSO
ccStrPath = Server.MapPath("./")&"" 'Chemin racine par défaut
Fin de la sous-
propriété publique Let Name (ccStrName_in)
ccStrName = LCase (Trim (ccStrName_in))
Propriété de fin
Propriété publique Let Format(ccStrFormat_in)
ccStrFormat = ccStrFormat_in
Si InStr(LCase(Trim(ccStrFormat_in)),"utf") > 0 Alors
ccIntFormat = -1
Autre
ccIntFormat = 0
Fin si
Propriété de fin
Propriété publique Let Object(ccStrObject_in)
ccStrObject_in = LCase(Trim(ccStrObject_in))
Si InStr(ccStrObject_in,"fso") > 0 Alors
ccIntObject = 2
Autre
ccIntObject = 1
Fin si
Propriété de fin
Propriété publique Let PublicCache(ccBlnPublicCache_in)
Si ccBlnPublicCache_in = True Alors
ccBlnPublicCache = Vrai
Autre
ccBlnPublicCache = Faux
Fin si
Propriété de fin
Propriété publique Let PrivateCache(ccBlnPrivateCache_in)
Si ccBlnPrivateCache_in = True Alors
ccBlnPrivateCache = Vrai
Autre
ccBlnPrivateCache = Faux
Fin si
Propriété de fin
Propriété publique Let Direction(ccStrDirection_in)
ccStrDirection = ccStrDirection_in
Propriété de fin
Propriété publique Let File(ccStrFile_in)
Si ccStrFile_in <> "" Alors
ccStrFile = ccStrFile_in
Fin si
Propriété de fin
Propriété publique Let SaveDirection(ccStrSaveDirection_in)
ccStrSaveDirection = ccStrSaveDirection_in
Propriété de fin
Propriété publique Let SaveFile(ccStrSaveFile_in)
Si ccStrSaveFile_in <> "" Alors
ccStrSaveFile = ccStrSaveFile_in
Fin si
Fin de la propriété
Propriété publique Obtenir le code
Code = ccStrCode
Fin de la propriété
Propriété publique Obtenir le stockage
Stockage=ccStrStorage
Fin de la propriété
publique sous ClearCache
Appeler ClearPrivateCache
Appeler ClearPublicCache
Fin du sous-
sous-public ClearPrivateCache
ccStrCacheCode = ""
Fin du sous-
sous-public ClearPublicCache
Application(ccStrCookieName&ccStrName) = ""
Fin du sous-
sous-public ClearStorage
ccStrStorage = ""
Fin du sous-
sous-public ClearCode
ccStrCode = ""
Fin du
sous-sous-public SaveFront
ccStrStorage = ccStrCode & ccStrStorage
Fin
du sous-marin public EnregistrerDernier
ccStrStorage = ccStrStorage & ccStrCode
Fin du
sous-titre public SaveCode
Appeler SaveToFile(1)
Fin du
sous-sous-public SaveStorage
Appeler SaveToFile(2)
Fin du
sous-sub public SetVar(ccStrTag_in,ccStrValue_in)
ccStrCode = RePlace (ccStrCode, ccStrTag_in, ccStrValue_in)
Fin du
sous-sous-privé SaveToFile (ccIntCode_in)
Faible ccStrSaveCode
Si ccIntCode_in = 1 Alors
ccStrSaveCode = ccStrCode
Autre
ccStrSaveCode = ccStrStorage
Fin si
Si ccIntObject = 1 Alors
Définir ccObjStream = Server.CreateObject("ADODB.Stream")
Avec ccObjStream
.Type = 2
.Mode = 3
.Ouvrir
.Charset = ccStrFormat
.Position = ccObjStream.Taille
.WriteText ccStrSaveCode
.SaveToFile ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2
.Fermer
Terminer par
Définir ccObjStream = Rien
Autre
Définir ccObjFSO = CreateObject("Scripting.FileSystemObject")
Si ccObjFSO.FileExists(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile) = True Alors
ccObjFSO.DeleteFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile)
Fin si
Définir ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2,True,ccIntFormat)
ccObjText.Écrire ccStrSaveCode
Définir ccObjText = Rien
Définir ccObjFSO = Rien
Fin si
ccStrSaveCode = ""
Fin du
sous-chargement public
ccStrCode = ""
Si ccBlnPrivateCache = True Alors
Si ccFncIsEmpty(ccStrCacheCode) = False Alors
ccStrCode = ccStrCacheCode
Quitter le sous-marin
Fin si
Fin si
Si ccBlnPublicCache = True Alors
Si ccFncIsEmpty(Application(ccStrCookieName&ccStrName)) = False Alors
ccStrCode = Application (ccStrCookieName&ccStrName)
Quitter le sous-marin
Fin si
Fin si
Si ccIntObject = 1 Alors
Définir ccObjStream = Server.CreateObject("ADODB.Stream")
Avec ccObjStream
.Type = 2
.Mode = 3
.Ouvrir
.Charset = ccStrFormat
.Position = ccObjStream.Taille
.LoadFromFile ccStrPath & ccStrDirection & "" & ccStrFile
ccStrCode = .ReadText
.Fermer
Terminer par
Définir ccObjStream = Rien
Autre
Définir ccObjFSO = CreateObject("Scripting.FileSystemObject")
Si ccObjFSO.FileExists(ccStrPath & ccStrDirection & "" & ccStrFile) = True Alors
Définir ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrDirection & "" & ccStrFile,1,False,ccIntFormat)
ccStrCode = ccObjText.ReadAll
Définir ccObjText = Rien
Fin si
Définir ccObjFSO = Rien
Fin si
Si ccBlnPrivateCache = True Alors
ccStrCacheCode = ccStrCode
Fin si
Si ccBlnPublicCache = True Alors
Application (ccStrCookieName&ccStrName) = ccStrCode
Fin si
End Sub
End Class
Fonction ccFncIsEmpty (ByRef ccStrValue_in)
Si IsNull(ccStrValue_in) Ou IsEmpty(ccStrValue_in) Ou ccStrValue_in = "" Alors
ccFncIsEmpty = Vrai
Autre
ccFncIsEmpty = Faux
Fin si
Fonction de fin
Exemple
Contenu du fichier modèle
<#test#>
Code du programme ASP
Dim objTemplate
Définir objTemplate = Nouveau ccClsTemplate
objTemplate.Name = "Test"
objTemplate.Format = "UTF-8"
'Activer la mise en cache
objTemplate.PublicCache = Vrai
objTemplate.PrivateCache = Vrai
'Définir le répertoire du modèle et le nom du fichier
objTemplate.Direction = "tester"
objTemplate.File = "test.html"
'Définissez le répertoire du fichier de sauvegarde et le nom du fichier
objTemplate.SaveDirection = "test"
objTemplate.SaveFile = "test3.html"
'Charger le modèle
Appelez objTemplate.Load
'Effectuer le remplacement du texte
Appelez objTemplate.SetVar("<#test#>","Bonjour tout le monde.")
'Enregistrer le texte dans le stockage
Appelez objTemplate.SaveLast
'Rechargez le modèle, qui sera rechargé depuis le cache privé pour améliorer l'efficacité.
Appelez objTemplate.Load
'remplacer par une autre valeur
Appelez objTemplate.SetVar("<#test#>"," Par Cloudream.")
'Enregistrer jusqu'à la fin du stockage pour un stockage temporaire
Appelez objTemplate.SaveLast
'Enregistrer le code dans un fichier
Appelez objTemplate.SaveCode
Response.Write objTemplate.Storage
Set objTemplate = Rien
Afficher les résultats
Bonjour tout le monde. Par Cloudream.
Enregistrez les résultats du fichier.
Par Cloudream.