推奨: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エディター、または書面によるボード、メモ帳、その他の作家に上記の世代を入力できます。