パラメータの説明
'デモネームで使用されるテンプレート [../demo/*.html]
'savename 保存場所と名前 [../demo/*.html]
'strflag 置換されるフラグ [$aaa$,$bbb$]
'strcontent 各タグの置換内容 [aaa$bbb]
'================================================ = ============================
サブ makepage(デモ名、保存名、strflag、strcontent)
薄暗い fso、htmlwrite
ディムストラアウト
'//ファイル システム オブジェクトを作成 Set fso=Server.CreateObject(Scripting.FileSystemObject)
'// Web ページのテンプレート ファイルを開き、テンプレートのコンテンツを読み取ります
htmlwrite=fso.OpenTextFile(Server.MapPath(demoname)) を設定します。
strOut=htmlwrite.ReadAll
htmlwrite.close
'================================================ = ============================
strflag=split(strflag,,)
for i = 0 から ubound(strflag)
strcont=split(strcontent,$)
strOut=Replace(strOut,strflag(i),strcont(i))
'response.write strflag(i)&=&[&strcont(i)&]
次
'// テンプレート内のタグを実際のコンテンツに置き換えます
'================================================ = ============================
'//生成する静的ページを作成
htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true) を設定します。
'//Webページのコンテンツを書き込む
htmlwrite.WriteLine strOut
htmlwrite.close
応答.書き込み
'// ファイルシステムオブジェクトを解放します
sethtmlwrite=何もしない
fso=何も設定しない
エンドサブ
-------------------------------------------------- -------------------------------------------------- --------------------------------------
使用例：
'タグを置き換える
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'ラベルに対応する値を置き換えます
Hostname=Request.ServerVariables(SERVER_NAME)' 現在のドメイン名を取得します
set rs=conn.execute([WebConfig] から webtitle_cn、webkey_cn、webDescription_cn、weblogo、webbanner を選択)
commentstr=ホスト名&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
rs.close
rs=何も設定しない
'サブルーチンを呼び出す
makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr) を呼び出します。