<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :メール照会 ' 作成日:2002/9/18 ' 作成者:山崎 ' 目的 :メールの照会処理をする。 ' 概要 : ' <<表示>> ' ・メールの表示 ' '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query,Content Dim SakuseiKaisyaCD Dim MailCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, HyojiyoAtesakiCD, HyojiyoAtesakiMei Dim PageType Dim RouteType Dim AutoFlg Dim tmps, i Dim PageType1 HyojiyoAtesakiMei = "" MailCD = Request("MailCD") TorihikisakiCD = Request("TorihikisakiCD") PageType = Request("PageType") RouteType = Request("RouteType") If MailCD <> "" Then If TorihikisakiCD = "" Then Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" Else Query = "exec SPNメール開封 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" Set Content = OpenQuery(Query) Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MailCD = Content.Fields("メールCD") Sakuseibi = SetTimeYYYYMMDD(Content.Fields("作成日")) SakuseiKaisyaCD = Content.Fields("作成会社CD") Kenmei = Content.Fields("件名") Naiyo = Content.Fields("内容") KaifuFlg = Content.Fields("開封フラグ") SakujyoFlg = Content.Fields("削除フラグ") tmps = split(Content.Fields("表示用宛先CD"), ",") If PageType = "RecvMail" Then HyojiyoAtesakiMei = ConvKaisyaMeisyo(Content.Fields("会社CD")) Else For i = 0 To UBound(tmps) If HyojiyoAtesakiMei <> "" Then HyojiyoAtesakiMei = HyojiyoAtesakiMei + "、" End If If UBound(tmps) = 0 Then HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaMeisyo(tmps(i)) Else HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaRyakuMeisyo(tmps(i)) End If Next End If End If End If PageType1 = PageType If PageType = "" Then PageType = "NewMail" PageType1 = "SendMail" End If '060207 追加 ヘッダー部分のプリント処理のため By Hamada If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <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 %>"; //印刷余白指定(ミリ指定) PrintTopMargin = 20; PrintLeftMargin = 20; // PrintTopMargin = 0; // PrintLeftMargin = 0; --> </SCRIPT> <body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = PrintScriptX %> <form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="fn_mailsakusei_bin.asp"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td align="left" valign="top"> <% Response.Write(PrintHeader(AutoFlg, "")) %> <table width="500" height="375" border="0" cellpadding="20" cellspacing="5" bgcolor="#FFFFFF" STYLE="BORDER:solid 1px #000000"> <tr> <td align="center" valign="top" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <table width="500" height="350" border="0" cellpadding="5" cellspacing="0"> <tr> <td height="100" align="center"> <table width="100%" height="100" border="0" cellpadding="2" cellspacing="0" STYLE="BORDER:solid 2px #80AEFF" CLASS="tx1416"> <tr> <td width="60" height="25" align="right" class="tx1416">受信者:</td> <td><% = HyojiyoAtesakiMei %></td> <td width="55" rowspan="3"> <% If PageType = "NewMail" Or PageType = "SendMail" Then %> <img src="/<% = HomeAlias %>/images/mltab_icon_snd.gif?<% = GB_STU %>" width="45" height="45" align="absmiddle"> <% Else %> <img src="/<% = HomeAlias %>/images/mltab_icon_rcv.gif?<% = GB_STU %>" width="45" height="45" align="absmiddle"> <% End If %> </td> </tr> <tr> <td width="60" height="25" align="right" class="tx1416">送信者:</td> <td><% = ConvKaisyaMeisyo(SakuseiKaisyaCD) %></td> </tr> <tr> <td width="60" height="25" align="right" class="tx1416">送信日:</td> <td><% = Sakuseibi %></td> </tr> <tr> <td width="60" height="25" align="right" class="tx1416">件名:</td> <td><% = Kenmei %></td> </tr> </table> </td> </tr> <tr> <td> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:100%; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> <table border="1" width="100%" cellspacing="0" bordercolordark="#C0C0C0" bgcolor="#FFFFFF" bordercolorlight="#808080" height="100%"> <tr> <td valign="top" CLASS="tx1416"><% Naiyo = Replace(Naiyo, "<br>", vbCrLf) Naiyo = Server.HTMLEncode(Naiyo) Naiyo = Replace(Naiyo, vbCrLf, "<br>" & vbCrLf) Response.Write(Naiyo) %></td> </tr> </table> </div> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </form> </body> <% = HtmlFooter %> </html> <% End Sub %>