ASP Crazy テンプレート操作クラスの最も単純なテンプレート クラスを必要とする友人は、それを参照できます。
ファイル名: Awa_temp.Class.asp
次のようにコードをコピーします。
<%
「クレイジーカエル！テンプレート操作クラス」
'作者 Crazy~frog QQ:379969387 コミュニケーションへようこそ！
'バージョン V1.0;
クラスAwaTemp
パブリックAA
プライベート FSO、StrTemp、FileData、GetDatas、StrHtmlName、htmlwrite、StrLabel、StrLValues
'===========================================
'Constructor_Initialize FSO コンポーネント
'===========================================
プライベートサブクラス_Initialize()
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
エンドサブ
'===========================================
'Destructor_Destroy FSO コンポーネント
'===========================================
プライベートサブクラス_terminate()
FSO=何も設定しない
エンドサブ
'===========================================
'クラス属性
'===========================================
'バージョン情報
パブリック プロパティのバージョンの取得
Version="クレイジー〜カエル! テンプレート操作クラス! V1.0 バージョン;"
終了プロパティ
'テンプレートのアドレスと名前を取得します
Public プロパティ Let Temp(ByVal Values)
StrTemp=値
終了プロパティ
'生成されたファイルのファイル名を取得する
Public プロパティ Let HtmlName(ByVal Values)
StrHtmlName=値
終了プロパティ
'タグを取得
Public プロパティ Let Label(ByVal Values)
StrLabel=値
終了プロパティ
'ラベルを置き換える値を取得します
Public プロパティ Let LValues(ByVal Values)
StrLValues=値
終了プロパティ
'===========================================
'クラスメソッド
'===========================================
'テンプレートの設定と存在するかどうかを確認します
プライベート関数チェック()
StrTemp="" の場合
Check="<span>エラー: テンプレート ファイルの保存場所が設定されていません!</span>"
それ以外
FSO.FileExists(StrTemp)=false の場合
Check="<span>エラー: 指定されたテンプレートは存在しません!</span>"
それ以外
チェック=true
終了の場合
終了の場合
終了機能
'テンプレートページを読む
パブリックサブReadTemp()
Check()<>true の場合
Response.書き込みチェック()
Response.End()
それ以外
Set GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas.Close
GetData=nothing を設定します
終了の場合
エンドサブ
'コンテンツを置き換える
パブリック関数 Rep()
StrLabel="" の場合
Response.Write "<span>エラー: 置換されるタグが設定されていません!</span>"
Response.End()
終了の場合
StrLValues="" の場合
Response.Write "<span>エラー: 置換タグのデータが設定されていません!</span>"
Response.End()
終了の場合
FileData=Replace(FileData,StrLabel,StrLValues)
終了機能
'出力
パブリックサブエコー()
Response.Write FileData
エンドサブ
'静的ページを生成
パブリックサブGetHtml()
StrHtmlName="" の場合
Response.Write "<span>エラー: 生成された HTML ファイルの保存場所とファイル名が設定されていません!</span>"
Response.End()
終了の場合
htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true) を設定します。
'Webページのコンテンツを書く
htmlwrite.WriteLine ファイルデータ
htmlwrite.Close
sethtmlwrite=何もしない
エンドサブ
終了クラス
%>
使用例:
インデックス.asp
次のようにコードをコピーします。
<!--#include file="Awa_temp.Class.asp"-->
<%
awa=新しいAwaTempを設定します
阿波と
.Temp="temp.tpl"
.ReadTemp
.Label="{tl1}"
.LValues="ボールが痛い"
.Rep
。エコー
'.HtmlName="aa/index.html"
'.GetHtml
で終わる
awa=nothing を設定します
%>
ステンシル
temp.tpl:
次のようにコードをコピーします。
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<頭>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無題のドキュメント</title>
</head>
<本文>
<テーブル>
<tr>
<td>{tl1}</td>
<td>{tl2}</td>
<td>{tl3}</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</テーブル>
</body>
</html>