'===========================================================
' main 及び top 共用のスクリプト <更新履歴の調整等>
'===========================================================
Dim defCnt, Cnt
Dim dMark, dMkDy
'-----------------------------------------------------------
' M A I N
'-----------------------------------------------------------
'** 設定パラメータ部 /////////////////////////
' 表示の規定値
defCnt = 20 '// 履歴の表示数
dMkDy = 7 '// 更新ﾏｰｸ表示日数(基準日より)
'// 更新履歴Work 区<0:更新、1:追加>;日付;内容文;URL
dHist = ""
dHist = dHist & ",1;2008/08/19;伊橋隆浩氏のインターハイ派遣報告書を掲載しました。;info/report.htm#zenkoku"
dHist = dHist & ",1;2008/08/11;資料室に「千葉県公認審判実績票」を掲載しました。;info/data.htm#shidoukyouka"
dHist = dHist & ",1;2008/07/27;夏休みの大会派遣等を、まとめて掲載しました。(日付順で下から上へ);info/news.htm?a20080727"
dHist = dHist & ",1;2008/07/14;総務部会の概要情報を掲載しました。;info/dept.htm?soumu.htm"
dHist = dHist & ",1;2008/07/14;平成２０年度関東女性審判講習会の報告を掲載しました。;info/news.htm?a20080714"
dHist = dHist & ",1;2008/07/07;平成２０年度関東審判講習会の報告を掲載しました。;info/news.htm?a20080707"
dHist = dHist & ",1;2008/07/03;伊橋隆浩氏の関東ブロックＡ級審判 研修合宿の報告書を掲載しました。;info/report.htm#kanto"
dHist = dHist & ",1;2008/07/02;林原潤氏の第３回国体審判強化講習会の報告レポートを掲載しました。;info/report.htm#chiba"
dHist = dHist & ",1;2008/06/25;平成20年度 千葉県公認対象審判講習会 開催のお知らせを掲載しました。;info/news.htm?a20080625"
dHist = dHist & ",1;2008/06/22;「今がシュン」を新設。クリックしてみて下さい。;;"
dHist = dHist & ",0;2008/06/20;国際渉外部会の挨拶情報を一部変更しました。;info/dept.htm?kokusaisyougai.htm"
dHist = dHist & ",1;2008/06/19;中学生連盟 審判講習会の報告を掲載しました。;info/news.htm?a20080619"
dHist = dHist & ",1;2008/06/19;指導強化部会の挨拶情報を掲載しました。;info/dept.htm?shidoukyouka.htm"
dHist = dHist & ",1;2008/06/18;第１回国体審判強化講習会の報告を掲載しました。;info/kokutai.htm#a20080618"
dHist = dHist & ",1;2008/06/18;三好啓太氏の関東派遣報告を掲載しました。;info/report.htm#kanto"
dHist = dHist & ",1;2008/06/13;大野健男氏の女子日本代表リトアニア遠征報告を掲載しました。;info/report.htm#kaigai"
dHist = dHist & ",1;2008/06/13;岡崎武史氏の男性Ａ級フレッシュマン研修報告を掲載しました。;info/report.htm#sonota"
dHist = dHist & ",1;2008/06/12;今年度上級審判へ昇格された方の『ひと言』を掲載しました。;info/referee.htm#hitokoto"
dHist = dHist & ",1;2008/06/11;平成20年度 関東Ａ級研修合宿 開催のお知らせを掲載しました。;info/news.htm?a20080611"
dHist = dHist & ",1;2008/06/10;久保知仁氏の関東派遣報告を掲載しました。;info/report.htm#kanto"
dHist = dHist & ",1;2008/05/31;第１回車椅子審判講習会の報告を掲載しました。;info/kokutai.htm#a20080531"
dHist = dHist & ",1;2008/05/30;クラブ連の挨拶情報を掲載しました。;info/dept.htm?clubren.htm"
dHist = dHist & ",1;2008/05/29;リンク集を掲載しました。;info/link.htm"
dHist = dHist & ",0;2008/05/26;審判の有資格者数を更新しました。;info/referee.htm#chiba"
dHist = dHist & ",1;2008/05/25;中嶽希美子氏の海外派遣（中国）報告を掲載しました。;info/report.htm#kaigai"
dHist = dHist & ",1;2008/05/22;資料室に日本協会の資料データを掲載しました。;info/data.htm#jba"
dHist = dHist & ",1;2008/05/22;資料室にＴＯ部会の資料データを掲載しました。;info/data.htm#to"
dHist = dHist & ",1;2008/05/21;資料室に「県公認審判員の認定申請書」を掲載しました。;info/data.htm#soumu"
dHist = dHist & ",1;2008/05/20;ミニ連、女性部会の挨拶情報を掲載しました。;info/dept.htm"
dHist = dHist & ",1;2008/05/17;中体連、高体連、家庭婦人連、専門学校連、Technical Advisor、国際渉外部会の挨拶情報を掲載しました。;info/dept.htm"
dHist = dHist & ",1;2008/05/16;車椅子審判講習会開催のお知らせを掲載しました。;info/kokutai.htm#a20080516b"
dHist = dHist & ",1;2008/05/16;国体審判強化講習会講師決定のお知らせを掲載しました。;info/kokutai.htm#a20080516"
dHist = dHist & ",1;2008/05/15;関東講習会への推薦者を掲載しました。;info/news.htm?a20080515"
dHist = dHist & ",1;2008/05/13;関東派遣についての内容を掲載しました。;info/news.htm?a20080513"
dHist = dHist & ",1;2008/05/12;中嶽希美子氏の海外派遣報告を掲載しました。;info/report.htm"
dHist = dHist & ",1;2008/05/08;フィットネステスト実施についての資料を掲載しました。;info/data.htm"
dHist = dHist & ",1;2008/05/08;指導強化部会よりのお知らせを掲載しました。;info/news.htm?a20080508"
dHist = dHist & ",1;2008/05/07;山ｱ敬次郎氏の2008年3月の全日本クラブバスケットボール選手権大会報告を掲載しました。;info/report.htm#zenkoku"
dHist = dHist & ",1;2008/05/01;白木怜美氏のＹＯＣ２００７の報告を掲載しました。;info/report.htm#sonota"
dHist = dHist & ",1;2008/04/27;大野健男氏のリトアニア派遣のＮｅｗｓを掲載しました。;info/news.htm?a20080427"
dHist = dHist & ",1;2008/04/27;佐藤誠氏の海外派遣報告を掲載しました。;info/report.htm"
dHist = dHist & ",1;2008/04/27;審判長の挨拶を掲載しました。;info/outline.htm?aisatsu.htm"
dHist = dHist & ",1;2008/04/18;平成２０年度の事業計画を掲載しました。;info/outline.htm?work_plan.htm"
dHist = dHist & ",1;2008/04/17;審判講習会の様子等の写真を掲載しました。;info/news.htm?a20080417"
dHist = dHist & ",0;2008/04/12;平成２０年度の組織図を更新しました。;info/outline.htm?soshiki.htm"
dHist = dHist & ",1;2008/03/17;平成２０年度の伝達講習会日程が決まりました。;info/news.htm?a20080405"
dHist = dHist & ",2;2008/03/09;県協会の理事会で審判委員会ホームページの開設が承認されました。;;"
dHist = dHist & ",1;2007/12/14;平成１９年度の組織図を追加しました。;;"
dHist = dHist & ",1;2007/11/14;審判委員会ホームページの開設準備を開始しました。;;"
'// サンプル
'dHist = dHist & ",1;2008/05/16;テスト;info/dept.htm?kokusaisyougai.htm#test"
'** 以下、各種モジュール部 /////////////////////////
'-----------------------------------------------------------
' 最新の履歴日を出力する
'-----------------------------------------------------------
Private Sub WriteHistNew()
Dim His
'* 履歴の先頭を取得する
For Each His In Split(dHist, ",")
If His <> "" Then
If IsDate(Mid(His,3,10)) = True Then
document.write Mid(His,3,10)
Exit For
End If
End If
Next
End Sub
'-----------------------------------------------------------
' 履歴の表示数を出力する
'-----------------------------------------------------------
Private Sub WriteHistCount()
document.write "【最新" & defCnt & "件】"
End Sub
'-----------------------------------------------------------
' 履歴内容を出力する
'-----------------------------------------------------------
Private Sub WriteHistry()
Dim Cnt, His, Cnt2, Itm
Dim Mrk, Udy, Url, Tar, Txt, Doc
document.write "" & vbCrLf
'* 明細部＜履歴Workより作成＞
Cnt = 0
For Each His In Split(dHist, ",")
If His <> "" Then
'*** 履歴の表示数チェック
Cnt = Cnt + 1
If Cnt <= defCnt Then
'**** 履歴の内容を取得
Cnt2 = 0
Url = ""
Tar = ""
For Each Itm In Split(His, ";")
Cnt2 = Cnt2 + 1
If Cnt2 = 1 Then '// 区
Mrk = Itm
ElseIf Cnt2 = 2 Then '// 日付
Udy = Itm
ElseIf Cnt2 = 3 Then '// 内容文
Txt = Itm
ElseIf Cnt2 = 4 Then '// URL
Url = Itm
End If
Next
'**** タグを組立て
If Url <> "" Then
Doc = "" & Txt & ""
Else
Doc = Txt
End If
'**** 日付チェックでマーク付加の判断
If DateDiff("d", CDate(Udy), Date()) <= dMkDy Then
Doc = Doc & " "
If Mrk = "0" Then
Doc = Doc & "
"
ElseIf Mrk = "1" Then
Doc = Doc & "
"
End If
End If
'**** 内容を出力
document.Write "| " & Udy & " | " & _
" | " & _
"" & Doc & " |
" & vbCrLf
'*** 表示数に達したら終了
Else
Exit For
End If
End If
Next
'* テーブルの最後
document.write "
" & vbCrLf
End Sub