<%
'
' VB4CGI ADOtimex.asp Ver 0.91 1999年対応版
' 日程表 ADO データーベース対応ASP版
' 原作者 古口正巳 [koguchi@sf.airnet.ne.jp] 1998.9
'
' このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。
' 各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。
'
' VB4CGI.incが必要 プログラムが存在するディレクトリにtime.mdbが必要
' コメントに従って書き換えれば、入力の不許可、項目が入力してある日だけを表示できる。
'CGIプログラムのある位置 環境変数CGI_ScriptNameをPublic Const CGI_ScriptName = "/aspsamp/ADOtimex.asp" 等に置換しても良い
' データーが残るので日記帳代りにも使えます。
' 実行はhttp://xxx/aspsamp/ADOtimex.aspと打ち込みます。xxxは実行するwwwサーバーの名前です。
'Option Explicit
Public Const DB_NAME = "time.mdb" 'データーベース名
Public Const ADOTIME_TITLE = "日程表(ADO ASP)"
Public Const ADOCALX_TITLE = "カレンダー形式掲示板(ADO ASP)"
Public Const FOOTSTR = "VBCGI ADO_TIME Ver 0.9 By M.Koguchi
" '連絡先などやバージョン表示の例。好きなように直してください。
Public Const CAL_LINK = "_" '時間表示用のリンク文字
Public Const TATE_LINK = "↓" '横表示用のリンク文字
Public Const YOKO_LINK = "→" '横表示用のリンク文字
'年間表示
Public Const T_COL = 3 '横に表示する月の数
Public Const START_WEEKDAY = 1 '表示を開始する曜日 日-土 = 1-7
Public Const NO_DAY = " ・" '日がないときに表示する文字
Public Const BG_COLOR = "#C0FFC0" '普通の日の背景色
Public Const BG_TODAY = "#FFA0FF" '今日の背景色
Public Const BG_WEEK = "#FFFFA0" '曜日の背景色
SHOW_YLINK = True 'リンクを許可するかどうか False,True
'１ケ月用
Public Const BG_TITLE = "#FFFFC0" '１月用のタイトルの背景色
Public Const BG_DAY = "#E0FFFF" '１月用の日付の背景色
Public Const BG_WEEKD = "#FFFFE0" '１月用の曜日の背景色
Public Const BG_CAL = "#F0FFE0" '１月用の内容の背景色
SHOW_ALL = True '１月用の入力のない日を表示するかどうか False,True
SHOW_LINK = True '１月用のリンクを許可するかどうか False,True
SHOW_TIME = True '日程表の使用を許可するかどうか False,True
'全体
Public Const CR_LINK = "#000000" '全体のリンク色の設定
Public Const CR_VLINK = "#600080" '全体の参照済みリンクの色の設定
Public Const V_HOL = true '祝日を表示するかどうか
If START_WEEKDAY = 1 Then '週末を代入する
END_WEEKDAY = 7 '日曜なら土曜で
Else
END_WEEKDAY = START_WEEKDAY - 1 'それ以外は前の曜日で
End If
'日程表
Public const SHOW_ALLT = False '総ての時間を表示するか False, True
S_TIME = 7 '表示を開始する時刻
E_TIME = 20 '表示を終了する時刻
If SHOW_ALLT Then
S_TIME = 0
E_TIME = 23
End If
Dim week(7) '表示する曜日の設定
week(1) = "日"
week(2) = "月"
week(3) = "火"
week(4) = "水"
week(5) = "木"
week(6) = "金"
week(7) = "土"
Dim fsweek(7) '表示する曜日のフォントの設定(開始)
fsweek(1) = ""
fsweek(2) = ""
fsweek(3) = ""
fsweek(4) = ""
fsweek(5) = ""
fsweek(6) = ""
fsweek(7) = ""
fsn_hol = "" '祝日用
Dim feweek(7) '表示する曜日のフォントの設定(終了)
feweek(1) = ""
feweek(2) = ""
feweek(3) = ""
feweek(4) = ""
feweek(5) = ""
feweek(6) = ""
feweek(7) = ""
fen_hol = "" '祝日用
vmonth = getcgivalue("month")
vdate = getcgivalue("date")
Select case GetCgiValue("mode")
case "jidou"
jidou
case "yoko"
session("time") = False
session("yoko") = True
session("3month") = False
show_month left(vmonth, 4), right(vmonth, 2), 1
case "3month"
session("yoko") = False
session("3month") = True
if vmonth <> "" then show_year left(vmonth, 4), right(vmonth, 2) - 1, 3
SHOW_ALL = False '１月用の入力のない日を表示するかどうか False,True
SHOW_LINK = False '１月用のリンクを許可するかどうか False,True
cal vmonth
case "tate"
SHOW_ALL = True '１月用のリンクを許可するかどうか False,True
session("time") = False
session("yoko") = False
session("3month") = False
cal vmonth
case "calwrite"
cal_update getcgivalue("date")
jidou
case "calup"
cal_input vdate
case "year"
SHOW_YLINK = False 'リンクを許可するかどうか False,True
SHOW_TIME = False '時刻を表示するかどうか
session("time") = False
session("yoko") = False
session("3month") = False
show_year getcgivalue("year"), 1, 12
SHOW_TIME = True '時刻を表示するかどうか
SHOW_YLINK = True 'リンクを許可するかどうか False,True
case "timeoff"
session("time") = False
jidou
case "long"
session("time") = True
session("long") = True
tim GetCgiValue("day")
case "show"
session("time") = True
session("long") = False
tim GetCgiValue("day")
case "write"
tim_input getcgivalue("day"), getcgivalue("time")
case "update"
tim_update getcgivalue("day"), getcgivalue("time")
tim getcgivalue("day")
case else
'tim dtostr(now) '月が指定されてないときは今月のカレンダー表示
'show_month year(now), month(now), 1 '小さなカレンダーから表示する
session("yoko") = False
session("3month") = False
cal left(Trim(Formatdatetime(now, 1)), 4) & mid(Formatdatetime(now, 2), 4, 2) '月が指定されてないときは今月のカレンダー表示
End Select
%>