プライベート キャッシュまたはパブリック キャッシュを設定して、ストリーム コンポーネントまたは FSO コンポーネントの使用を自由に選択でき、ファイル
属性を保存できます。
名前
テキスト (テンプレート名) は、主にパブリック キャッシュを使用するときにさまざまなテンプレートを区別するために使用されます。
形式
テキスト、ファイルエンコーディングタイプ、設定可能な値。
物体
テキストは、コンポーネントを使用して値を設定できます。
ストリーム
FSO
パブリックキャッシュ
ブール値。パブリック キャッシュを使用します。オンにすると、このテンプレート クラスを参照する他のオブジェクトが、同じ Name 値を設定してパブリック キャッシュを開くことによって、キャッシュから読み取ることができます。 (ロード方法)
プライベートキャッシュ
ブール値、プライベート キャッシュを使用します。オンにすると、テンプレート ファイルがオブジェクトの内部変数に保存され、このテンプレート クラスを参照する同じオブジェクトがそれを読み取ることができます。 (ロード方法)
方向
テキスト、テンプレート ファイルが配置されているディレクトリ。前後にスラッシュやバックスラッシュはありません。例: template/default
ファイル
テキスト、テンプレート ファイル名。前にスラッシュまたはバックスラッシュはありません。例:default.html
保存方向
テキスト、ファイルが保存されるディレクトリ。前後にスラッシュやバックスラッシュは含まれません。例: html/default
ファイルの保存
テキスト、保存ファイル名。前にスラッシュまたはバックスラッシュはありません。例:default.html
物体
コード
Text、現在のテキスト。SetVar メソッドを使用するとこのオブジェクトが置き換えられ、Load メソッドを使用するとテンプレートがこのオブジェクトにオーバーロードされます。
ストレージ
テキスト、保存されたテキスト。SaveFront または SaveLast メソッドを使用すると、Code オブジェクト内のテキストがこのオブジェクトの先頭または末尾に保存され、ループ後にすべてのコードを取得するために使用できます。
方法
キャッシュのクリア
パブリックキャッシュとプライベートキャッシュをクリアします (ファイルからテンプレートを強制的にリロードします)
パブリックキャッシュのクリア
パブリックキャッシュをクリアする
プライベートキャッシュのクリア
プライベートキャッシュをクリアする
クリアコード
コードオブジェクトのクリア
ストレージのクリア
ストレージオブジェクトのクリア
セーブフロント
現在の Code オブジェクトのテキストを Storage オブジェクトの先頭に保存します
最後に保存
現在の Code オブジェクト内のテキストを Storage オブジェクトの最後に保存します。
コードの保存
現在の Code オブジェクト内のテキストをファイルに保存します
ストレージの保存
現在の Storage オブジェクト内のテキストをファイルに保存します
SetVar
現在の Code オブジェクト内のテキストを置換するためのパラメーター: 置換されるテキスト、置換されるテキスト
負荷
テンプレート ファイルを Code オブジェクトにロードします。プライベート キャッシュが有効であり、パブリック キャッシュが存在する場合は、パブリック キャッシュからロードされます。ファイルからロードされます。
内部変数
ccStrPath
デフォルトのルートディレクトリ
ccStrCookieName
デフォルトのアプリケーションオブジェクト名のプレフィックス
コード
クラス ccClsTemplate
プライベート ccStrCode、ccStrStorage
PrivateccStrCacheCode
プライベート ccBlnPublicCache、ccBlnPrivateCache
プライベート ccStrName、ccStrCookieName
プライベート ccStrDirection、ccStrSaveDirection、ccStrFile、ccStrSaveFile、ccStrPath
プライベート ccObjStream、ccObjFSO、ccStrFormat、ccIntObject、ccObjText、ccIntFormat
プライベート サブ Class_Initialize
ccStrName = "default" 'デフォルト名
ccBlnPublicCache = False
ccBlnPrivateCache = False
ccStrFile = "キャッシュ.html"
ccStrSaveFile = "save_cache.html"
ccStrCookieName = "ccClass_Template" 'アプリケーション オブジェクト名のプレフィックス
ccStrFormat = "UTF-8" 'UTF-8|ASCII|GB2312|BIG5
ccIntFormat = -1
ccIntObject = 1 'デフォルトの読み取り/保存テンプレートコンポーネント 1:ADODB.Stream 2:FSO
ccStrPath = Server.MapPath("./")&"" 'デフォルトのルート パス
End Sub
パブリック プロパティ Let Name(ccStrName_in)
ccStrName = LCase(Trim(ccStrName_in))
End プロパティ
Public プロパティ Let Format(ccStrFormat_in)
ccStrFormat = ccStrFormat_in
InStr(LCase(Trim(ccStrFormat_in)),"utf") > 0 の場合
ccIntFormat = -1
それ以外
ccIntFormat = 0
終了の場合
End プロパティ
Public プロパティ Let Object(ccStrObject_in)
ccStrObject_in = LCase(Trim(ccStrObject_in))
InStr(ccStrObject_in,"fso") > 0 の場合
ccIntObject = 2
それ以外
ccIntObject = 1
終了の場合
End プロパティ
Public プロパティ Let PublicCache(ccBlnPublicCache_in)
ccBlnPublicCache_in = True の場合
ccBlnPublicCache = True
それ以外
ccBlnPublicCache = False
終了の場合
End プロパティ
Public プロパティ Let PrivateCache(ccBlnPrivateCache_in)
ccBlnPrivateCache_in = True の場合
ccBlnPrivateCache = True
それ以外
ccBlnPrivateCache = False
終了の場合
End プロパティ
Public プロパティ Let Direction(ccStrDirection_in)
ccStrDirection = ccStrDirection_in
End プロパティ
Public プロパティ Let File(ccStrFile_in)
ccStrFile_in <> "" の場合
ccStrFile = ccStrFile_in
終了の場合
End プロパティ
Public プロパティ Let SaveDirection(ccStrSaveDirection_in)
ccStrSaveDirection = ccStrSaveDirection_in
End プロパティ
Public プロパティ Let SaveFile(ccStrSaveFile_in)
ccStrSaveFile_in <> "" の場合
ccStrSaveFile = ccStrSaveFile_in
終了の場合
End プロパティ
Public プロパティ Get Code
コード = ccStrCode
End プロパティ
Public プロパティ Get Storage
ストレージ=ccStrStorage
End プロパティ
Public Sub ClearCache
ClearPrivateCache を呼び出す
ClearPublicCache を呼び出す
End Sub
Public Sub ClearPrivateCache
ccStrCacheCode = ""
End Sub
Public Sub ClearPublicCache
アプリケーション(ccStrCookieName&ccStrName) = ""
エンドサブ
パブリックサブClearStorage
ccStrStorage = ""
End Sub
Public Sub ClearCode
ccStrCode = ""
End Sub
Public Sub SaveFront
ccStrStorage = ccStrCode & ccStrStorage
End Sub
Public Sub SaveLast
ccStrStorage = ccStrStorage & ccStrCode
End Sub
Public Sub SaveCode
SaveToFile(1) を呼び出す
End 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 を使用する
.Type = 2
.モード = 3
。開ける
.Charset = ccStrFormat
.Position = ccObjStream.Size
.WriteText ccStrSaveCode
.SaveToFile ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2
。近い
で終わる
ccObjStream = なしを設定します
それ以外
ccObjFSO = CreateObject("Scripting.FileSystemObject") を設定します。
ccObjFSO.FileExists(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile) = True の場合
ccObjFSO.DeleteFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile)
終了の場合
ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2,True,ccIntFormat) を設定します。
ccObjText.Write ccStrSaveCode
ccObjText = なしを設定します
ccObjFSO = なしを設定します
終了の場合
ccStrSaveCode = ""
エンドサブ
パブリックサブロード
ccStrCode = ""
ccBlnPrivateCache = True の場合
ccFncIsEmpty(ccStrCacheCode) = False の場合
ccStrCode = ccStrCacheCode
出口サブ
終了の場合
終了の場合
ccBlnPublicCache = True の場合
ccFncIsEmpty(Application(ccStrCookieName&ccStrName)) = False の場合
ccStrCode = アプリケーション(ccStrCookieName&ccStrName)
出口サブ
終了の場合
終了の場合
ccIntObject = 1 の場合
ccObjStream = Server.CreateObject("ADODB.Stream") を設定します。
ccObjStream を使用する
.Type = 2
.モード = 3
。開ける
.Charset = ccStrFormat
.Position = ccObjStream.Size
.LoadFromFile ccStrPath & ccStrDirection & "" & ccStrFile
ccStrCode = .ReadText
。近い
で終わる
ccObjStream = なしを設定します
それ以外
ccObjFSO = CreateObject("Scripting.FileSystemObject") を設定します。
ccObjFSO.FileExists(ccStrPath & ccStrDirection & "" & ccStrFile) = True の場合
ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrDirection & "" & ccStrFile,1,False,ccIntFormat) を設定します。
ccStrCode = ccObjText.ReadAll
ccObjText = なしを設定します
終了の場合
ccObjFSO = なしを設定します
終了の場合
ccBlnPrivateCache = True の場合
ccStrCacheCode = ccStrCode
終了の場合
ccBlnPublicCache = True の場合
アプリケーション(ccStrCookieName&ccStrName) = ccStrCode
終了の場合
End Sub 終了
クラス
関数 ccFncIsEmpty(ByRef ccStrValue_in)
IsNull(ccStrValue_in) または IsEmpty(ccStrValue_in) または ccStrValue_in = "" の場合
ccFncIsEmpty = True
それ以外
ccFncIsEmpty = False
終了の場合
終了機能
例
テンプレートファイルの内容
<#test#>
ASP プログラム コード
Dim objTemplate
objTemplate = 新しい ccClsTemplate を設定します
objTemplate.Name = "テスト"
objTemplate.Format = "UTF-8"
'キャッシュを有効にする
objTemplate.PublicCache = True
objTemplate.PrivateCache = True
'テンプレートのディレクトリとファイル名を設定します
objTemplate.Direction = "テスト"
objTemplate.File = "テスト.html"
'保存ファイルのディレクトリとファイル名を設定
objTemplate.SaveDirection = "テスト"
objTemplate.SaveFile = "test3.html"
'テンプレートをロード
objTemplate.Load を呼び出す
'テキストの置換を実行します
objTemplate.SetVar("<#test#>","Hello world.") を呼び出します。
'テキストをストレージに保存
objTemplate.SaveLast を呼び出す
'テンプレートを再ロードします。効率を向上させるためにプライベート キャッシュから再ロードされます。
objTemplate.Load を呼び出す
'他の値に置き換えます
objTemplate.SetVar("<#test#>"," By Cloudream.") を呼び出します。
'一時保存用にStorageの末尾に保存
objTemplate.SaveLast を呼び出す
'コードをファイルに保存
objTemplate.SaveCode を呼び出す
Response.Write objTemplate.Storage
Set objTemplate = Nothing
結果を表示
こんにちは、Cloudream による
ファイル結果の保存
。
クラウドドリーム製。