推奨：ASPが作成したカレンダープログラム純粋なASPが作成したカレンダープログラムは、それ自体で美化することができ、ここで最もシンプルなCSSスタイルのみが利用できます。 。 。スタイルボディ{font-size：12px;マージン：20px 0 0 20px;パディング：0} tr、td {text-align：center;} /style％ '=========================================================================================================== ====================================================================================================== ====================================================================================================== ======================================================================================================
クラステンプレート
プライベートM_FILENAME、M_ROOT、M_UNKNOUNTS、M_LASTERROR、M_HALTONERR
プライベートM_Valuelist、M_BlockList
プライベートM_REGEXP
private sub class_initialize
m_valuelist = createObject（scripting.dictionary）をset set
m_blockList = createObject（scripting.dictionary）を設定します
m_regexp = new regexpを設定します
m_regexp.ignorecase = true
m_regexp.global = true
M_FILENAME =
M_ROOT =。
m_unknowns =削除
m_lasterror =
m_haltonerr = true
End Sub
プライベートSub Class_terminate
m_regexp =何も設定しません
m_blockmatches = Nothingを設定します
m_valuematches = Nothingを設定します
End Sub
公共財産get classname（）
className = Template
プロパティを終了します
公共財産getバージョン（）
バージョン= 1.0
プロパティを終了します
プライベート関数loadfile（byval chartype）
dim filename、fso、hndfile
filename = m_root
右（filename、1）<>/ and right（filename、1）<>/ then filename = filename＆/
filename = server.mappath（filename＆m_filename）
StreamObject = server.createObject（adodb.stream）を設定します
StreamObject.Type = 1
streamObject.mode = 3
StreamObject.Open
StreamObject.Position = 0
streamObject.loadfromfile filename
StreamObject.Position = 0
StreamObject.Type = 2
StreamObject.Charset = ChartType
loadfile = streamobject.readText（）
loadfile = then showerror（0x11 <br>ファイル＆m_filename＆！）をロードできませんでした）
エンド関数
プライベートサブシャワー（バイバルMSG）
M_LASTERROR = MSG
Response.Write <Span Style = font-size：12px; color：red>エラーID：＆</span>
m_haltonerrの場合、respons.End
End Sub
public sub set_root（byval値）
M_ROOT =値
End Sub
パブリック関数get_root（）
get_root = m_root
エンド関数
公共財産let root（byval value）
set_root（value）
プロパティを終了します
公共財産get root（）
root = m_root
プロパティを終了します
public sub set_file（byvalハンドル、byvalファイル名、byval chartype）
M_FILENAME = FILENAME
m_blocklist.addハンドル、loadfile（chartype）
End Sub
パブリック関数get_file（）
get_file = m_filename
エンド関数
public sub set_unknowns（adval未知数）
M_UNKNOUNTS =不明
End Sub
パブリック関数get_unknowns（）
get_unknowns = m_unknowns
エンド関数
公共財産let nowntss（byval未知）
m_unknowns =不明
プロパティを終了します
公共財産は不明を取得する（）
不明= m_unknowns
プロパティを終了します
public sub set_block（byval parent、byval blocktag、byval名）
薄暗い一致
m_regexp.pattern = <！ - /s+begin＆blocktag＆/s+ -->( [/s/s. ]*)< ！--/s+＆/s+ - >
m_blocklist.exists（parent）ではない場合は、ShowerRor（0x12 <br>未定義のブロックタグ＆親！）
一致= m_regexp.execute（m_blocklist.item（parent））を設定します
試合の各試合について
m_blocklist.add blocktag、match.submatches（0）
m_blocklist.item（parent）= falple（m_blocklist.item（parent）、match.value、{＆name＆}）
次
一致=何も設定しません
End Sub
public sub set_var（byval Name、byval Value、byval Append）
dim val
isnull（value）の場合、val = else val = value
m_valuelist.exists（name）の場合
appendの場合、m_valuelist.item（name）= m_valuelist.item（name）＆val _
else m_valuelist.item（name）= val
それ以外
m_valuelist.add名、値
ifを終了します
End Sub
public sub unset_var（byval名）
m_valuelist.exists（name）then m_valuelist.remove（name）の場合
End Sub
プライベート関数instanceValue（byval blocktag）
薄暗いキー、i
instanceValue = m_blockList.item（blocktag）
keys = m_valuelist.keys
i = 0からm_valuelist.count-1の場合
instanceValue = falple（instancevalue、{＆keys（i）＆}、m_valuelist.item（keys（i）））
次
エンド関数
パブリックサブパース（byval名、byval blocktag、byval append）
m_blocklist.exists（blocktag）ではない場合は、Showerror（0x12 <br>未定義のブロックタグ＆親！）
m_valuelist.exists（name）の場合
appendの場合、m_valuelist.item（name）= m_valuelist.item（name）＆instancevalue（blocktag）_
else m_valuelist.item（name）= instancevalue（blocktag）
それ以外
m_valuelist.add name、instancevalue（blocktag）
ifを終了します
End Sub
プライベート関数仕上げ（バイバルコンテンツ）
ケースM_Unknownsを選択します
ケースキープ仕上げ=コンテンツ
ケース削除
m_regexp.pattern =/{[^/t/r/n}]+/}
仕上げ= m_regexp.replace（content、）
ケースコメント
m_regexp.pattern =/{（[^/t/r/n}]+）/}
仕上げ= m_regexp.replace（content、<！ - テンプレート変数$ 1未定義 - >）
ケースELSE finish = content
[選択]を終了します
エンド関数
パブリックサブ出力（バイバル名）
m_valuelist.exists（name）ではない場合は、ShowerRor（0x13 <br>タグと名前を見つけることができませんでした！）
respons.write（finish（m_valuelist.item（name））））
End Sub
エンドクラス
共有：ASP要求オブジェクトの使用ASPには主に、サーバー、リクエスト、応答、アプリケーション、セッションの5つの組み込みオブジェクトがあります。それでは、例を挙げて説明しましょう。最初は最も一般的に使用される応答オブジェクトです。例1 WebページにHTMLドキュメントを出力するために応答を使用して、FrontPageエディター、または書面によるボード、メモ帳、その他の作家に上記の世代を入力できます。