<%
Option Explicit
'---- 緑（検索キー） ----
Const GRNH = """#66FFCC"""
Const GRND = """#80FFDD"""
'---- 赤（研修内容） ----
Const REDH = """#F0C0F0"""
Const REDD = """#FFDDFF"""
'---- 黄（一覧表） ----
Const YLWH = """#FFCC00"""
Const YLWD = """#FFFFCC"""
'---- 紫（メニュー） ----
Const PRPL = """#C0C0FF"""
Dim objDBCon, objRec, strSQL
'---- DBに接続する ----
If IsObject(Session("KenshuCon")) Then
Set objDBCon = Session("KenshuCon")
Else
Set objDBCon = Server.CreateObject("ADODB.Connection")
objDBCon.Open "ken_odbc", "sa", ""
Set Session("KenshuCon") = objDBCon
End If
Set objRec = Server.CreateObject("ADODB.RecordSet")
'**********************************
'共通のヘッダ
'**********************************
Sub DispHeader (strTitle, strScriptFlag)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type"
CONTENT="text/html;CHARSET=Shift_JIS">
<TITLE><%=strTitle%></TITLE>
<%
If strScriptFlag = "1" Then
%> <SCRIPT language="javascript">
<!--
function GetCode(objForm) {
objForm.ShainCode.value =
document.Keyword.ShainCode.value;
objForm.submit();
}
//-->
</SCRIPT>
<%
End If
%>
</HEAD>
<BODY bgcolor="#DDFFDD">
<H2><%=strTitle%></H2>
<%
End Sub
'**********************************
'研修一覧画面に戻るボタン表示
'**********************************
Sub DispButton ()
%>
<FORM action="kenshu02.asp" method="post">
<INPUT type="hidden" name="ShainCode"
value="<%=Request.Form("ShainCode")%>">
<INPUT type="hidden" name="ShoriCode"
value="<%=Request.Form("ShoriCode")%>">
<INPUT type="hidden" name="Disp" value="1">
<INPUT type="submit" value="研修一覧に戻る">
</FORM>
<%
End Sub
'**********************************
'共通のフッタ
'**********************************
Sub DispFooter (strFlag)
If strFlag <> "" Then
%>
<FORM action="kenshu00.asp" method="post">
<INPUT type="hidden" name="ShainCode"
value="<%=Request.Cookies("kenshu")("CODE")%>">
<INPUT type="submit" value="認証画面に戻る">
</FORM>
<%
End If
%>
<HR>
Copyright(c) The JRI System Solution, Limited, 1999
</BODY>
</HTML>
<%
End Sub
'**********************************
'認証エラー画面表示
'**********************************
Sub DispError (strShainCode, strPassword)
'---- 共通ヘッダ表示 ----
Call DispHeader ("社内研修システム 認証エラー",
"")
%>
クッキーがセットされていません。<BR>
認証画面に戻り、社員コードとパスワードを入力し直して下さい。<BR>
<FORM name="ninsho" action="kenshu00.asp"
method="post">
<P>
<INPUT type="hidden" name="ShainCode"
value="<%=strShainCode%>">
<INPUT type="hidden" name="Password"
value="<%=strPassword%>">
<INPUT type="submit" value="認証画面に戻る">
</P>
<%
'---- 共通フッタ表示 ----
Call DispFooter("")
End Sub
'**********************************************
'社員コードをクッキーまたはフォームから取得する
'**********************************************
Function GetShainCode()
Dim strCode
If Request.Form("ShainCode") = "" Then
strCode =
Request.Cookies("kenshu")("CODE")
Else
strCode = Request.Form("ShainCode")
End If
GetShainCode = strCode
End Function
'**********************************
'社員コードテキストボックス
'**********************************
Sub DispShainCodeText (strShainCode)
%>
<INPUT type="text" name="ShainCode" size="10"
maxlength="6" value="<%=strShainCode%>">
<%
End Sub
'**********************************
'パスワードテキストボックス
'**********************************
Sub DispPasswdText (strPassword)
%>
<INPUT type="password" name="Password" size="10"
maxlength="20" value="<%=strPassword%>">
<%
End Sub
'**********************************
'研修コードテキストボックス
'**********************************
Sub DispKenshuCodeText (strKenshuCode)
%>
<INPUT type="text" name="KenshuCode"
size="10" maxlength="8" value="<%=strKenshuCode%>">
<%
End Sub
'**********************************
'研修名称テキストボックス
'**********************************
Sub DispKenshuNameText (strKenshuName)
%>
<INPUT type="text" name="KenshuName"
size="50" maxlength="200"
value="<%=strKenshuName%>">
<%
End Sub
'**********************************
'日程テキストボックス
'**********************************
Sub DispDateText (strYearFrom, strMonthFrom, strYearTo, strMonthTo)
%>
<INPUT type="text" name="YearFrom"
size="4" maxlength="4" value="<%=strYearFrom%>">年
<INPUT type="text" name="MonthFrom"
size="2" maxlength="2" value="<%=strMonthFrom%>">月〜
<INPUT type="text" name="YearTo"
size="4" maxlength="4" value="<%=strYearTo%>">年
<INPUT type="text" name="MonthTo"
size="2" maxlength="2" value="<%=strMonthTo%>">月
<%
End Sub
'**********************************
'日程テキストボックス2
'**********************************
Sub DispDateText2 (strYearFrom, strMonthFrom, strDayFrom, strYearTo, strMonthTo, strDayTo)
%>
<INPUT type="text" name="YearFrom"
size="4" maxlength="4" value="<%=strYearFrom%>">年
<INPUT type="text" name="MonthFrom"
size="2" maxlength="2" value="<%=strMonthFrom%>">月
<INPUT type="text" name="DayFrom"
size="2" maxlength="2" value="<%=strDayFrom%>">日〜
<INPUT type="text" name="YearTo"
size="4" maxlength="4" value="<%=strYearTo%>">年
<INPUT type="text" name="MonthTo"
size="2" maxlength="2" value="<%=strMonthTo%>">月
<INPUT type="text" name="DayTo"
size="2" maxlength="2" value="<%=strDayTo%>">日
<%
End Sub
'**********************************
'申込締切日テキストボックス
'**********************************
Sub DispDateShimeText (strYearShime, strMonthShime, strDayShime)
%>
<INPUT type="text" name="YearShime"
size="4" maxlength="4" value="<%=strYearShime%>">年
<INPUT type="text" name="MonthShime"
size="2" maxlength="2" value="<%=strMonthShime%>">月
<INPUT type="text" name="DayShime"
size="2" maxlength="2" value="<%=strDayShime%>">日
<%
End Sub
'**********************************
'研修時間テキストボックス
'**********************************
Sub DispTimeText (strTime)
%>
<INPUT type="text" name="Time"
size="50" maxlength="100" value="<%=strTime%>">
<%
End Sub
'**********************************
'研修場所テキストボックス
'**********************************
Sub DispPlaceText (strPlace)
%>
<INPUT type="text" name="Place"
size="50" maxlength="100" value="<%=strPlace%>">
<%
End Sub
'**********************************
'研修定員テキストボックス
'**********************************
Sub DispMaxText (strMax)
%>
<INPUT type="text" name="Max"
size="10" maxlength="8" value="<%=strMax%>">
<%
End Sub
'**********************************
'研修内容詳細テキストボックス
'**********************************
Sub DispDetailText (strDetail)
%>
<TEXTAREA name="Detail" rows="6"
cols="50"><%=Server.HTMLEncode(strDetail)%></TEXTAREA>
<%
End Sub
'**************************************
'日付を表示用に変換
'**************************************
Sub EditDispDate (objRec, strDateFrom, strDateTo, strDateShime)
If IsNull(objRec.Fields("日程自").Value) Then
strDateFrom = ""
Else
strDateFrom = DateToString(objRec.Fields("日程自").Value)
End If
If IsNull(objRec.Fields("日程至").Value) Then
strDateTo = ""
Else
strDateTo = "〜" &
DateToString(objRec.Fields("日程至").Value)
End If
If IsNull(objRec.Fields("申込締切日").Value) Then
strDateShime = ""
Else
strDateShime =
DateToString(objRec.Fields("申込締切日").Value)
End If
End Sub
'**********************************
'日付を文字列に変換する
'**********************************
Function DateToString (strDate)
DateToString = Year(DateValue(strDate)) & "/" & _
Month(DateValue(strDate))
& "/" & _
Day(DateValue(strDate))
End Function
%>