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()
FSO=Server.CreateObject(Scripting.FileSystemObject) を設定します。
エンドサブ
'===========================================
'Destructor_Destroy FSO コンポーネント
'===========================================
プライベートサブクラス_terminate()
FSO=何も設定しない
エンドサブ
'===========================================
'クラス属性
'===========================================
'バージョン情報
パブリック プロパティのバージョンの取得
バージョン=Crazy~frog! テンプレート操作クラス 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 style='color:red;'>エラー: テンプレート ファイルの保存場所が設定されていません。 </スパン>
それ以外
FSO.FileExists(StrTemp)=false の場合
Check=<span style='color:red;'>エラー: 指定されたテンプレートは存在しません。 </スパン>
それ以外
チェック=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 style='color:red;'>エラー: 置換されるタグが設定されていません。 </スパン>
Response.End()
終了の場合
If StrLValues= then
Response.Write <span style='color:red;'>エラー: 置換タグのデータが設定されていません。 </スパン>
Response.End()
終了の場合
FileData=Replace(FileData,StrLabel,StrLValues)
終了機能
'出力
パブリックサブエコー()
Response.Write FileData
エンドサブ
'静的ページを生成
パブリックサブGetHtml()
StrHtmlName= の場合
Response.Write <span style='color:red;'>エラー: 生成された HTML ファイルの保存場所とファイル名が設定されていません。 </スパン>
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;
<title>無題のドキュメント</title>
</head>
<本文>
<テーブル幅=200 ボーダー=1>
<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>