Fitur dapat mengatur cache pribadi atau cache publik untuk meningkatkan efisiensi. Anda dapat dengan bebas memilih untuk menggunakan komponen Stream atau komponen FSO. Mendukung pengkodean file khusus dan menyimpan
atribut file.
Nama
Teks, nama templat, terutama digunakan untuk membedakan templat yang berbeda saat menggunakan cache publik.
Format
Teks, jenis pengkodean file, nilai yang dapat diatur.
Obyek
Teks, menggunakan komponen, dapat menetapkan nilai:
Sungai kecil
FSO
Cache Publik
Nilai Boolean, gunakan cache publik. Saat diaktifkan, file template akan disimpan ke objek Aplikasi. Objek lain yang mereferensikan kelas template ini dapat dibaca dari cache dengan menetapkan nilai Nama yang sama dan juga membuka cache publik. (Metode pemuatan)
Cache Pribadi
Nilai Boolean, gunakan cache pribadi. Saat diaktifkan, file templat akan disimpan ke variabel internal objek, dan objek yang sama yang mereferensikan kelas templat ini dapat membacanya. (Metode pemuatan)
Arah
Teks, direktori tempat file template berada, tidak ada garis miring atau garis miring terbalik sebelum dan sesudahnya, seperti: template/default
Mengajukan
Teks, nama file template, tanpa garis miring atau garis miring terbalik di depan, seperti: default.html
SimpanArah
Teks, direktori tempat file disimpan, tanpa garis miring atau garis miring terbalik sebelum dan sesudahnya, seperti: html/default
Simpan File
Teks, simpan nama file, tanpa garis miring atau garis miring terbalik di depan, seperti: default.html
obyek
Kode
Teks, teks saat ini, objek ini diganti saat menggunakan metode SetVar, dan template di-overload ke objek ini saat menggunakan metode Load
Penyimpanan
Teks, teks yang disimpan. Saat menggunakan metode SaveFront atau SaveLast, teks dalam objek Kode disimpan ke awal atau akhir objek ini.
metode
Hapus Cache
Hapus cache publik dan pribadi (memaksa memuat ulang template dari file)
Hapus Cache Publik
Hapus cache publik
Hapus PrivateCache
Hapus cache pribadi
Kode Jelas
Hapus objek Kode
Hapus Penyimpanan
Hapus objek Penyimpanan
Simpan Depan
Simpan teks dalam objek Kode saat ini ke awal objek Penyimpanan
Simpan Terakhir
Simpan teks dalam objek Kode saat ini ke akhir objek Penyimpanan
Simpan Kode
Simpan teks dalam objek Kode saat ini ke file
Simpan Penyimpanan
Simpan teks di objek Penyimpanan saat ini ke file
SetVar
Parameter untuk mengganti teks pada objek Kode saat ini: teks yang akan diganti, teks yang akan diganti
Memuat
Muat file templat ke objek Kode. Ketika cache pribadi diaktifkan dan ada, itu diambil dari cache pribadi. Ketika diaktifkan dan cache publik ada, itu diambil dari cache publik. itu diambil dari file.
variabel internal
ccStrPath
Direktori root default
ccStrCookieName
Awalan nama objek Aplikasi default
kode
Kelas ccClsTemplate
CccStrCode Pribadi, ccStrStorage
Kode PrivateccStrCache
CcBlnPublicCache pribadi, ccBlnPrivateCache
CccStrName pribadi,ccStrCookieName
CccStrDirection pribadi,ccStrSaveDirection,ccStrFile,ccStrSaveFile,ccStrPath
CcObjStream pribadi,ccObjFSO,ccStrFormat,ccIntObject,ccObjText,ccIntFormat
Sub Class_Initialize Pribadi
ccStrName = "default" 'Nama default
ccBlnPublicCache = Salah
ccBlnPrivateCache = Salah
ccStrFile = "cache.html"
ccStrSaveFile = "simpan_cache.html"
ccStrCookieName = "ccClass_Template" 'Awalan nama objek aplikasi
ccStrFormat = "UTF-8" 'UTF-8|ASCII|GB2312|BIG5
ccIntFormat = -1
ccIntObject = 1 'Baca/simpan komponen template default 1:ADODB.Stream 2:FSO
ccStrPath = Server.MapPath("./")&"" 'Jalur root default
Akhiri Sub
Properti Publik Biarkan Nama (ccStrName_in)
ccStrName = LCase(Potong(ccStrName_in))
Properti Akhir
(ccStrFormat_in)
ccStrFormat = ccStrFormat_in
Jika InStr(LCase(Trim(ccStrFormat_in)),"utf") > 0 Maka
ccIntFormat = -1
Kalau tidak
ccIntFormat = 0
Akhiri Jika
Properti Akhir
Properti Publik Biarkan Objek (ccStrObject_in)
ccStrObject_in = LCase(Trim(ccStrObject_in))
Jika InStr(ccStrObject_in,"fso") > 0 Lalu
ccIntObjek = 2
Kalau tidak
ccIntObjek = 1
Akhiri Jika
Properti Akhir
Properti Publik Biarkan PublicCache(ccBlnPublicCache_in)
Jika ccBlnPublicCache_in = Benar Maka
ccBlnPublicCache = Benar
Kalau tidak
ccBlnPublicCache = Salah
Akhiri Jika
Properti Akhir
Properti Publik Biarkan PrivateCache(ccBlnPrivateCache_in)
Jika ccBlnPrivateCache_in = Benar Maka
ccBlnPrivateCache = Benar
Kalau tidak
ccBlnPrivateCache = Salah
Akhiri Jika
Properti Akhir
Properti Umum Biarkan Arah(ccStrDirection_in)
ccStrDirection = ccStrDirection_in
Properti Akhir
Properti Publik Biarkan File (ccStrFile_in)
Jika ccStrFile_in <> "" Lalu
ccStrFile = ccStrFile_in
Akhiri Jika
Properti Akhir
Properti Publik Biarkan SaveDirection(ccStrSaveDirection_in)
ccStrSaveDirection = ccStrSaveDirection_in
Properti Akhir
Properti Publik Biarkan SaveFile(ccStrSaveFile_in)
Jika ccStrSaveFile_in <> "" Lalu
ccStrSaveFile = ccStrSaveFile_in
Akhiri Jika
Properti Akhir
Properti Umum Dapatkan Kode
Kode = ccStrCode
Properti Akhir
Properti Umum Dapatkan Penyimpanan
Penyimpanan=ccStrStorage
Akhir Properti
Publik Sub ClearCache
Hubungi ClearPrivateCache
Hubungi ClearPublicCache
Akhiri Sub
Publik Sub ClearPrivateCache
ccStrCacheCode = ""
Akhiri Sub
Publik Sub ClearPublicCache
Aplikasi(ccStrCookieName&ccStrName) = ""
Akhiri
Sub Publik ClearStorage
ccStrPenyimpanan = ""
Akhiri Sub
Publik Sub ClearCode
ccStrKode = ""
Akhiri Sub
Publik Sub SaveFront
ccStrStorage = ccStrCode & ccStrStorage
Akhiri Sub
Publik Sub Simpan Terakhir
ccStrStorage = ccStrStorage & ccStrCode
Akhiri Sub
Publik Sub SaveCode
Panggil SimpanToFile(1)
Akhiri
Sub Penyimpanan Penyimpanan Sub Publik
Panggil SimpanToFile(2)
Akhir Sub
Publik Sub SetVar (ccStrTag_in,ccStrValue_in)
ccStrCode = Ganti(ccStrCode,ccStrTag_in,ccStrValue_in)
Akhiri Sub
Sub Pribadi SaveToFile (ccIntCode_in)
Redupkan ccStrSaveCode
Jika ccIntCode_in = 1 Maka
ccStrSaveCode = ccStrCode
Kalau tidak
ccStrSaveCode = ccStrStorage
Akhiri Jika
Jika ccIntObject = 1 Maka
Setel ccObjStream = Server.CreateObject("ADODB.Stream")
Dengan ccObjStream
.Jenis = 2
.Modus = 3
.Membuka
.Charset = ccStrFormat
.Posisi = ccObjStream.Ukuran
.WriteText ccStrSaveCode
.SaveToFile ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2
.Menutup
Akhiri Dengan
Setel ccObjStream = Tidak Ada
Kalau tidak
Setel ccObjFSO = CreateObject("Scripting.FileSystemObject")
Jika ccObjFSO.FileExists(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile) = Benar Maka
ccObjFSO.DeleteFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile)
Akhiri Jika
Setel ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2,True,ccIntFormat)
ccObjText.Tulis ccStrSaveCode
Setel ccObjText = Tidak Ada
Setel ccObjFSO = Tidak Ada
Akhiri Jika
ccStrSaveCode = ""
Akhiri Sub Sub
Publik Publik
ccStrKode = ""
Jika ccBlnPrivateCache = Benar, Maka
Jika ccFncIsEmpty(ccStrCacheCode) = Salah Maka
ccStrCode = ccStrCacheCode
Keluar dari Sub
Akhiri Jika
Akhiri Jika
Jika ccBlnPublicCache = Benar, Maka
Jika ccFncIsEmpty(Application(ccStrCookieName&ccStrName)) = Salah Maka
ccStrCode = Aplikasi(ccStrCookieName&ccStrName)
Keluar dari Sub
Akhiri Jika
Akhiri Jika
Jika ccIntObject = 1 Maka
Setel ccObjStream = Server.CreateObject("ADODB.Stream")
Dengan ccObjStream
.Jenis = 2
.Modus = 3
.Membuka
.Charset = ccStrFormat
.Posisi = ccObjStream.Ukuran
.LoadFromFile ccStrPath & ccStrDirection & "" & ccStrFile
ccStrCode = .BacaTeks
.Menutup
Akhiri Dengan
Setel ccObjStream = Tidak Ada
Kalau tidak
Setel ccObjFSO = CreateObject("Scripting.FileSystemObject")
Jika ccObjFSO.FileExists(ccStrPath & ccStrDirection & "" & ccStrFile) = Benar Maka
Setel ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrDirection & "" & ccStrFile,1,False,ccIntFormat)
ccStrCode = ccObjText.BacaSemua
Setel ccObjText = Tidak Ada
Akhiri Jika
Setel ccObjFSO = Tidak Ada
Akhiri Jika
Jika ccBlnPrivateCache = Benar, Maka
ccStrCacheCode = ccStrCode
Akhiri Jika
Jika ccBlnPublicCache = Benar, Maka
Aplikasi(ccStrCookieName&ccStrName) = ccStrCode
Akhiri Jika
Fungsi
Kelas
Sub Akhir Akhir
ccFncIsEmpty(ByRef ccStrValue_in)
Jika IsNull(ccStrValue_in) Atau IsEmpty(ccStrValue_in) Atau ccStrValue_in = "" Lalu
ccFncIsEmpty = Benar
Kalau tidak
ccFncIsEmpty = Salah
Akhiri Jika
Fungsi Akhir
Contoh
Konten file templat
<#test#>
Kode program ASP
Redupkan objekTemplate
Setel objTemplate = ccClsTemplate baru
objTemplate.Name = "Uji"
objTemplate.Format = "UTF-8"
'Aktifkan cache
objTemplate.PublicCache = Benar
objTemplate.PrivateCache = Benar
'Tetapkan direktori template dan nama file
objTemplate.Direction = "tes"
objTemplate.File = "test.html"
'Atur direktori penyimpanan file dan nama file
objTemplate.SaveDirection = "tes"
objTemplate.SaveFile = "test3.html"
'Muat templat
Panggil objTemplate.Load
'Lakukan penggantian teks
Panggil objTemplate.SetVar("<#test#>","Halo dunia.")
'Simpan teks ke Penyimpanan
Hubungi objTemplate.SaveLast
'Muat ulang templat, yang akan dimuat ulang dari cache pribadi untuk meningkatkan efisiensi.
Panggil objTemplate.Load
'ganti dengan nilai lain
Panggil objTemplate.SetVar("<#test#>"," Oleh Cloudream.")
'Simpan hingga akhir Penyimpanan untuk penyimpanan sementara
Hubungi objTemplate.SaveLast
'Simpan Kode ke file
Hubungi objTemplate.SaveCode
Respon.Tulis objTemplate.Penyimpanan
Set objTemplate = Tidak ada
Tampilkan hasil
Halo dunia. Oleh Cloudream.
Simpan hasil file
Oleh Cloudrea.