<% '@@@@@@@@@@ 入力方法 @@@@@@@@@@ '@停止日時を指定の場所に入力(例:2004/01/24 4:30:00) 'A文言を指定の場所に入力 '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Dim StartDate_Caution: StartDate_Caution = "2008/09/24 11:00:00" '@@@@@ ←@開始時間を入力してください@@@@@ Dim StopDate_Caution: StopDate_Caution = "2008/09/24 11:30:00" '@@@@@ ←A停止日時を入力してください@@@@@ If Now < CDate(StopDate_Caution) Then If Now > CDate(StartDate_Caution) Then Response.Write "
" Response.Write "
★本日 11:30〜11:40までサーバメンテナンスのため各サービスをご利用頂けなくなります。予めご了承ください。
" '@@@@@ ←Aここに文言を入れてください @@@@@ Response.Write "
" End If End If %>