<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :送信メール表示 ' 作成日 :2011/11/24 ' 作成者 :小野 ' 目的 :送信メール画面を表示する '################################################ '--> %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim Query Dim Content Dim EnshuName Dim TmpEnshuKubun Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") TmpEnshuKubun = Content.Fields("演習区分") End If Dim SortMode SortMode = Request("SortMode") Dim Keyword Keyword = Request("Keyword") Dim MailCD MailCD = Request("MailCD") Dim KaisyaCD KaisyaCD = Request("KaisyaCD") Dim SakuseiKaisyaCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, HyojiyoAtesakiCD, HyojiyoAtesakiMei HyojiyoAtesakiMei = "" If MailCD <> "" Then Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MailCD = Content.Fields("メールCD") Sakuseibi = Content.Fields("作成日") SakuseiKaisyaCD = Content.Fields("作成会社CD") Kenmei = Content.Fields("件名") Naiyo = Content.Fields("内容") KaifuFlg = Content.Fields("開封フラグ") SakujyoFlg = Content.Fields("削除フラグ") Dim tmps, i tmps = split(Content.Fields("表示用宛先CD"), ",") For i = 0 To UBound(tmps) If HyojiyoAtesakiMei <> "" Then HyojiyoAtesakiMei = HyojiyoAtesakiMei + ", " End If HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaRyakuMeisyo(tmps(i)) Next End If End If Dim GakuseiShimei GakuseiShimei = ConvKaisyaGakuseiShimei(EnshuCD, KaisyaCD) Dim Page Page = Request("Page") %> <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="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="../../javascript.js?<% = TimeUniq() %>"></script> </head> <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"> <input type="hidden" name="SortMode" value="<% = SortMode %>"> <input type="hidden" name="Keyword" value="<% = Keyword %>"> <input type="hidden" name="HyojiFlg" value="<%= HyojiFlg %>"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "送信メール一覧", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "&Page=" & Page & "')", "送信メール", "", "", "", "", "", "", "")) 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 & "&Keyword=" & Keyword & "');", "", "", "", "", "", "")) Response.Write(HttpL3_1("削除", "DeleteCheck();", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&MailCD=" & MailCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "');", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧に戻る", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "&Page=" & Page & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("送信メール", "")) Response.Write(HttpL5("")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center"> <table width="1" height="1" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000"> <tr> <td align="center" background="/<% = HomeAlias %>/images/window_bk.gif"> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"> <TABLE WIDTH="1" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <TR> <TD HEIGHT="30" VALIGN="BOTTOM"> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="8" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD bgcolor="#FFEE88" nowrap>対象演習名</TD> <TD nowrap><% = EnshuName %></TD> <TD bgcolor="#FFEE88" nowrap>演習コード</TD> <TD nowrap><% = EnshuCD %></TD> </TR> </TABLE> </TD> </TR> <TR> <td height="10"></td> </TR> <TR> <TD HEIGHT="20" VALIGN="TOP"> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse"> <tr> <td bgcolor="#FFEE88" nowrap> <% If TmpEnshuKubun = "P" Then %> 学生氏名 <% Else %> 会社コード <% End If %> </td> <td nowrap> <% If TmpEnshuKubun = "P" Then %> <% = GakuseiShimei %> <% Else %> <% = KaisyaCD %> <% End If %> </td> <td bgcolor="#FFEE88" nowrap> 会社名称 </td> <td nowrap> <% = ConvKaisyaMeisyoDx(EnshuCD, KaisyaCD) %> </td> </tr> <tr> <td bgcolor="#FFEE88" nowrap>宛先</td> <td colspan="3" nowrap><% = HyojiyoAtesakiMei %></td> </tr> <tr> <td bgcolor="#FFEE88" nowrap>件名</td> <td colspan="3" nowrap><% = Kenmei %></td> </tr> <tr> <TD nowrap colspan="4"><% = Naiyo %></TD> </tr> </TABLE> </td> </tr> </table> </td> <!--3x3中段右 --> </tr> </table> </td> </tr> </table> </td> </tr> </table> </div> </form> <!--印刷用フレーム--> <IFRAME name="PrintoutInline" SRC="" WIDTH="0" HEIGHT="0" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex="-1"></IFRAME> </body> <SCRIPT LANGUAGE="JavaScript"> function DeleteCheck() { var flag; flag = confirm("削除してよろしいですか? "); if (flag) { tblbtn("fm_mail_bin.asp?Action=Delete&EnshuCD=<% = EnshuCD %>&KaisyaCD=<% = KaisyaCD %>&MailCD=<% = MailCD %>&SortMode=<% = SortMode %>&Keyword=<% = Keyword %>&HyojiFlg=<% = HyojiFlg %>"); return true; } else { return false; } } </script> <% = HtmlFooter %> </html> <% End Sub %>