<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：送信メール一覧
' 作成日 ：2011/11/24
' 作成者 ：小野
' 目的 ：送信メール一覧画面を表示する
' 概要 ：
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'会社セッション初期化（演習状況記帳チェック後の対処）
KaisyaCD = ""
GB_KaisyaCD = ""
KaisyaMeisyo = ""
GB_KaisyaMeisyo = ""
KaisyaRyakuMeisyo = ""
GB_KaisyaRyakuMeisyo = ""
Session(HomeAlias & "KaisyaCD") = ""
Session(HomeAlias & "Gyosyu") = ""
Session(HomeAlias & "GyosyuMeisyo") = ""
Session(HomeAlias & "KaisyaMeisyo") = ""
Session(HomeAlias & "KaisyaRyakuMeisyo") = ""
Session(HomeAlias & "JisyaFlag") = ""
Session(HomeAlias & "ShijyoCD") = ""
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
Dim EnshuName
Dim Query
Dim Content
Dim TmpEnshuKubun
TmpEnshuKubun = ConvEnshuKubun(EnshuCD)
Dim SortMode
SortMode = Request("SortMode")
If SortMode = "" Then
SortMode = "2"
End If
Dim Keyword
Keyword = Request("Keyword")
Dim Page
Page = Request("Page")
If Page <> "" Then
Page = ConvMoneyToInt(Page)
Else
Page = 0
End If
Dim PageRow
PageRow = 100
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
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_mail_ichiran.asp" onSubmit="return SubmitCheck();">
<input type="hidden" name="HyojiFlg" value="<% = HyojiFlg %>">
<input type="hidden" name="Page" value="<% = Page %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "送信メール一覧", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
'Response.Write(HttpL3_1("再表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "')", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "');", "", "", "", "", "", ""))
Response.Write(HttpL3_1("再表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "')", "", "", "", "", "", "", "", ""))
'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
If TmpEnshuKubun = "P" Then
If HyojiFlg = "1" Then
Response.Write(HttpL3_2("マスター会社を非表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "')", "書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("マスター会社を表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "&HyojiFlg=1')", "書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", ""))
End If
Else
Response.Write(HttpL3_2("書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL4("送信メール一覧", ""))
Response.Write(HttpL5(""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="650" height="100%" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="10">
<td valign="top">
<TABLE WIDTH="930" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD HEIGHT="30" align="center">対象演習名</TD>
<TD height="30" align="left">
<% If GB_Admin = 2 Then %>
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<% = EnshuMeisyo %>
<% Else %>
<select size="1" name="EnshuCD" class="tbox4_w" onChange="form1.Page.value='0';SetSyokaiList();">
<option value="">＜＜ 対象演習を選択して下さい ＞＞</option>
<%
Query = "exec SPM演習一覧 '" & GB_SystemCD & "',4"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA" And "" & Content.Fields("演習区分") = "G") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
Response.Write("<option value=""" & Content.Fields("演習CD") & """")
If Content.Fields("演習CD") = EnshuCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
</select>
<% End If %>
</TD>
<TD HEIGHT="30" align="center">ソート基準</TD>
<TD height="30" align="left">
<select size="1" name="SortMode" class="tbox4_w" onChange="SetSyokaiList();">
<option value="1"<% If SortMode = "1" Then %> selected<% End If %>><% If TmpEnshuKubun = "P" Then %>学生氏名<% Else %>会社コード<% End If %></option>
<option value="2"<% If SortMode = "2" Then %> selected<% End If %>>会社名称</option>
<option value="3"<% If SortMode = "3" Then %> selected<% End If %>>件名</option>
</select>
</TD>
</TR>
</table>
<TABLE WIDTH="930" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR>
<TD HEIGHT="30" align="center"> 検索キーワード </TD>
<TD height="30" align="left">
<input type="text" name="Keyword" size="120" value="<% = Keyword %>" onBlur="FormStrLeftIME(this,255,true);" class="tbox4_ime_w">
<input type="button" value="抽 出" CLASS="tx1416" style="width:80px;" onClick="form1.Page.value='0';SetSyokaiList();">
</TD>
</TR>
</table>
<span class="tx1012"><br></span>
<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD VALIGN="BOTTOM" WIDTH="700">
<TABLE WIDTH="930" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<% If TmpEnshuKubun = "P" Then %>
<TD WIDTH="154">学生氏名</TD>
<% Else %>
<TD WIDTH="154">会社コード</TD>
<% End If %>
<TD WIDTH="184" HEIGHT="20">会社名称</TD>
<TD WIDTH="280">件名</TD>
<TD>本文</TD>
</TR>
</TABLE>
</TD>
</TR>
</table>
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:950px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<TABLE ID="SyoukaiList" BORDER="1" WIDTH="930" CELLSPACING="0" CELLPADDING="2" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse;cursor:pointer;" BORDERCOLOR="#000000">
<% If Page > 0 Then %>
<TR ALIGN="CENTER" onClick="form1.Page.value='<% = Page - 1 %>';SetSyokaiList();">
<TD ALIGN="CENTER" COLSPAN="4">
前 の ペ ー ジ を 表 示
</TD>
</TR>
<% End If %>
<%
Dim ii, jj, wcol
ii = 0
Query = "exec SPM演習状況メール送信一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & SortMode & "', '" & Keyword & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
'ページ送り
For jj = 1 To PageRow * Page
If Not(Content.BOF Or Content.EOF) Then
Content.MoveNext
End If
Next
For ii = 1 To PageRow
If Not(Content.BOF Or Content.EOF) Then
' Do While Not(Content.BOF Or Content.EOF)
'同時同業マスター会社を除く
If HyojiFlg = "1" And TmpEnshuKubun = "P" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) = "" Then
'同時同業生徒会社のうち自社設定会社以外を除く
ElseIf HyojiFlg <> "1" And TmpEnshuKubun = "P" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" Then
Else
Dim KaisyaGakusei
'KaisyaGakusei = "" & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")))
KaisyaGakusei = "" & Content.Fields("氏名")
'同時同業では削除されたユーザーの会社は表示しない
If TmpEnshuKubun = "P" And KaisyaGakusei = "" Then
Else
Response.Write("<TR onClick=""tblbtn('fm_mail_view.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & Content.Fields("会社CD") & "&MailCD=" & Content.Fields("メールCD") & "&SortMode=" & SortMode & "&HyojiFlg=" & HyojiFlg & "&Keyword=" & Keyword & "&Page=" & Page & "')"" style=""cursor:pointer;"">" & vbCrLf)
If TmpEnshuKubun = "P" Then
Response.Write("<TD WIDTH=""150"" ALIGN=""LEFT"">" & KaisyaGakusei & "</TD>" & vbCrLf)
Else
Response.Write("<TD WIDTH=""150"" ALIGN=""LEFT"">" & Content.Fields("会社CD") & "</TD>" & vbCrLf)
End If
Response.Write("<TD WIDTH=""180"" HEIGHT=""23"" ALIGN=""LEFT"">" & Content.Fields("会社名称") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""276"" ALIGN=""LEFT""><span style=""width:276px;height:17px;overflow:hidden;"">" & HardWrap(Content.Fields("件名")) & "</span></TD>" & vbCrLf)
Response.Write("<TD ALIGN=""LEFT""><span style=""width:100%;height:17px;overflow:hidden;"">" & HardWrap(Replace(Content.Fields("内容"), "<br>", "")) & "</span></TD>" & vbCrLf)
Response.Write("</TD>" & vbCrLf)
Response.Write("</TR>")
End If
End If
Content.MoveNext
' Loop
End If
Next
If Not(Content.BOF Or Content.EOF) Then
%>
<TR ALIGN="CENTER" onClick="form1.Page.value='<% = Page + 1 %>';SetSyokaiList();">
<TD ALIGN="CENTER" COLSPAN="4">
次 の ペ ー ジ を 表 示
</TD>
</TR>
<%
End If
%>
</TABLE>
</DIV>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</DIV>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SetSyokaiList()
{
if (form1.EnshuCD.value == "")
{
alert("対象演習を選択して下さい");
return false;
}
SubmitReal(form1);
return false;
}
function SubmitCheck(Kubun)
{
if (form1.EnshuCD.value == "")
{
alert("対象演習を選択して下さい");
return false;
}
return true;
}
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>