<!-- #include virtual="/sj4web/include.asp" -->
<%
'<!--
'################################################
' 名称 ：メール発行状況照会
' 作成日：2006/8/29
' 作成者：鈴木
' 目的 ：生徒単位のメール発行枚数と各種の照会
' 概要 ：
' <<表示>>
' ・各種文書の一覧と枚数を表示、受発信メールの数を表示
'
'################################################
'-->
%>
<%
main()
Sub main()
Dim ErrMSG
Dim Query
Dim Content
If Not(SessionCheck()) Then
Exit Sub
End If
ErrMSG = Request("ErrMSG")
Dim RouteType
RouteType = Request("RouteType")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="/sj4web/binx/sj3web.css" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="/sj4web/include.js"></script>
<script language="JScript" src="/sj4web/includesj.js"></script>
<script language="JScript.Encode" src="/sj4web/include_enc.js"></script>
<script language="JScript.Encode" src="/sj4web/includesj_enc.js"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg != 0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="GET" action="fm_groupsanka.asp" >
<input type="hidden" name="GroupCD" value="">
<input type="hidden" name="RouteType" value="<%= RouteType %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If GB_Admin = 2 Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu_w.asp')", "演習参加グループ", "", "", "", "", "", "", "", "", ""))
ElseIf Request("RouteType") = "Kantan" Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu1.asp')", "演習参加グループ", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu_w.asp')", "演習参加グループ", "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If EnshuCD <> "" Then
Response.Write(HttpL3_1("保存", "UpdateCheck()", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("演習参加グループ管理", ""))
Response.Write(HttpL5(ErrMSG))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="720" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center" background="/sj4web/images/window_bk.gif">
<table width="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td align="center" valign="middle">
<TABLE WIDTH="700" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD HEIGHT="30">対象演習名</TD>
<TD height="30" ALIGN="center">
<% If GB_Admin = 2 Then %>
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<% = EnshuMeisyo %>
<% Else %>
<select size="1" name="EnshuCD" onChange="SetSyokaiList();">
<option value="">＜＜ 対象演習を選択して下さい ＞＞</option>
<%
Query = "exec SPM演習一覧 '" & GB_SystemCD & "',2"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<option value=""" & Content.Fields("演習CD") & """")
If Content.Fields("演習CD") = EnshuCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
Content.MoveNext
Loop
%>
</select>
<% End If %>
</TD>
</TR>
</table>
<br>
<% If EnshuCD <> "" Then %>
<table width="700" height="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD HEIGHT="20" VALIGN="TOP" WIDTH="700">
<TABLE WIDTH="700" height="250" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD height="25">この演習に参加していないグループ</TD>
<td rowspan="2">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD align="center"><INPUT TYPE="button" NAME="sanka" VALUE="参加させる >>" ONCLICK="SetSankaList();"></TD>
</TR>
<TR>
<TD align="center"><BR><INPUT TYPE="button" NAME="fusanka" VALUE="<< 参加取消し" ONCLICK="SetFusankaList();"></TD>
</TR>
</TABLE>
</td>
<TD height="25">この演習に参加しているグループ</TD>
</TR>
<TR ALIGN="CENTER">
<TD>
<select size="15" name="FusankaList" MULTIPLE style="width:250px">
<%
Query = "exec SPM演習_不参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<option value=""" & Content.Fields("学生グループCD") & """>" & Content.Fields("グループ名称") & "</option>" & vbCrLf)
Content.MoveNext
Loop
%>
</select>
</TD>
<TD>
<select size="15" name="SankaList" MULTIPLE style="width:250px">
<%
Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<option value=""" & Content.Fields("学生グループCD") & """>" & Content.Fields("グループ名称") & "</option>" & vbCrLf)
Content.MoveNext
Loop
%>
</select>
</TD>
</TR>
<TR ALIGN="CENTER">
<TD height="25" colspan="3" align="left" class="tx1214">(ctrl キーで複数選択可能）</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<% Else %>
<br><br><br><br><br><br><br><br><br><br><br><br><br><br>
<% End If %>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SetSyokaiList()
{
SubmitReal(form1);
return false;
}
function SetListClear()
{
do
{
form1.SankaList.options[0] = null;
}
while(form1.SankaList.length != 0)
do
{
form1.FusankaList.options[0] = null;
}
while(form1.FusankaList.length != 0)
}
function SetSankaList()
{
var kazu;
var Idx;
var atai ;
var hyoji ;
if (form1.SankaList.length == -1)
{
Idx = 0;
}
else
{
Idx = form1.SankaList.length;
}
kazu = form1.FusankaList.length;
for (var i=0;i<kazu;i++)
{
if (form1.FusankaList.options[i].selected)
{
atai = form1.FusankaList.options[i].value;
hyoji = form1.FusankaList.options[i].text;
form1.SankaList.options[Idx] = new Option(hyoji,atai);
Idx = Idx + 1;
}
}
for (var i=kazu-1;i>-1;i--)
{
if (form1.FusankaList.options[i].selected)
{
form1.FusankaList.options[i] = null;
}
}
return false;
}
function SetFusankaList()
{
var kazu;
var Idx;
var atai ;
var hyoji ;
if (form1.FusankaList.length == -1)
{
Idx = 0;
}
else
{
Idx = form1.FusankaList.length;
}
kazu = form1.SankaList.length;
for (var i=0;i<kazu;i++)
{
if (form1.SankaList.options[i].selected)
{
atai = form1.SankaList.options[i].value;
hyoji = form1.SankaList.options[i].text;
form1.FusankaList.options[Idx] = new Option(hyoji,atai);
Idx = Idx + 1;
}
}
for (var i=kazu-1;i>-1;i--)
{
if (form1.SankaList.options[i].selected)
{
form1.SankaList.options[i] = null;
}
}
return false;
}
function UpdateCheck()
{
GroupCDSet();
tblbtn( "/sj4web/admin/master/group/fm_groupsanka_bin.asp?RouteType=<% = RouteType %>&EnshuCD=<% = EnshuCD %>&GroupCD=" + form1.GroupCD.value);
return true;
}
function GroupCDSet()
{
var kazu;
var atai ;
atai = "";
kazu = form1.SankaList.length;
for (var i=0;i<kazu;i++)
{
if (i == 0)
{
atai = atai + form1.SankaList.options[i].value;
}
else
{
atai = atai + "," + form1.SankaList.options[i].value ;
}
}
form1.GroupCD.value = atai;
return false;
}
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>