يمكن للميزات تعيين ذاكرة تخزين مؤقت خاصة أو ذاكرة تخزين مؤقت عامة لتحسين الكفاءة. يمكنك اختيار استخدام مكون الدفق أو مكون FSO بحرية
.
اسم
النص، اسم القالب، يستخدم بشكل أساسي للتمييز بين القوالب المختلفة عند استخدام ذاكرة التخزين المؤقت العامة.
شكل
النص، نوع ترميز الملف، القيمة القابلة للتعيين.
هدف
يمكن للنص، باستخدام المكونات، تعيين القيم:
تدفق
FSO
ذاكرة التخزين المؤقت العامة
قيمة منطقية، استخدم ذاكرة التخزين المؤقت العامة. عند تشغيله، سيتم حفظ ملف القالب في كائن التطبيق، ويمكن للكائنات الأخرى التي تشير إلى فئة القالب هذه القراءة من ذاكرة التخزين المؤقت عن طريق تعيين نفس قيمة الاسم وفتح ذاكرة التخزين المؤقت العامة أيضًا. (طريقة التحميل)
ذاكرة التخزين المؤقت الخاصة
قيمة منطقية، استخدم ذاكرة التخزين المؤقت الخاصة. عند تشغيله، سيتم حفظ ملف القالب في المتغير الداخلي للكائن، ويمكن لنفس الكائن الذي يشير إلى فئة القالب هذه قراءته. (طريقة التحميل)
اتجاه
النص، الدليل الذي يوجد به ملف القالب، بدون خطوط مائلة أو خطوط مائلة عكسية قبل وبعد، مثل: القالب/الافتراضي
ملف
النص، واسم ملف القالب، بدون شرطة مائلة أو شرطة مائلة عكسية في المقدمة، مثل: default.html
حفظ الاتجاه
النص، الدليل الذي تم حفظ الملف فيه، بدون خطوط مائلة أو خطوط مائلة عكسية قبل وبعد، مثل: html/default
حفظ الملف
نص، احفظ اسم الملف، بدون شرطة مائلة أو شرطة مائلة عكسية في المقدمة، مثل: default.html
هدف
شفرة
النص، النص الحالي، يتم استبدال هذا الكائن عند استخدام طريقة SetVar، ويتم تحميل القالب بشكل زائد على هذا الكائن عند استخدام طريقة التحميل
تخزين
النص، النص المحفوظ. عند استخدام طريقة SaveFront أو SaveLast، يتم حفظ النص الموجود في كائن Code في بداية هذا الكائن أو نهايته. ويمكن استخدامه للحصول على جميع الرموز بعد التكرار.
طريقة
مسح ذاكرة التخزين المؤقت
مسح ذاكرة التخزين المؤقت العامة والخاصة (فرض إعادة تحميل القالب من الملف)
ClearPublicCache
مسح ذاكرة التخزين المؤقت العامة
ClearPrivateCache
مسح ذاكرة التخزين المؤقت الخاصة
ClearCode
مسح كائن التعليمات البرمجية
ClearStorage
مسح كائن التخزين
سيففرونت
احفظ النص الموجود في كائن Code الحالي في بداية كائن التخزين
حفظالأخير
احفظ النص الموجود في كائن Code الحالي إلى نهاية كائن التخزين
رمز الحفظ
احفظ النص الموجود في كائن Code الحالي في ملف
حفظ التخزين
احفظ النص الموجود في كائن التخزين الحالي في ملف
SetVar
معلمات استبدال النص في كائن Code الحالي: النص المراد استبداله، والنص المراد استبداله
حمولة
قم بتحميل ملف القالب في كائن Code. عندما تكون ذاكرة التخزين المؤقت الخاصة ممكّنة وموجودة، يتم تحميلها من ذاكرة التخزين المؤقت الخاصة. وعندما تكون ممكّنة وذاكرة التخزين المؤقت عامة، يتم تحميلها من ذاكرة التخزين المؤقت العامة. يتم تحميله من الملف.
المتغيرات الداخلية
ccStrPath
الدليل الجذر الافتراضي
ccStrCookieName
بادئة اسم كائن التطبيق الافتراضي
شفرة
فئة ccClsTemplate
الخاصة ccStrCode،ccStrStorage
PrivateccStrCacheCode
ccBlnPublicCache الخاص، ccBlnPrivateCache
ccStrName خاص، ccStrCookieName
ccStrDirection الخاص،ccStrSaveDirection،ccStrFile،ccStrSaveFile،ccStrPath
ccObjStream خاص، ccObjFSO، ccStrFormat، ccIntObject، ccObjText، ccIntFormat
Private Sub Class_Initialize
ccStrName = "افتراضي" 'الاسم الافتراضي
ccBlnPublicCache = خطأ
ccBlnPrivateCache = خطأ
ccStrFile = "cache.html"
ccStrSaveFile = "save_cache.html"
ccStrCookieName = "ccClass_Template" 'بادئة اسم كائن التطبيق
ccStrFormat = "UTF-8" 'UTF-8|ASCII|GB2312|BIG5
كسينتفورمات = -1
ccIntObject = 1 'مكون قالب القراءة/الحفظ الافتراضي 1:ADODB.Stream 2:FSO
ccStrPath = Server.MapPath("./")&"" 'مسار الجذر الافتراضي
نهاية
اسم الملكية العامة الفرعية (ccStrName_in)
ccStrName = LCase(تريم(ccStrName_in))
نهاية الملكية
الملكية العامة Let Format (ccStrFormat_in)
ccStrFormat = ccStrFormat_in
إذا كان InStr(LCase(Trim(ccStrFormat_in)),"utf") > 0 إذن
كسينتفورمات = -1
آخر
تنسيق سي إنت = 0
نهاية إذا
نهاية الخاصية
العامة لكائن السماح (ccStrObject_in)
ccStrObject_in = LCase(Trim(ccStrObject_in))
إذا كان InStr(ccStrObject_in,"fso") > 0 إذن
كائن كسينت = 2
آخر
كائن كسينت = 1
نهاية إذا
نهاية
الملكية العامة دع PublicCache(ccBlnPublicCache_in)
إذا كان ccBlnPublicCache_in = صحيح إذن
ccBlnPublicCache = صحيح
آخر
ccBlnPublicCache = خطأ
نهاية إذا
نهاية الملكية
الملكية العامة السماح لـ PrivateCache(ccBlnPrivateCache_in)
إذا كان ccBlnPrivateCache_in = صحيح إذن
ccBlnPrivateCache = صحيح
آخر
ccBlnPrivateCache = خطأ
نهاية إذا
نهاية
اتجاه الملكية العامة للملكية (ccStrDirection_in)
ccStrDirection = ccStrDirection_in
نهاية
ملف الملكية العامة للملكية (ccStrFile_in)
إذا كان ccStrFile_in <> "" إذن
ccStrFile = ccStrFile_in
نهاية إذا
نهاية الملكية
الملكية العامة Let SaveDirection(ccStrSaveDirection_in)
ccStrSaveDirection = ccStrSaveDirection_in
ملكية النهاية
ملكية عامة Let SaveFile(ccStrSaveFile_in)
إذا كان ccStrSaveFile_in <> "" ثم
ccStrSaveFile = ccStrSaveFile_in
نهاية إذا
نهاية الملكية
الملكية العامة احصل على الكود
الكود = ccStrCode
نهاية الملكية
الملكية العامة الحصول على التخزين
التخزين = ccStrStorage
نهاية الخاصية
العامة ClearCache
اتصل بـ ClearPrivateCache
اتصل بـ ClearPublicCache
إنهاء Sub
Public Sub ClearPrivateCache
ccStrCacheCode = ""
إنهاء Sub
Public Sub ClearPublicCache
التطبيق (ccStrCookieName&ccStrName) = ""
إنهاء Sub
Public Sub ClearStorage
ccStrStorage = ""
نهاية Sub
Public Sub ClearCode
سي سي ستركود = ""
نهاية الفرعية
العامة الفرعية SaveFront
ccStrStorage = ccStrCode & ccStrStorage
نهاية الفرعية
العامة الفرعية SaveLast
ccStrStorage = ccStrStorage & ccStrCode
End Sub
Public Sub SaveCode
استدعاء SaveToFile(1)
نهاية Sub
Public Sub SaveStorage
استدعاء SaveToFile(2)
End Sub
Public Sub SetVar(ccStrTag_in,ccStrValue_in)
ccStrCode = RePlace(ccStrCode,ccStrTag_in,ccStrValue_in)
End Sub
Private Sub SaveToFile(ccIntCode_in)
خافت ccStrSaveCode
إذا كان ccIntCode_in = 1 إذن
ccStrSaveCode = ccStrCode
آخر
ccStrSaveCode = ccStrStorage
نهاية إذا
إذا كان ccIntObject = 1 إذن
تعيين ccObjStream = Server.CreateObject("ADODB.Stream")
مع ccObjStream
.النوع = 2
الوضع = 3
.يفتح
.Charset = ccStrFormat
.Position = ccObjStream.Size
.كتابة النص ccStrSaveCode
.SaveToFile ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2
.يغلق
نهاية مع
تعيين ccObjStream = لا شيء
آخر
تعيين ccObjFSO = CreateObject("Scripting.FileSystemObject")
إذا كان ccObjFSO.FileExists(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile) = صحيح إذن
ccObjFSO.DeleteFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile)
نهاية إذا
تعيين ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2,True,ccIntFormat)
ccObjText.اكتب ccStrSaveCode
تعيين ccObjText = لا شيء
تعيين ccObjFSO = لا شيء
نهاية إذا
ccStrSaveCode = ""
نهاية
التحميل الفرعي العام
الفرعي
ccStrCode = ""
إذا كان ccBlnPrivateCache = True إذن
إذا كان ccFncIsEmpty(ccStrCacheCode) = خطأ، إذن
ccStrCode = ccStrCacheCode
الخروج من الباطن
نهاية إذا
نهاية إذا
إذا كان ccBlnPublicCache = صحيح إذن
إذا كان ccFncIsEmpty(Application(ccStrCookieName&ccStrName)) = خطأ إذن
ccStrCode = التطبيق (ccStrCookieName&ccStrName)
الخروج من الباطن
نهاية إذا
نهاية إذا
إذا كان ccIntObject = 1 إذن
تعيين ccObjStream = Server.CreateObject("ADODB.Stream")
مع ccObjStream
.النوع = 2
الوضع = 3
.يفتح
.Charset = ccStrFormat
.Position = ccObjStream.Size
.LoadFromFile ccStrPath & ccStrDirection & "" & ccStrFile
ccStrCode = .ReadText
.يغلق
نهاية مع
تعيين ccObjStream = لا شيء
آخر
تعيين ccObjFSO = CreateObject("Scripting.FileSystemObject")
إذا كان ccObjFSO.FileExists(ccStrPath & ccStrDirection & "" & ccStrFile) = صحيح إذن
تعيين ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrDirection & "" & ccStrFile,1,False,ccIntFormat)
ccStrCode = ccObjText.ReadAll
تعيين ccObjText = لا شيء
نهاية إذا
تعيين ccObjFSO = لا شيء
نهاية إذا
إذا كان ccBlnPrivateCache = True إذن
ccStrCacheCode = ccStrCode
نهاية إذا
إذا كان ccBlnPublicCache = صحيح إذن
التطبيق (ccStrCookieName&ccStrName) = ccStrCode
نهاية إذا
الفرعية
للفئة
النهائيةccFncIsEmpty(ByRef ccStrValue_in)
إذا كان IsNull(ccStrValue_in) أو IsEmpty(ccStrValue_in) أو ccStrValue_in = "" إذن
ccFncIsEmpty = صحيح
آخر
ccFncIsEmpty = خطأ
نهاية إذا
وظيفة النهاية
مثال
محتوى ملف القالب
<#test#>
رمز برنامج ASP
خافت objTemplate
تعيين objTemplate = ccClsTemplate الجديد
objTemplate.Name = "اختبار"
objTemplate.Format = "UTF-8"
'تمكين التخزين المؤقت
objTemplate.PublicCache = صحيح
objTemplate.PrivateCache = صحيح
'قم بتعيين دليل القالب واسم الملف
objTemplate.Direction = "اختبار"
objTemplate.File = "test.html"
'قم بتعيين دليل ملف الحفظ واسم الملف
objTemplate.SaveDirection = "اختبار"
objTemplate.SaveFile = "test3.html"
"تحميل القالب."
اتصل بـ objTemplate.Load
"إجراء استبدال النص."
استدعاء objTemplate.SetVar("<#test#>"،"مرحبًا بالعالم."")
"احفظ النص في التخزين."
اتصل بـ objTemplate.SaveLast
'أعد تحميل القالب، الذي سيتم إعادة تحميله من ذاكرة التخزين المؤقت الخاصة لتحسين الكفاءة.
اتصل بـ objTemplate.Load
"استبدال بقيمة أخرى."
اتصل بـ objTemplate.SetVar("<#test#>"، بواسطة Cloudream.")
'احفظ حتى نهاية التخزين للتخزين المؤقت
اتصل بـ objTemplate.SaveLast
'احفظ الرمز في الملف
اتصل بـ objTemplate.SaveCode
Response.Write objTemplate.Storage
Set objTemplate = لا شيء
عرض النتائج
مرحباً بالعالم. بواسطة Cloudream،
حفظ نتائج الملف
بواسطة كلاودريم.