<% 'スプレッドシート風フォーム行出力(引数はグローバル変数で指定) '※列数を拡張できるよう引数はグローバル変数を利用する。 '※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。 '初期空行(各モジュール側で参照する変数) Dim SpBlankRow SpBlankRow = 25 'SpBlankRow = 5 'フォーム名 Dim SpFormName '行定義 Dim SpRowHeight '高さ(pixel指定) Dim SpRowCls '行スタイルclass Dim SpRowStyle '行スタイル '列定義 Dim SpCellType(20) '形式指定(0:日付 1:文字列 2:英数字 3:通貨 9:プルダウン)※型はclassとonFocus・onBrurで制御されるので、現状はプルダウン以外は特に意味はない。 Dim SpCellWidth(20) 'セル幅(pixel指定) ※フォーム幅は自動計算 Dim SpCellCls(20) 'セルスタイルclass Dim SpCellStyle(20) 'セルスタイル Dim SpInputRO(20) 'フォームreadonlyフラグ("1") Dim SpInputCls(20) 'フォームスタイルclass Dim SpInputStyle(20) 'フォームスタイル Dim SpInputFocus(20) 'onFocusで作動させるスクリプト Dim SpInputBlur(20) 'onBlurで作動させるスクリプト Dim SpInputChange(20) 'onChangeで作動させるスクリプト Dim SpInputValue(20) 'フォーム初期値 Dim SpInputOption(20) 'フォーム初期値(selectプルダウンのoptionタグ) 'Dim SpCell(20) ' Sub SpreadRow(RowCnt) 'RowCntがフォーム名に使用される ' SpreadRow = "" Dim Cnt Dim RowHeight Dim RowCls Dim RowStyle Dim CellWidth Dim CellCls Dim CellStyle Dim InputWidth Dim InputCls Dim InputStyle Dim InputFocus Dim InputBlur Dim InputChange Dim InputRO Dim InputBorder InputBorder = "border:none;" ' InputBorder = "border:solid 1px #000000;" 'デバッグ用 If "" & SpRowHeight <> "" Then RowHeight = " height=""" & SpRowHeight & """ " End If If "" & SpRowCls <> "" Then RowCls = " class=""" & SpRowCls & """ " End If If "" & SpRowStyle <> "" Then RowStyle = " style=""" & SpRowStyle & """ " End If ' SpreadRow = SpreadRow & "<TR ALIGN=""CENTER""" & SpRowCls & "" & SpRowStyle & ">" & vbCrLf Response.Write("<TR ALIGN=""CENTER"" " & RowHeight & "" & RowCls & "" & RowStyle & ">" & vbCrLf) For Cnt = 1 To 20 CellWidth = "" CellCls = "" CellStyle = "" InputWidth = "" InputCls = "" InputStyle = "" InputFocus = "" InputBlur = "" InputChange = "" InputRO = "" If "" & SpCellType(Cnt) = "" Then Exit For End If If "" & SpCellWidth(Cnt) <> "" Then InputWidth = "width:" & (CInt(SpCellWidth(Cnt)) - 2) & "px;" 'textフォームの幅がセルから溢れないよう此処で調整 CellWidth = " width=""" & SpCellWidth(Cnt) & """ " End If If "" & SpCellCls(Cnt) <> "" Then CellCls = " class=""" & SpCellCls(Cnt) & """ " End If If "" & SpCellStyle(Cnt) <> "" Then CellStyle = " style=""" & SpCellStyle(Cnt) & """ " End If If "" & SpInputCls(Cnt) <> "" Then InputCls = " class=""" & SpInputCls(Cnt) & """ " End If InputStyle = " style=""" & InputWidth & InputBorder & SpInputStyle(Cnt) & """ " 'onFocusで常にフォーム名と選択行をJavaScript変数に代入(javascript.js)&行背景色変更 InputFocus = " onFocus=""SpFormName='" & SpFormName & "';SpSelRow=" & RowCnt & ";SpRowColor();" & SpInputFocus(Cnt) & """ " If "" & SpInputBlur(Cnt) <> "" Then InputBlur = " onBlur=""" & SpInputBlur(Cnt) & """ " End If If "" & SpInputChange(Cnt) <> "" Then InputChange = " onChange=""" & SpInputChange(Cnt) & """ " End If InputRO = "" If "" & SpInputRO(Cnt) = "1" Then InputRO = " readonly tabindex=""-1"" " End If ' SpreadRow = SpreadRow & "<TD " & CellWidth & " " & CellCls & " " & CellStyle & " ALIGN=""center"">" & vbCrLf ' SpreadRow = SpreadRow & "<input type=""text"" name=""SpCell" & RowCnt & "_" & Cnt & """ value=""" & SpInputValue(Cnt) & """ " & InputWidth & " " & InputCls & " " & InputStyle & " " & InputFocus & " " & InputBlur & " align=""" & InputAlign & """ " & InputRO & " size=""1"">" & vbCrLf '※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。 ' SpreadRow = SpreadRow & "</TD>" & vbCrLf Response.Write("<TD " & CellWidth & " " & CellCls & " " & CellStyle & " ALIGN=""center"">" & vbCrLf) If SpInputOption(Cnt) <> "" Then 'selectプルダウン Response.Write("<select size=""1"" name=""" & SpFormName & RowCnt & "_" & Cnt & """ " & InputCls & " " & InputStyle & " " & InputFocus & " " & InputBlur & " " & InputChange & " " & InputRO & ">" & vbCrLf) Response.Write(SpInputOption(Cnt) & vbCrLf) Response.Write("</select>" & vbCrLf) Else 'textフォーム Response.Write("<input type=""text"" name=""" & SpFormName & RowCnt & "_" & Cnt & """ value=""" & SpInputValue(Cnt) & """ " & InputCls & " " & InputStyle & " " & InputFocus & " " & InputBlur & " " & InputChange & " " & InputRO & " size=""1"">" & vbCrLf) '※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。 End If Response.Write("</TD>" & vbCrLf) ' Response.Write("<TD WIDTH=""83"" HEIGHT=""23"" ALIGN=""center"" class=""br1"">" & Torihikibi & "</TD>" & vbCrLf) ' Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"" class=""br1""><span style=""width:227px; height:14px; overflow:hidden;"">" & HardWrap(Tekiyo) & "</span></TD>" & vbCrLf) ' Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Syunyu , false, true) & "</TD>" & vbCrLf) ' Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(Shisyutsu, false, true) & "</TD>" & vbCrLf) ' Response.Write("<TD WIDTH=""94"" HEIGHT=""23"" ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Zandaka, false, true) & "</TD>" & vbCrLf) Next 'SpreadRow = SpreadRow & "</TR>" & vbCrLf Response.Write("</TR>" & vbCrLf) End Sub Function HtmlDesign(i) Dim MailBlink Dim Query, Content Dim TmpKaishaMeisho Dim AdminCode Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then AdminCode = Content.Fields("管理者コード") If "" & Content.Fields("メモ表示") = "2" Then '運用管理画面では表示しない If GB_Admin < 1 Then Session(HomeAlias & "AdminMessageHyoji") = "1" '生徒側も表示 End If ElseIf "" & Content.Fields("メモ表示") = "1" Then '運用管理者のみ黒板表示 運用管理画面では表示しない 演習管理者は管理演習でのみ表示 'If Session(HomeAlias & "AutoLoginButton") = "1" And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then '教師機のみ黒板表示 運用管理画面では表示しない If GB_AdminPC = "1" And GB_Admin < 1 Then Session(HomeAlias & "AdminMessageHyoji") = "1" End If End If End If 'サイバー会計モードで業種確定時は一部の色を変える Dim TmpColor Dim TmpColorObj Dim TmpColorObj2 TmpColor = Session(HomeAlias & "GyosyuColor") TmpColorObj = Session(HomeAlias & "GyosyuColorObj") TmpColorObj2 = Session(HomeAlias & "GyosyuColorObj") If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" Then If GB_Admin < 1 Then TmpColor = "#275F00" TmpColor = "#2A6500" TmpColor = "#29A37A" TmpColor = "#248F6B" TmpColor = "#248F8B" TmpColor = "#007777" TmpColorObj = "ca" TmpColorObj2 = "ca" Else TmpColorObj = "ca" TmpColorObj2 = "caa" End If End If Dim AllContentWidth AllContentWidth = "100%" 'Edge対応のため全体幅固定 AllContentWidth = "1004" 'これはIE版のポップアップ幅 If GB_IEmode <> "1" Then ' AllContentWidth = "1024" 'IEでなければ広げる(保留) End If '黒板 Dim AdminMessageHTML AdminMessageHTML = "" If Session(HomeAlias & "AdminMessageHyoji") = "1" Then AdminMessageHTML = AdminMessageHTML & " <tr> " & vbCrLf AdminMessageHTML = AdminMessageHTML & " <td id=""AdminMessageLayer"" height=""38"">" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <table width=""100%"" height=""38"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse:collapse;"">" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <tr>" & vbCrLf ' AdminMessageHTML = AdminMessageHTML & " <td width=""36"" bgcolor=""#024433"" class=""tx1618"" style=""border:solid 3px #c79f6d;background-color:#c79f6d;font-weight:bold;"" onClick=""document.getElementById('AdminMessage').value='';"">" & vbCrLf ' AdminMessageHTML = AdminMessageHTML & " <center><nobr> メモ </nobr></center>" & vbCrLf ' AdminMessageHTML = AdminMessageHTML & " </td>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <td height=""38"" bgcolor=""#024433"" style=""vertical-align:middle;border:solid 3px #ab8a43;"">" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <center><nobr>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <input OnKeyDown=""FormKeyDown(this);"" type=""text"" name=""AdminMessage"" id=""AdminMessage"" size=""1"" value=""" & Session(HomeAlias & "AdminMessaage") & """ class=""tbox4_ime"" style=""width:" & (AllContentWidth - 56) & "px;background-color:#024433;border-color:#024433;color:#ffffff;font-size:20px;height:28px;font-weight:bold;text-align:center;"" onBlur=""FormStrLeftIME(this,255,true,true);AdminMessageFrame.location.href='" & HomeAliasSL & "include_layout_adminmessage.asp?AdminMessage='+document.getElementById('AdminMessage').value;"" autocomplete=""off"">" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </nobr></center>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </td>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <td width=""36"" bgcolor=""#024433"" class=""tx1416"" style=""border:solid 3px #ab8a43;background-color:#ab8a43;cursor:pointer;"" onClick=""document.getElementById('AdminMessage').value='';AdminMessageFrame.location.href='" & HomeAliasSL & "include_layout_adminmessage.asp?AdminMessage=';"">" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <center><nobr> <image src=""" & HomeAliasSL & "images/eraser32.png?" & GB_STU & """> </nobr></center>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <div style=""width:0px;height:0px"">" & vbCrLf AdminMessageHTML = AdminMessageHTML & " <IFRAME name=""AdminMessageFrame"" SRC="""" WIDTH=""0"" HEIGHT=""0"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </IFRAME>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </div>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </td>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </tr>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </table>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </td>" & vbCrLf AdminMessageHTML = AdminMessageHTML & " </tr>" & vbCrLf End If If InStr(UCase(Request.ServerVariables("URL")), UCase("" & HomeAliasSL & "admin/mail")) = 0 Then '運用管理では受発信文書クローズ時のmailblk()を行わない MailBlink = "mailblk();" End If If i = 12 Then '為替レート表 HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""40"" valign=""bottom"" bgcolor=""#FFFFFF""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf ' HtmlDesign = HtmlDesign & " <td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """> " & vbCrLf ' HtmlDesign = HtmlDesign & " <table width=""1"" height=""27"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#33CC99"">" & vbCrLf ' HtmlDesign = HtmlDesign & " <tr> " & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""10"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzl.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(10,1) & "</td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td height=""25"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618b"" style=""color:#FFFFFF""><nobr></nobr></td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""25"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzr1.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""1"" height=""27"" bgcolor=""#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf ' HtmlDesign = HtmlDesign & " </tr>" & vbCrLf ' HtmlDesign = HtmlDesign & " </table>" & vbCrLf ' HtmlDesign = HtmlDesign & " </td>" & vbCrLf 'この幅を右の4セルの合計と合わせる HtmlDesign = HtmlDesign & " <td width=""200"" align=""center"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><div id=""BaseL2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkl.gif?" & GB_STU & """ class=""tx1416b""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" align=""center"" background=""" & HomeAliasSL & "images/mlttl_bkc.gif?" & GB_STU & """ class=""tx1618b""><div>" & Spacer(1,1) & "</div><div id=""BaseL4""></div></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkr.gif?" & GB_STU & """ class=""tx1416b""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""100"" align=""center"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><div id=""BaseL2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""30"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""65"" align=""right"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_1""></div>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""5"" align=""right"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf ElseIf i = 11 Then 'ポータルサイト HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""40"" valign=""bottom"" bgcolor=""#FFFFFF""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""1"" height=""27"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#33CC99"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzl.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(10,1) & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618b"" style=""color:#FFFFFF""><nobr>ポ ー タ ル サ イ ト</nobr></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""25"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzr1.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""1"" height=""27"" bgcolor=""#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkl.gif?" & GB_STU & """ class=""tx1416b""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" align=""center"" background=""" & HomeAliasSL & "images/mlttl_bkc.gif?" & GB_STU & """ class=""tx1618b""><div>" & Spacer(1,1) & "</div><div id=""BaseL4""></div></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkr.gif?" & GB_STU & """ class=""tx1416b""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""100"" align=""center"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><div id=""BaseL2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""30"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""230"" align=""center"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_1""></div>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf ElseIf i = 10 Then '定款・書類一覧 HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & AdminMessageHTML '黒板表示 HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" bgcolor=""#2A3B73""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""375"" height=""29"" align=""left""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""460"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/usrbk_c.gif?" & GB_STU & """ class=""tx1416"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "')""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""29"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""WindowTopRedirect();""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""30"" height=""25""></td>" & vbCrLf If GB_Admin = 1 Then HtmlDesign = HtmlDesign & " <td height=""29"" class=""tx1315"">" & HardWrap(AdminCode) & " </td>" & vbCrLf Else HtmlDesign = HtmlDesign & " <td height=""29"" class=""tx1315"">" & HardWrap(GakuseiNo) & " </td>" & vbCrLf End If ' HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&windowtype=1')""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""50"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""29""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""41"" height=""25""></td>" & vbCrLf If GB_Admin = 1 Then HtmlDesign = HtmlDesign & " <td width=""160"" height=""29"">運用管理者</td>" & vbCrLf Else HtmlDesign = HtmlDesign & " <td width=""160"" height=""29"" onClick=""UserPramUPD();"" style=""cursor:pointer;"">" & GakuseiShimei & "</td>" & vbCrLf End If HtmlDesign = HtmlDesign & " <td width=""16"" height=""29"" onClick=""tblbtn('" & HomeAliasSL & "system/session.asp')""><img src=""" & HomeAliasSL & "images/usrttl_dt.gif?" & GB_STU & """ width=""21"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" height=""29"" class=""tx1315"">" & GetYYYYMMDD() & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_r.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" align=""right"">" & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL1"" style=""height:29px;""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf 'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();""> </td>" & vbCrLf '演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する ElseIf (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_admin.gif?" & GB_STU & """ class=""tbtn"" onClick=""tblbtn( '" & HomeAliasSL & "default_bin.asp?AutoLoginAdmin=1&admin=1&AutoLoginEnshuCD=" & GB_EnshuCD & "&AdminPCE=" & GB_AdminPCE & "&AutoLoginReturn=" & Session(HomeAlias & "AutoLoginReturn") & "')""> </td>" & vbCrLf Else HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_lgof.gif?" & GB_STU & """ class=""tbtn"" onClick=""Logout()""> </td>" & vbCrLf End If HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" align=""left"" valign=""top"" background=""" & HomeAliasSL & "images/nvbar_bk.gif?" & GB_STU & """ bgcolor=""#8D9BCC""> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL2""></div>" & vbCrLf ' HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""top"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""30"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""30"" background=""" & HomeAliasSL & "images/kwin_bk_g.gif?" & GB_STU & """ bgcolor=""" & TmpColor & """>" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""28"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""28"" valign=""top""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""28""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""28"" valign=""middle"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_l" & TmpColorObj2 & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/kwin_tt_c" & TmpColorObj2 & ".gif?" & GB_STU & """ class=""tx1820b"" style=""color:#FFFFFF; font:bold"">" & vbCrLf ' HtmlDesign = HtmlDesign & " <div>" & Spacer(1,2) & "</div>" & vbCrLf 'タイトルバー内の文字ボックスの高さ位置調整 HtmlDesign = HtmlDesign & " <div id=""BaseL4""></div>" & vbCrLf ' HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_r" & TmpColorObj2 & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""6""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""6"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""220"" height=""28"" align=""left"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_1""></div>" & vbCrLf ' HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""210"" height=""28"">" & vbCrLf ' HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""28"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""28""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""30"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If ' HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf ElseIf i = 6 Then '受発信文書・メール HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""34"" valign=""top"" bgcolor=""#8D9BCC"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""34"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/mlttl_bk.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""bottom"" width="""">" & vbCrLf HtmlDesign = HtmlDesign & "<div id=""BaseL3_2""> </div>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""70"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""" & MailBlink & "ExitFlg=0;top.window.close()""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""60"" valign=""top""><img src=""" & HomeAliasSL & "images/mlttl_slogo.gif?" & GB_STU & """ width=""60"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""40"" valign=""bottom"" bgcolor=""#FFFFFF""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""1"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""1"" height=""27"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#33CC99"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzl.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(10,1) & "</td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td height=""25"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1214b"" style=""color:#FFFFFF""><b>" & KaisyaRyakuMeisyo & "</b>" TmpKaishaMeisho = KaisyaRyakuMeisyo If KaisyaMeisyo <> "" Then TmpKaishaMeisho = KaisyaMeisyo End If If Len(TmpKaishaMeisho) > 16 Then TmpKaishaMeisho = "<span style=""font-size:14px;"">" & TmpKaishaMeisho & "</span>" End If ' HtmlDesign = HtmlDesign & " <td height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618"" style=""color:#FFFFFF""><nobr><b>" & KaisyaMeisyo & "</b>" If GB_CSS = "EC" Then HtmlDesign = HtmlDesign & " <td height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618"" style=""color:#FFFFFF""><nobr>" & TmpKaishaMeisho & "" Else HtmlDesign = HtmlDesign & " <td height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzc.gif?" & GB_STU & """ class=""tx1618"" style=""color:#FFFFFF""><nobr><b>" & TmpKaishaMeisho & "</b>" End If If PackageMode = 1 Or GB_Admin => 1 Then Else HtmlDesign = HtmlDesign & "<span class=""tx1416"">[" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]</span>" End If HtmlDesign = HtmlDesign & "</nobr></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""25"" height=""27"" background=""" & HomeAliasSL & "images/mlttl_wzr1.gif?" & GB_STU & """ class=""tx1416b"" style=""color:#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""1"" height=""27"" bgcolor=""#FFFFFF"">" & Spacer(25,1) & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <div>" & Spacer(1,1) & "</div>" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkl.gif?" & GB_STU & """ class=""tx1416b""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" align=""center"" background=""" & HomeAliasSL & "images/mlttl_bkc.gif?" & GB_STU & """ class=""tx1618b""><div>" & Spacer(1,1) & "</div><div id=""BaseL4""></div></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""19"" height=""25"" background=""" & HomeAliasSL & "images/mlttl_bkr.gif?" & GB_STU & """ class=""tx1416b""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""100"" align=""center"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><div id=""BaseL2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""30"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""230"" align=""center"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_1""></div>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""40"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf ElseIf i = 5 Then '記帳チェック HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""34"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""34"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/mlttl_bk.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""bottom""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""70"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""75"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""75"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/kwin_bk_ss.gif?" & GB_STU & """ bgcolor=""#8C7546"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""30"" height=""35"" valign=""middle""><img src=""" & HomeAliasSL & "images/ssw_icon_01.gif?" & GB_STU & """ width=""30"" height=""30""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""100"" height=""35"" valign=""middle"" class=""tx1820b"" style=""color:#FFFFFF""> チェック</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" align=""center"" valign=""bottom""> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""220"" height=""35""> </td>" & vbCrLf If GB_CSS = "EC" Then HtmlDesign = HtmlDesign & " <td width=""1"" height=""35"" style=""color:#FFFFFF"" class=""tx1618"" align=""right""><nobr>" & KaisyaMeisyo & "" Else HtmlDesign = HtmlDesign & " <td width=""1"" height=""35"" style=""color:#FFFFFF"" class=""tx1618"" align=""right""><nobr><b>" & KaisyaMeisyo & "</b>" End If If PackageMode = 1 Or GB_Admin => 1 Then Else HtmlDesign = HtmlDesign & "<span class=""tx1214"">[" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]</span>" End If HtmlDesign = HtmlDesign & "</nobr></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""40"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""" & TmpColor & """>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""5""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""5""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""5"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""5""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""30""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_l" & TmpColorObj2 & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td nowrap height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/kwin_tt_c" & TmpColorObj2 & ".gif?" & GB_STU & """ class=""tx1820b"" style=""color:#FFFFFF; font:bold"">" & vbCrLf ' HtmlDesign = HtmlDesign & " <div>" & Spacer(1,2) & "</div>" & vbCrLf 'タイトルバー内の文字ボックスの高さ位置調整 HtmlDesign = HtmlDesign & " <div id=""BaseL4""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_r" & TmpColorObj2 & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""6""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""6"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""180"" height=""35"" align=""right"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""30"" height=""36"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""180"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_1""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""70"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"" bgcolor=""#CED4E9"">" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf ElseIf i = 4 Then '照会集計(RouteType="ViewOnly") HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""34"" valign=""top"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""34"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/mlttl_bk.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""60""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""bottom""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""70"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();""> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""76"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""70"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/kwin_bk_ss.gif?" & GB_STU & """ bgcolor=""#8C7546"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""30"" height=""35"" valign=""middle""><img src=""" & HomeAliasSL & "images/ssw_icon_01.gif?" & GB_STU & """ width=""30"" height=""30""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""100"" height=""35"" valign=""middle"" class=""tx1820b"" style=""color:#FFFFFF""> 照会・集計</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" align=""center"" valign=""bottom""> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""220"" height=""35"" style=""color:#FFFFFF"" class=""tx1214"" align=""right""><b>" & KaisyaRyakuMeisyo & "</b>" If GB_CSS = "EC" Then HtmlDesign = HtmlDesign & " <td width=""1"" height=""35"" style=""color:#FFFFFF"" class=""tx1618"" align=""right""><nobr>" & KaisyaMeisyo & "" Else HtmlDesign = HtmlDesign & " <td width=""1"" height=""35"" style=""color:#FFFFFF"" class=""tx1618"" align=""right""><nobr><b>" & KaisyaMeisyo & "</b>" End If If PackageMode = 1 Or GB_Admin => 1 Then Else HtmlDesign = HtmlDesign & "<span class=""tx1214"">[" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]</span>" End If HtmlDesign = HtmlDesign & "</nobr></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""40"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""" & TmpColor & """>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""5""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""5""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""5"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""5""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35"" valign=""top"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""30""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/kwin_dl_g.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_l" & TmpColorObj2 & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td nowrap height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/kwin_tt_c" & TmpColorObj2 & ".gif?" & GB_STU & """ class=""tx1820b"" style=""color:#FFFFFF; font:bold"">" & vbCrLf ' HtmlDesign = HtmlDesign & " <div>" & Spacer(1,2) & "</div>" & vbCrLf 'タイトルバー内の文字ボックスの高さ位置調整 HtmlDesign = HtmlDesign & " <div id=""BaseL4""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_r" & TmpColorObj2 & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""6""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""6"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""180"" height=""35"" align=""right"" valign=""top"">" & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""30"" height=""35"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""180"" height=""36"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """>" & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_1""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""70"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"" bgcolor=""#CED4E9"">" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf ElseIf i = 7 Then '新規ログイン登録 HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"">" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf ElseIf i = 8 Then '演習選択・Excel取り込み関係 HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" bgcolor=""#2A3B73""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""430"" height=""29"" align=""left""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""460"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/usrbk_c.gif?" & GB_STU & """ class=""tx1416"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&" & Request.ServerVariables("QUERY_STRING") & "')""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""29"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""WindowTopRedirect();""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""30"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""29"" class=""tx1315"">" & HardWrap(GakuseiNo) & " </td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&" & Request.ServerVariables("QUERY_STRING") & "&windowtype=1')""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""50"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""29""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""41"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""160"" height=""29"" onClick=""UserPramUPD();"" style=""cursor:pointer;"">" & GakuseiShimei & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""16"" height=""29"" onClick=""tblbtn('" & HomeAliasSL & "system/session.asp')""><img src=""" & HomeAliasSL & "images/usrttl_dt.gif?" & GB_STU & """ width=""21"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" height=""29"" class=""tx1315"">" & GetYYYYMMDD() & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_r.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" align=""right"">" & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL1"" style=""height:29px;""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf 'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();""> </td>" & vbCrLf '演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する ElseIf (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_admin.gif?" & GB_STU & """ class=""tbtn"" onClick=""tblbtn( '" & HomeAliasSL & "default_bin.asp?AutoLoginAdmin=1&admin=1&AutoLoginEnshuCD=" & GB_EnshuCD & "&AdminPCE=" & GB_AdminPCE & "&AutoLoginReturn=" & Session(HomeAlias & "AutoLoginReturn") & "')""> </td>" & vbCrLf Else HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_lgof.gif?" & GB_STU & """ class=""tbtn"" onClick=""Logout()""> </td>" & vbCrLf End If HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"">" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf ElseIf i = 9 Then '会社選択・公証人・会社作成・名刺マナー HtmlDesign = "" HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & AdminMessageHTML '黒板表示 HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""29"" bgcolor=""#2A3B73""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""430"" height=""29"" align=""left""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""460"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/usrbk_c.gif?" & GB_STU & """ class=""tx1416"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "')""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""29"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""WindowTopRedirect();""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""30"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""29"" class=""tx1315"">" & HardWrap(GakuseiNo) & " </td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&windowtype=1')""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""50"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""29""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""41"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""160"" height=""29"" onClick=""UserPramUPD();"" style=""cursor:pointer;"">" & GakuseiShimei & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""16"" height=""29"" onClick=""tblbtn('" & HomeAliasSL & "system/session.asp')""><img src=""" & HomeAliasSL & "images/usrttl_dt.gif?" & GB_STU & """ width=""21"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" height=""29"" class=""tx1315"">" & GetYYYYMMDD() & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_r.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""29"" align=""right"">" & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL1"" style=""height:29px;""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf 'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then HtmlDesign = HtmlDesign & "<td width=""70"" height=""25"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();""> </td>" & vbCrLf '演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する ElseIf (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_admin.gif?" & GB_STU & """ class=""tbtn"" onClick=""tblbtn( '" & HomeAliasSL & "default_bin.asp?AutoLoginAdmin=1&admin=1&AutoLoginEnshuCD=" & GB_EnshuCD & "&AdminPCE=" & GB_AdminPCE & "&AutoLoginReturn=" & Session(HomeAlias & "AutoLoginReturn") & "')""> </td>" & vbCrLf Else HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_lgof.gif?" & GB_STU & """ class=""tbtn"" onClick=""Logout()""> </td>" & vbCrLf End If HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" align=""left"" valign=""top"" background=""" & HomeAliasSL & "images/nvbar_bk.gif?" & GB_STU & """> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL2""></div>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"">" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf Else 'If i = 1 Then '全般? HtmlDesign = "" 'HtmlDesign = HtmlDesign & Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf HtmlDesign = HtmlDesign & "<center>" & vbCrLf HtmlDesign = HtmlDesign & "<table id=""MainContentsLayer"" width=""" & AllContentWidth & """ height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & AdminMessageHTML '黒板表示 HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""29"" bgcolor=""#2A3B73"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""375"" height=""29"" align=""left""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""460"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"" background=""" & HomeAliasSL & "images/usrbk_c.gif?" & GB_STU & """ class=""tx1416"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "')""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""29"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_l.gif?" & GB_STU & """ onClick=""WindowTopRedirect();""><img src=""" & HomeAliasSL & "images/usrttl_id.gif?" & GB_STU & """ width=""30"" height=""25""></td>" & vbCrLf If GB_Admin = 1 Then HtmlDesign = HtmlDesign & " <td height=""29"" class=""tx1315"">" & HardWrap(AdminCode) & " </td>" & vbCrLf Else HtmlDesign = HtmlDesign & " <td height=""29"" class=""tx1315"">" & HardWrap(GakuseiNo) & " </td>" & vbCrLf End If ' HtmlDesign = HtmlDesign & " <td width=""29"" height=""29"" onClick=""tblbtn( '" & HomeAliasSL & "redirect.asp?url=" & Request.ServerVariables("URL") & "&windowtype=1')""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""50"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""29""><img src=""" & HomeAliasSL & "images/usrttl_nm.gif?" & GB_STU & """ width=""41"" height=""25""></td>" & vbCrLf If GB_Admin = 1 Then HtmlDesign = HtmlDesign & " <td width=""160"" height=""29"">運用管理者</td>" & vbCrLf Else HtmlDesign = HtmlDesign & " <td width=""160"" height=""29"" onClick=""UserPramUPD();"" style=""cursor:pointer;"">" & GakuseiShimei & "</td>" & vbCrLf End If HtmlDesign = HtmlDesign & " <td width=""16"" height=""29"" onClick=""tblbtn('" & HomeAliasSL & "system/session.asp')""><img src=""" & HomeAliasSL & "images/usrttl_dt.gif?" & GB_STU & """ width=""21"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""70"" height=""29"" class=""tx1315"">" & GetYYYYMMDD() & "</td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""29"" background=""" & HomeAliasSL & "images/usrbk_r.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""29"" align=""right"">" & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL1"" style=""height:29px;""></div>" & vbCrLf HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf '演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する If (Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then ' If (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_admin.gif?" & GB_STU & """ class=""tbtn"" onClick=""tblbtn( '" & HomeAliasSL & "default_bin.asp?AutoLoginAdmin=1&admin=1&AutoLoginEnshuCD=" & GB_EnshuCD & "&AdminPCE=" & GB_AdminPCE & "&AutoLoginReturn=" & Session(HomeAlias & "AutoLoginReturn") & "')""> </td>" & vbCrLf Else 'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_close.gif?" & GB_STU & """ class=""tbtn"" onClick=""ExitFlg=0;top.window.close();""> </td>" & vbCrLf Else HtmlDesign = HtmlDesign & "<td width=""70"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_lgof.gif?" & GB_STU & """ class=""tbtn"" onClick=""Logout()""> </td>" & vbCrLf End If End If HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" align=""left"" valign=""top"" background=""" & HomeAliasSL & "images/nvbar_bk.gif?" & GB_STU & """ bgcolor=""#8D9BCC""> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL2""></div>" & vbCrLf ' HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""top"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""70"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_lu.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""70"" background=""" & HomeAliasSL & "images/kwin_bk_g.gif?" & GB_STU & """ bgcolor=""" & TmpColor & """>" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""215"" height=""35"" align=""left"" valign=""middle"" class=""tx1416"" style=""color:#FFFFFF""><b>" & KaisyaRyakuMeisyo & "</b>" ' HtmlDesign = HtmlDesign & " <td width=""275"" height=""35"" align=""left"" valign=""middle"" class=""tx1416"" style=""color:#FFFFFF""><b>" & KaisyaMeisyo & "</b>" HtmlDesign = HtmlDesign & " <td width=""1"" height=""35"" align=""left"" valign=""middle"" class=""tx1618"" style=""color:#FFFFFF""><nobr>" TmpKaishaMeisho = KaisyaRyakuMeisyo If KaisyaMeisyo <> "" Then TmpKaishaMeisho = KaisyaMeisyo End If If Len(TmpKaishaMeisho) > 16 Then TmpKaishaMeisho = "<span style=""font-size:14px;"">" & TmpKaishaMeisho & "</span>" End If If GB_CSS = "EC" Then HtmlDesign = HtmlDesign & "" & TmpKaishaMeisho & "" 'Chromebook対応のため太字廃止 Else HtmlDesign = HtmlDesign & "<b>" & TmpKaishaMeisho & "</b> " End If If PackageMode = 1 Or GB_Admin => 1 Then Else HtmlDesign = HtmlDesign & "<span class=""tx1416"">[" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]</span> " End If HtmlDesign = HtmlDesign & "</nobr></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""tx1416"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr><td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""6""></td></tr>" & vbCrLf 'メッセージバーの高さ位置調整 HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""20"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkl_" & TmpColorObj & ".gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/iwin_icon_info.gif?" & GB_STU & """ width=""20"" height=""25""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>" HtmlDesign = HtmlDesign & "<div id=""BaseL5""></div>" HtmlDesign = HtmlDesign & "<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf ' HtmlDesign = HtmlDesign & " <td width=""1"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """><input type=""text"" name=""dummy"" size=""1"" style=""font-size: 1px; border-style: solid; border-color: #FFFFFF; width: 0px; ime-mode: inactive;"" tabindex=""-1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""1"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """></td>" & vbCrLf If (GB_KaikeiKaishibi <> "" Or GB_KaikeiSyuryobi <> "") AND GB_Admin = 0 Then HtmlDesign = HtmlDesign & " <td width=""22"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/iwin_icon_date.gif?" & GB_STU & """ width=""20"" height=""25""></td>" & vbCrLf '実践日取得 Dim Jissenbi Jissenbi = "" Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & GB_EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) End If If Jissenbi <> "" Then HtmlDesign = HtmlDesign & " <td width=""1"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>" ' HtmlDesign = HtmlDesign & " <td width=""123"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>" HtmlDesign = HtmlDesign & "<nobr>実践日:" & Jissenbi & "</nobr>" HtmlDesign = HtmlDesign & "</td>" & vbCrLf If "" & Session(DBName & "AdminPC") = "1" Then HtmlDesign = HtmlDesign & " <td width=""1"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """><nobr> <span class=""tx1315"" style=""color: #FF0000; cursor: pointer;"" onClick=""tblbtn('" & HomeAliasSL & "admin/enshu/fm_jissenbi.asp?KaisyaCD=" & GB_KaisyaCD & "')"">日付変更</span></nobr></td>" & vbCrLf End If Else HtmlDesign = HtmlDesign & " <td width=""1"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>" ' HtmlDesign = HtmlDesign & " <td width=""219"" height=""25"" valign=""middle"" background=""" & HomeAliasSL & "images/iwin_bkc_" & TmpColorObj & ".gif?" & GB_STU & """>" HtmlDesign = HtmlDesign & "<nobr>会計期間:" & GB_KaikeiKaishibi & "~" & GB_KaikeiSyuryobi & "</nobr>" HtmlDesign = HtmlDesign & "</td>" & vbCrLf End If End If HtmlDesign = HtmlDesign & " <td width=""10"" height=""25"" background=""" & HomeAliasSL & "images/iwin_bkr_" & TmpColorObj & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35"" align=""right""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""35""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""35"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""35"" valign=""top""><img src=""" & HomeAliasSL & "images/kwin_wvline.gif?" & GB_STU & """ width=""1"" height=""30""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""35"" valign=""top"">" & vbCrLf HtmlDesign = HtmlDesign & " <table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HtmlDesign = HtmlDesign & " <tr>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_l" & TmpColorObj2 & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/kwin_tt_c" & TmpColorObj2 & ".gif?" & GB_STU & """ class=""tx1820b"" style=""color:#FFFFFF; font:bold"">" & vbCrLf 'HtmlDesign = HtmlDesign & " <div>" & Spacer(1,2) & "</div>" & vbCrLf 'タイトルバー内の文字ボックスの高さ位置調整 HtmlDesign = HtmlDesign & " <div id=""BaseL4""></div>" & vbCrLf 'HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""15"" height=""25"" background=""" & HomeAliasSL & "images/kwin_tt_r" & TmpColorObj2 & ".gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""6""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""6"" height=""1""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""120"" height=""35"" align=""left"" valign=""top""> " & vbCrLf HtmlDesign = HtmlDesign & " <div id=""BaseL3_2""></div>" & vbCrLf ' HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""29"" height=""35"" background=""" & HomeAliasSL & "images/kwin_dc_g.gif?" & GB_STU & """> </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""210"" height=""36"" valign=""bottom"" background=""" & HomeAliasSL & "images/kwin_dr_g.gif?" & GB_STU & """>" HtmlDesign = HtmlDesign & " <div id=""BaseL3_1""></div>" & vbCrLf ' HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""70"" valign=""top"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/mwshd_ru.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_lc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td align=""center"" valign=""middle"" bgcolor=""#CED4E9""> " & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "<div style=""display:table;width:100%;height:100%;""><div id=""BaseL0"" style=""display:table-cell;vertical-align:middle;height:100%;""></div></div>" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "<div id=""BaseL0""></div>" & vbCrLf End If 'HtmlDesign = HtmlDesign & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" background=""" & HomeAliasSL & "images/mwshd_rc.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " <tr> " & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_ld.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td height=""10"" background=""" & HomeAliasSL & "images/mwshd_CD.gif?" & GB_STU & """><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " <td width=""10"" height=""10""><img src=""" & HomeAliasSL & "images/mwshd_rd.gif?" & GB_STU & """ width=""10"" height=""10""></td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & " </table>" & vbCrLf HtmlDesign = HtmlDesign & " </td>" & vbCrLf HtmlDesign = HtmlDesign & " </tr>" & vbCrLf HtmlDesign = HtmlDesign & "</table>" & vbCrLf HtmlDesign = HtmlDesign & "</center>" & vbCrLf End If 'プリンタ出力ページを別ウィンドウで表示するJavaScriptフラグ HtmlDesign = HtmlDesign & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf HtmlDesign = HtmlDesign & "<!--" & vbCrLf HtmlDesign = HtmlDesign & " PrintOpenWindow = " & PrintOpenWindow & ";" & vbCrLf HtmlDesign = HtmlDesign & "-->" & vbCrLf HtmlDesign = HtmlDesign & "</SCRIPT>" & vbCrLf 'セッションタイムアウトが発生しないよう対策(170612小野) HtmlDesign = HtmlDesign & " <div style=""width:0px;height:0px"">" & vbCrLf HtmlDesign = HtmlDesign & " <IFRAME name=""MaintainSessionIFrame"" SRC=""" & HomeAliasSL & "include_layout_dummy.asp"" WIDTH=""0"" HEIGHT=""0"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no>" & vbCrLf HtmlDesign = HtmlDesign & " </IFRAME>" & vbCrLf HtmlDesign = HtmlDesign & " </div>" & vbCrLf End Function '※ModeにCSSファイル名を指定できる。複数指定時はセミコロン区切り。 Function HtmlHeader(Mode) 'Mode引数の前後にセミコロンを付加(InStr判定のため) Mode = ";" & Mode & ";" Dim Kaisou Kaisou = "" Dim TmpScriptName '環境変数SCRIPT_NAMEを分解格納する配列 Dim Cnt 'ループカウンタ Dim TmpCnt 'カーソルカウンタ TmpCnt = 0 TmpScriptName = Request.ServerVariables("SCRIPT_NAME") TmpScriptName = Split(TmpScriptName, "/") 'HomeAliasを探す For Cnt = 0 To UBound(TmpScriptName) If "" & TmpScriptName(Cnt) = HomeAlias Then TmpCnt = Cnt Exit For End If Next 'HomeAliasより下の階層数を相対パスにする TmpCnt = TmpCnt + 1 For Cnt = TmpCnt To UBound(TmpScriptName) 'ファイルが見付かったら終了 If InStr("" & TmpScriptName(Cnt), ".") > 0 Then Exit For End If Kaisou = Kaisou & "../" Next HtmlHeader = "" HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "<head>" & vbCrLf HtmlHeader = HtmlHeader & "<meta http-equiv=""Content-Type"" content=""text/html; charset=shift_jis"">" & vbCrLf HtmlHeader = HtmlHeader & "<meta http-equiv=""content-language"" content=""ja"">" & vbCrLf '日本語指定 HtmlHeader = HtmlHeader & "<meta name=""description"" content=""システム・フューチャーの教育ソフトは、信頼と実績で全国各地の学校に導入されています。"">" & vbCrLf HtmlHeader = HtmlHeader & "<!-- システム・フューチャーの教育ソフトは、信頼と実績で全国各地の学校に導入されています。-->" & vbCrLf HtmlHeader = HtmlHeader & "<meta http-equiv=""Pragma"" content=""no-cache"">" & vbCrLf HtmlHeader = HtmlHeader & "<meta http-equiv=""Cache-Control"" content=""no-cache"">" & vbCrLf HtmlHeader = HtmlHeader & "<meta http-equiv=""Expires"" content=""-1"">" & vbCrLf If InStr(Mode, ";-sj3web;") < 1 Then 'マイナス指定の場合のみsj3web.cssを除外する HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3web.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyoboblack;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboblack.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyoboblack11;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboblack11.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyoboblackPRT09;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboblackPRT09.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyoboblacks;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboblacks.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyobored;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyobored.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyobored1;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyobored1.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyobored2;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyobored2.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyobored11;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyobored11.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyoboredPRT09;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboredPRT09.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyoboredPRT10;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboredPRT10.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If InStr(Mode, ";sj3tyoboreds;") > 0 Then HtmlHeader = HtmlHeader & "<link href=""" & Kaisou & "binx/" & GB_CSS & "sj3tyoboreds.css?" & TimeUniq() & """ rel=""stylesheet"" type=""text/css"">" & vbCrLf End If If Mode = ";Calc;" Then HtmlHeader = HtmlHeader & "<title>電卓</title>" & vbCrLf Else HtmlHeader = HtmlHeader & "<title>" & AppTitle & "</title>" & vbCrLf End If HtmlHeader = HtmlHeader & "<script language=""JavaScript"" src=""" & Kaisou & "include.js?" & TimeUniq() & """></script>" & vbCrLf HtmlHeader = HtmlHeader & "<script language=""JavaScript"" src=""" & Kaisou & "includesj.js?" & TimeUniq() & """></script>" & vbCrLf ' HtmlHeader = HtmlHeader & "<script language=""JScript"" src=""" & Kaisou & "include.js?" & TimeUniq() & """></script>" & vbCrLf ' HtmlHeader = HtmlHeader & "<script language=""JScript"" src=""" & Kaisou & "includesj.js?" & TimeUniq() & """></script>" & vbCrLf ' HtmlHeader = HtmlHeader & "<script language=""JScript.Encode"" src=""" & Kaisou & "include_enc.js?" & TimeUniq() & """></script>" & vbCrLf ' HtmlHeader = HtmlHeader & "<script language=""JScript.Encode"" src=""" & Kaisou & "includesj_enc.js?" & TimeUniq() & """></script>" & vbCrLf HtmlHeader = HtmlHeader & "<script type=""text/javascript"" src=""" & Kaisou & "javascript.js?" & TimeUniq() & """></script>" & vbCrLf If InStr(Mode, ";Chart;") > 0 Then 'チャートライブラリを読み込む ' HtmlHeader = HtmlHeader & "<script src=""" & Kaisou & "binx/chart.js""></script>" & vbCrLf HtmlHeader = HtmlHeader & "<script src=""" & Kaisou & "binx/chart.min.js""></script>" & vbCrLf End If If 0=1 And GB_IEmode <> "1" Then '戻るボタンを抑制すると「○○は登録済みです」画面の戻るリンクが聞かなくなってしまうので廃止 HtmlHeader = HtmlHeader & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf HtmlHeader = HtmlHeader & "<!--" & vbCrLf HtmlHeader = HtmlHeader & " history.pushState(null, null, location.href);" & vbCrLf HtmlHeader = HtmlHeader & " window.addEventListener('popstate', (e) => {" & vbCrLf HtmlHeader = HtmlHeader & " history.go(1);" & vbCrLf HtmlHeader = HtmlHeader & " });" & vbCrLf HtmlHeader = HtmlHeader & "-->" & vbCrLf HtmlHeader = HtmlHeader & "</SCRIPT>" & vbCrLf End If HtmlHeader = HtmlHeader & "</head>" & vbCrLf End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称:HttpL1,2,3 ' 目的:通常ページ内のレイヤーの内容を返す ' 作成:2002/9/30 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function HttpL1 (iType) Dim RateEnable RateEnable = True '為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する変数 Dim RateRowCnt Dim RateColCnt '受発信文書フレーム及びメッセンジャーフレームの自動リロードフラグ Dim AutoReload AutoReload = "" '入力画面ではリロード時にタブコントロールが飛んでしまうのでリロードさせない(090423小野) Dim TmpUrl TmpUrl = LCase(Request.ServerVariables("SCRIPT_NAME")) If Right(TmpUrl, 12) = "/default.asp" Or InStr(TmpUrl, "/menu") > 0 Or InStr(TmpUrl, "_view") Or InStr(TmpUrl, "_main") > 0 Or InStr(TmpUrl, "_ichiran") > 0 Or Right(TmpUrl, 11) = "/admenu.asp" Then 'AutoReload = "1" 'メッセンジャーのオートリロードは廃止(210528小野) End If 'FESメッセンジャー存在チェック Dim MESdb If MESvariable = 1 Then On Error Resume Next Err.Clear() Set MESdb = Server.CreateObject("ADODB.Connection") MESdb.ConnectionTimeout = 60 MESdb.CommandTimeout = 60 MESdb.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DBUser & ";Password=" & DBPass & ";Initial Catalog=fesmessenger;Data Source=" & SQLServer If Err.Description <> "" Then MESvariable = 0 Else 'フィールド数によるバージョン整合判定(140804版で11フィールドに拡張) Query = " SELECT TOP 1 * FROM TMSメッセージ受信F " Set Content = ExecQuery(MESdb, Query) If Content.Fields.Count < 11 Then MESvariable = 0 End If End If On Error Goto 0 End If 'FESメッセンジャー管理者識別(演習会社ログイン後はユーザーモードでも管理者にする) Dim ForceAdmin Dim ForceEnshu ForceAdmin = GB_Admin ForceEnshu = "" If ForceAdmin < 1 And Session(HomeAlias & "AutoLoginButton") = "1" Then If GB_AdminPCE = "" Then '演習会社ログイン後且つ演習管理者ではない ForceAdmin = 1 ForceEnshu = GB_EnshuCD '選択演習を初期表示にする ElseIf GB_AdminPCE = GB_EnshuCD Then ForceAdmin = 2 End If End If 'FESメッセンジャーフレームに渡す引数 Dim MessengerQuery If PackageMode = 1 Then MessengerQuery = "?MES_AppCD=ca21" Else MessengerQuery = "?MES_AppCD=sj4web" End If MessengerQuery = MessengerQuery & "&MES_SystemCD=" & GB_SystemCD MessengerQuery = MessengerQuery & "&MES_DBName=" & DBName MessengerQuery = MessengerQuery & "&MES_DBUser=" & DBUser MessengerQuery = MessengerQuery & "&MES_DBPass=" & DBPass MessengerQuery = MessengerQuery & "&MES_Admin=" & ForceAdmin MessengerQuery = MessengerQuery & "&MES_ForceEnshu=" & ForceEnshu MessengerQuery = MessengerQuery & "&MES_Enshu=" & GB_EnshuCD MessengerQuery = MessengerQuery & "&MES_User=" & GB_GakuseiNo ' MessengerQuery = MessengerQuery & "&OpenMode=Send" Dim Kitakuriyou Dim KichoCheck Dim CheckButton Dim MailButton KichoCheck = 1 CheckButton = 1 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") If "" & Content.Fields("手動総勘定元帳表示") <> "1" And "" & Content.Fields("現金出納帳表示") <> "1" And "" & Content.Fields("当座預金出納帳表示") <> "1" And "" & Content.Fields("売上帳表示") <> "1" And "" & Content.Fields("仕入帳表示") <> "1" And "" & Content.Fields("売掛金元帳表示") <> "1" And "" & Content.Fields("買掛金元帳表示") <> "1" And "" & Content.Fields("受取手形記入帳表示") <> "1" And "" & Content.Fields("支払手形記入帳表示") <> "1" Then KichoCheck = 0 End If If (KichoCheck = 0 Or "" & Content.Fields("記帳チェック表示") = "0") And "" & Content.Fields("現物チェック表示") <> "1" And "" & Content.Fields("商品チェック表示") <> "1" Then CheckButton = 0 End If MailButton = "" & Content.Fields("メール利用") End If If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If If PackageMode = 1 And GB_EnshuKubun = "P" Then MailButton = "" End If Dim bCheck bCheck = 0 Dim Query, Content If 0=1 Then Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Dim BunsyoInfo, MailInfo, KaifuFlg Do While Not(Content.BOF Or Content.EOF) If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then bCheck = 1 End If Content.MoveNext Loop Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then bCheck = 1 End If Content.MoveNext Loop End If If iType = 0 Then HttpL1 = "" HttpL1 = HttpL1 & "<div id=""L1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf 'FESメッセンジャーデータベースが存在すればボタン表示 If MESvariable = 1 Then HttpL1 = HttpL1 & " <table height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL1 = HttpL1 & " <tr>" & vbCrLf HttpL1 = HttpL1 & " <td width=""25"" height=""29"" valign=""middle"">" & vbCrLf HttpL1 = HttpL1 & " <IFRAME name=""messengeriframe"" SRC=""" & HomeAliasSL & "include_layout_messenger.asp" & MessengerQuery & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""25"" HEIGHT=""25"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf HttpL1 = HttpL1 & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf HttpL1 = HttpL1 & " </IFRAME>" & vbCrLf HttpL1 = HttpL1 & " </td>" & vbCrLf HttpL1 = HttpL1 & " </tr>" & vbCrLf HttpL1 = HttpL1 & " </table>" & vbCrLf End If HttpL1 = HttpL1 & "</div>" & vbCrLf ElseIf iType = 1 Then 'ポータル、チェック、照会・集計、受発信文書、メッセンジャー、電卓 HttpL1 = "" HttpL1 = HttpL1 & "<div id=""L1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf HttpL1 = HttpL1 & " <table height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL1 = HttpL1 & " <tr>" & vbCrLf RateEnable = False Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("為替レート利用") = "1" Then RateEnable = True End If End If If RateEnable Then '為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する RateRowCnt = 0 RateColCnt = 0 Query = "" Query = Query & " SELECT * " Query = Query & " FROM TDA為替レートM " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " ORDER BY 通貨CD " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) RateEnable = True RateRowCnt = RateRowCnt + 1 If Len(Content.Fields("名称")) > RateColCnt Then RateColCnt = Len(Content.Fields("名称")) End If If Len(Content.Fields("単位")) > RateColCnt Then RateColCnt = Len(Content.Fields("単位")) End If Content.MoveNext Loop If RateEnable Then RateRowCnt = RateRowCnt - 5 '基準行数5を減算 RateColCnt = RateColCnt - 3 '基準文字数3を減算 If RateRowCnt < 0 Then RateRowCnt = 0 End If If RateColCnt < 0 Then RateColCnt = 0 End If RateRowCnt = RateRowCnt * 36 RateColCnt = RateColCnt * 36 HttpL1 = HttpL1 & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_rate.png?" & GB_STU & """ class=""tbtn"" onClick=""wopenR(" & RateColCnt & "," & RateRowCnt & ");""> </td>" & vbCrLf End If End If ' If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not((GB_Gyosyu = "K" Or GB_Gyosyu = "U") And Kitakuriyou = 1) Then ' If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not(GB_Gyosyu = "K") And Not(GB_Gyosyu = "U") Then If CMvariable = 1 And Not(GB_Gyosyu = "B") Then HttpL1 = HttpL1 & " <td width=""93"" background=""" & HomeAliasSL & "images/spbtn_cm.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/portal/portal_kaisha_ichiran.asp','portal')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf End If If GB_Gyosyu <> "B" Then If CheckButton = 1 Then HttpL1 = HttpL1 & " <td width=""85"" background=""" & HomeAliasSL & "images/spbtn_cc.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/kityocheck/fm_kityo_check.asp?RouteType=KityoOnly','KichoCheck')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf End If HttpL1 = HttpL1 & " <td width=""103"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_ss.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/menu_s_viewonly.asp','syoukai')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf End If ' If bCheck = 1 Then ' HttpL1 = HttpL1 & " <td width=""95"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_mailblk.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=MailOnly','mail')"">" & vbCrLf ' Else ' HttpL1 = HttpL1 & " <td width=""95"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_mail_n.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=MailOnly','mail')"">" & vbCrLf ' End If HttpL1 = HttpL1 & " <td width=""110"" height=""29"">" & vbCrLf HttpL1 = HttpL1 & " <IFRAME name=""mailblink"" SRC=""" & HomeAliasSL & "include_layout_mail.asp?bCheck=" & bCheck & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""110"" HEIGHT=""28"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf HttpL1 = HttpL1 & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf HttpL1 = HttpL1 & " </IFRAME>" & vbCrLf HttpL1 = HttpL1 & " </td>" & vbCrLf 'FESメッセンジャーデータベースが存在すればボタン表示 If MESvariable = 1 Then HttpL1 = HttpL1 & " <td width=""25"" height=""29"" valign=""middle"">" & vbCrLf HttpL1 = HttpL1 & " <IFRAME name=""messengeriframe"" SRC=""" & HomeAliasSL & "include_layout_messenger.asp" & MessengerQuery & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""25"" HEIGHT=""25"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf HttpL1 = HttpL1 & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf HttpL1 = HttpL1 & " </IFRAME>" & vbCrLf HttpL1 = HttpL1 & " </td>" & vbCrLf End If ' HttpL1 = HttpL1 & " <td width=""30"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_img.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/kikakushitsu/gazokako.asp?RouteType=ImgWnd')""> </td>" & vbCrLf HttpL1 = HttpL1 & " <td width=""24"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_calc.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopenC()""> </td>" & vbCrLf HttpL1 = HttpL1 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HttpL1 = HttpL1 & " </tr>" & vbCrLf HttpL1 = HttpL1 & " </table>" & vbCrLf HttpL1 = HttpL1 & "</div>" & vbCrLf ElseIf iType = 2 Or iType = 3 Then 'ポータル、チェック、照会・集計、受発信文書、メッセンジャー、電卓 HttpL1 = "" HttpL1 = HttpL1 & "<div id=""L1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf HttpL1 = HttpL1 & " <table height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL1 = HttpL1 & " <tr>" & vbCrLf HttpL1 = HttpL1 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf RateEnable = False Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("為替レート利用") = "1" Then RateEnable = True End If End If If RateEnable Then RateEnable = False '為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する RateRowCnt = 0 RateColCnt = 0 Query = "" Query = Query & " SELECT * " Query = Query & " FROM TDA為替レートM " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " ORDER BY 通貨CD " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) RateEnable = True RateRowCnt = RateRowCnt + 1 If Len(Content.Fields("名称")) > RateColCnt Then RateColCnt = Len(Content.Fields("名称")) End If If Len(Content.Fields("単位")) > RateColCnt Then RateColCnt = Len(Content.Fields("単位")) End If Content.MoveNext Loop If RateEnable Then RateRowCnt = RateRowCnt - 5 '基準行数5を減算 RateColCnt = RateColCnt - 3 '基準文字数3を減算 If RateRowCnt < 0 Then RateRowCnt = 0 End If If RateColCnt < 0 Then RateColCnt = 0 End If RateRowCnt = RateRowCnt * 36 RateColCnt = RateColCnt * 36 HttpL1 = HttpL1 & " <td width=""29"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_rate.png?" & GB_STU & """ class=""tbtn"" onClick=""wopenR(" & RateColCnt & "," & RateRowCnt & ");""> </td>" & vbCrLf HttpL1 = HttpL1 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf End If End If ' If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not((GB_Gyosyu = "K" Or GB_Gyosyu = "U") And Kitakuriyou = 1) Then ' If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not(GB_Gyosyu = "K") And Not(GB_Gyosyu = "U") Then 'サイバー会計モードではポータルボタンを表示しない If PackageMode = 1 Then Else If CMvariable = 1 And Not(GB_Gyosyu = "B") And PackageMode <> 1 Then HttpL1 = HttpL1 & " <td width=""93"" background=""" & HomeAliasSL & "images/spbtn_cm.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/portal/portal_kaisha_ichiran.asp','portal')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf End If End If 'サイバー会計のグループモードでは「メール」ボタンを表示する If PackageMode = 1 And GB_EnshuKubun = "G" And MailButton = "1" Then HttpL1 = HttpL1 & " <td width=""85"" height=""29"">" & vbCrLf HttpL1 = HttpL1 & " <IFRAME name=""mailblink"" SRC=""" & HomeAliasSL & "include_layout_mail.asp?bCheck=" & bCheck & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""85"" HEIGHT=""29"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf HttpL1 = HttpL1 & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf HttpL1 = HttpL1 & " </IFRAME>" & vbCrLf HttpL1 = HttpL1 & " </td>" & vbCrLf End If If GB_Gyosyu <> "B" Then If CheckButton = 1 Then HttpL1 = HttpL1 & " <td width=""85"" background=""" & HomeAliasSL & "images/spbtn_cc.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/kityocheck/fm_kityo_check.asp?RouteType=KityoOnly','KichoCheck')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf End If HttpL1 = HttpL1 & " <td width=""103"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_ss.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/menu_s_viewonly.asp','syoukai')""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1""></td>" & vbCrLf End If ' If bCheck = 1 Then ' HttpL1 = HttpL1 & " <td width=""95"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_mailblk.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=MailOnly','mail')"">" & vbCrLf ' Else ' HttpL1 = HttpL1 & " <td width=""95"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_mail_n.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=MailOnly','mail')"">" & vbCrLf ' End If 'サイバー会計モードでは受発信文書ボタンを表示しない If PackageMode = 1 Then Else HttpL1 = HttpL1 & " <td width=""110"" height=""29"">" & vbCrLf HttpL1 = HttpL1 & " <IFRAME name=""mailblink"" SRC=""" & HomeAliasSL & "include_layout_mail.asp?bCheck=" & bCheck & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""110"" HEIGHT=""29"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf HttpL1 = HttpL1 & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf HttpL1 = HttpL1 & " </IFRAME>" & vbCrLf HttpL1 = HttpL1 & " </td>" & vbCrLf End If 'FESメッセンジャーデータベースが存在すればボタン表示 If MESvariable = 1 Then HttpL1 = HttpL1 & " <td width=""25"" height=""29"" valign=""middle"">" & vbCrLf HttpL1 = HttpL1 & " <IFRAME name=""messengeriframe"" SRC=""" & HomeAliasSL & "include_layout_messenger.asp" & MessengerQuery & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""25"" HEIGHT=""25"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf HttpL1 = HttpL1 & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf HttpL1 = HttpL1 & " </IFRAME>" & vbCrLf HttpL1 = HttpL1 & " </td>" & vbCrLf End If ' HttpL1 = HttpL1 & " <td width=""30"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_img.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopen('" & HomeAliasSL & "user/bk/kikakushitsu/gazokako.asp?RouteType=ImgWnd')""> </td>" & vbCrLf HttpL1 = HttpL1 & " <td width=""24"" height=""29"" background=""" & HomeAliasSL & "images/spbtn_calc.gif?" & GB_STU & """ class=""tbtn"" onClick=""wopenC()""> </td>" & vbCrLf HttpL1 = HttpL1 & " </tr>" & vbCrLf HttpL1 = HttpL1 & " </table>" & vbCrLf HttpL1 = HttpL1 & "</div>" & vbCrLf ElseIf iType = 4 Then '無し HttpL1 = "" HttpL1 = HttpL1 & "<div id=""L1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf HttpL1 = HttpL1 & " <table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL1 = HttpL1 & " <tr>" & vbCrLf HttpL1 = HttpL1 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf 'FESメッセンジャーデータベースが存在すればボタン表示 If MESvariable = 1 And InStr(UCase(Request.ServerVariables("URL")), UCase("" & HomeAliasSL & "admin/admenu_enshu_sentaku.asp")) < 1 Then HttpL1 = HttpL1 & " <td width=""25"" height=""29"" valign=""middle"">" & vbCrLf HttpL1 = HttpL1 & " <IFRAME name=""messengeriframe"" SRC=""" & HomeAliasSL & "include_layout_messenger.asp" & MessengerQuery & "&AutoReload=" & AutoReload & "&" & TimeUniq() & """ WIDTH=""25"" HEIGHT=""25"" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex=""-1"" allowTransparency=""true"">" & vbCrLf HttpL1 = HttpL1 & " <img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""8"" height=""1"">" & vbCrLf HttpL1 = HttpL1 & " </IFRAME>" & vbCrLf HttpL1 = HttpL1 & " </td>" & vbCrLf End If HttpL1 = HttpL1 & " </tr>" & vbCrLf HttpL1 = HttpL1 & " </table>" & vbCrLf HttpL1 = HttpL1 & "</div>" & vbCrLf End If End Function Function HttpL2 (btn1,btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c, btn6, btn6c) 'サイバー会計モードではボタンを入れ替える ' If PackageMode = 1 And btn1 = "会社選択" Then ' btn1 = "演習選択" ' btn1c = "tblbtn('" & HomeAliasSL & "user/default.asp')" ' End If ' If PackageMode = 1 And btn2 = "商社" Then ' btn2 = "メニュー" ' btn2c = "tblbtn('" & HomeAliasSL & "user/bk/menu_s.asp')" ' End If '使えないクエリ文字列を入れ替える btn1c = QueryStringIrekae(btn1c) btn2c = QueryStringIrekae(btn2c) btn3c = QueryStringIrekae(btn3c) btn4c = QueryStringIrekae(btn4c) btn5c = QueryStringIrekae(btn5c) btn6c = QueryStringIrekae(btn6c) Dim Query Dim Content Dim Kouririyou Dim Kitakuriyou Dim KitakuKeiyaku Dim InputHojyobo Dim AutoGenkinNyuSyukinRireki, AutoYokinNyuSyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity Dim SokanjyomototyoHyojyunshiki Dim SyohinNyusyukkoSeikousei Dim SiireNyuko Dim UriageHenpin Dim RiyoDenpyoSu Dim SeisanhyoSeirikinyu Dim InputShiwaketyoKyuVersionRiyo Dim SyohinKikakushitsuRiyo Dim GenkaKaikeiRiyo Dim NyuShukkoTanto Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") Kouririyou = "" & Content.Fields("小売販売有無") Dim YobiA YobiA = Content.Fields("履歴表示") AutoGenkinNyuSyukinRireki = Mid(YobiA, 1, 1) AutoYokinNyuSyukinRireki = Mid(YobiA, 2, 1) AutoNyukoJisseki = Mid(YobiA, 3, 1) AutoSyukoJisseki = Mid(YobiA, 4, 1) AutoSyohinZaiko = Mid(YobiA, 5, 1) AutoUketoriTegataIchiran = Mid(YobiA, 6, 1) AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1) InputHojyobo = Content.Fields("手動補助簿表示") InputShiwaketyo = Content.Fields("手動仕訳帳表示") InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示") InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示") InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示") InputSonekiKeisansyo = Content.Fields("手動損益計算書表示") InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示") InputStockholderEquity = Content.Fields("手動株主資本等変動計算書表示") AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示") AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示") AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示") AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示") AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示") AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示") AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示") AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示") SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用") SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用") RiyoDenpyoSu = Content.Fields("利用伝票数区分") SeisanhyoSeirikinyu = Content.Fields("整理記入精算表利用") InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用") SyohinKikakushitsuRiyo = "" & Content.Fields("商品開発課利用") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") NyuShukkoTanto = "" & Content.Fields("倉庫部利用") End If If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字 If Kouririyou = "1" Then Kouririyou = 1 Else Kouririyou = 0 End If If SyohinNyusyukkoSeikousei = "1" Then SiireNyuko = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SS&SenpoBunsyoSyuruiCD=SU&NyusyukoKubun=S" UriageHenpin = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SY&SenpoBunsyoSyuruiCD=SX" Else SiireNyuko = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SS&NyusyukoKubun=S" UriageHenpin = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SY" End If Dim PopuoKaigyo 'ポップアップメニュー折り返し PopuoKaigyo = "" If GB_IEmode = "1" Then PopuoKaigyo = " MenuItem.push(""kaigyo"", ""dummy"");" & vbCrLf End If HttpL2 = "" '※ ※ ※ ※ ※ ポップアップメニュー関数 ※ ※ ※ ※ ※(070218小野) HttpL2 = HttpL2 & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf HttpL2 = HttpL2 & "<!--" & vbCrLf HttpL2 = HttpL2 & "function PopupMenu(obj, item, posx, posy) {" & vbCrLf HttpL2 = HttpL2 & " posx = eval(posx) + document.getElementById('MainContentsLayer').getBoundingClientRect().left;" & vbCrLf HttpL2 = HttpL2 & " if (document.getElementById('AdminMessageLayer')) {" & vbCrLf If GB_IEmode <> "1" Then 'HttpL2 = HttpL2 & "alert(document.getElementById('AdminMessageLayer').getBoundingClientRect().height);" & vbCrLf HttpL2 = HttpL2 & " posy = eval(posy) + document.getElementById('AdminMessageLayer').getBoundingClientRect().height;" & vbCrLf '黒板表示の場合の下シフト Else HttpL2 = HttpL2 & " posy = eval(posy) + 40;" & vbCrLf '黒板表示の場合の下シフト(IEモードは固定値で妥協) End If HttpL2 = HttpL2 & " }" & vbCrLf ' HttpL2 = HttpL2 & "alert(posy);" & vbCrLf HttpL2 = HttpL2 & " var sjpopupmenuel = document.getElementById('sjpopupmenu');" & vbCrLf 'メニュー項目 HttpL2 = HttpL2 & " MenuItem = new Array();" & vbCrLf HttpL2 = HttpL2 & " switch (item) {" & vbCrLf '同時同業会社選択 If GB_EnshuKubun = "P" Then HttpL2 = HttpL2 & " case 'default':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""会社選択"", """ & HomeAliasSL & "user/bk"");" & vbCrLf Dim MenuCnt MenuCnt = 0 Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '0'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("会社取扱区分") <> 0 And Content.Fields("会社CD") <> KaisyaCD Then MenuCnt = MenuCnt + 1 HttpL2 = HttpL2 & " MenuItem.push(""" & Content.Fields("会社略名称") ' HttpL2 = HttpL2 & " MenuItem.push(""" & Content.Fields("会社略名称") & "-" ' If Content.Fields("業種名称") = "運輸・倉庫・保険" Then ' HttpL2 = HttpL2 & "運送" ' Else ' HttpL2 = HttpL2 & Content.Fields("業種名称") ' End If HttpL2 = HttpL2 & """, """ & HomeAliasSL & "user/bk/default_bin.asp?KaisyaCD=" & Content.Fields("会社CD") & """);" & vbCrLf If MenuCnt Mod 5 = 0 Then HttpL2 = HttpL2 & PopuoKaigyo End If End If Content.MoveNext Loop HttpL2 = HttpL2 & " break;" & vbCrLf End If '商社 HttpL2 = HttpL2 & " case 's':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""商社"", """ & HomeAliasSL & "user/bk/menu_s.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""経 理 部"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 入 部"", """ & HomeAliasSL & "user/bk/menu_s3.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""販 売 部"", """ & HomeAliasSL & "user/bk/menu_s2.asp"");" & vbCrLf If NyuShukkoTanto = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""倉 庫 部"", """ & HomeAliasSL & "user/bk/menu_s7.asp"");" & vbCrLf End If If Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""製 造 部"", """ & HomeAliasSL & "user/bk/menu_s6.asp"");" & vbCrLf ElseIf SyohinKikakushitsuRiyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""商 品 企 画 室"", """ & HomeAliasSL & "user/bk/menu_s5.asp"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " break;" & vbCrLf If 0 = 1 Then '部署内ポップアップは廃止 '経理部 HttpL2 = HttpL2 & " case 's1':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""経理部"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""伝 票"", """ & HomeAliasSL & "user/bk/menu_s11.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""帳 簿"", """ & HomeAliasSL & "user/bk/menu_s12.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""入 金"", """ & HomeAliasSL & "user/bk/kinko/fk_nyukin.asp?PageType=Nyukin"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""出 金"", """ & HomeAliasSL & "user/bk/kinko/fk_nyukin.asp?PageType=Shukkin"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""領 収 書 管 理"", """ & HomeAliasSL & "user/bk/ryosyusyo/fk_ryosyusyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""給 与 台 帳"", """ & HomeAliasSL & "user/bk/kyuyo/fk_kyuyo_ichiran.asp"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""小 切 手 管 理"", """ & HomeAliasSL & "user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TG"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""約束手形管理"", """ & HomeAliasSL & "user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TY"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""為替手形管理"", """ & HomeAliasSL & "user/bk/tegata/fk_tegata.asp?BunsyoSyuruiCD=TK"");" & vbCrLf If AutoUketoriTegataIchiran = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""受取手形履歴"", """ & HomeAliasSL & "user/bk/syokaisyukei/fk_uketorisiharaitegatatyo_view.asp?BunsyoSyuruiCD=MH&SenpoFlg=1"");" & vbCrLf End If If AutoShiaraiTegataIchiran = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""支払手形履歴"", """ & HomeAliasSL & "user/bk/syokaisyukei/fk_uketorisiharaitegatatyo_view.asp?BunsyoSyuruiCD=MI"");" & vbCrLf End If HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""勘定残高設定"", """ & HomeAliasSL & "user/bk/kisyusettei/fk_kanjyozandaka.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""繰越残高設定"", """ & HomeAliasSL & "user/bk/kisyusettei/fk_kurikoshizandaka.asp"");" & vbCrLf If SeisanhyoSeirikinyu = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""精算表整理記入"", """ & HomeAliasSL & "user/bk/kimatsusettei/fk_seisanhyo.asp"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""整理記入振替"", """ & HomeAliasSL & "user/bk/kimatsusettei/fk_furikae.asp"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""銀 行 窓 口"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf If AutoGenkinNyuSyukinRireki = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""入 出 金 履 歴"", """ & HomeAliasSL & "user/bk/syokaisyukei/fk_kinko_rireki.asp?PageType="");" & vbCrLf End If HttpL2 = HttpL2 & " break;" & vbCrLf '経理部 → 伝票 HttpL2 = HttpL2 & " case 's11':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""伝票"", """ & HomeAliasSL & "user/bk/menu_s11.asp"");" & vbCrLf If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then HttpL2 = HttpL2 & " MenuItem.push(""入 金 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Nyukin"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""出 金 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Shukkin"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""振 替 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_furikae.asp"");" & vbCrLf If RiyoDenpyoSu = "5"Then HttpL2 = HttpL2 & " MenuItem.push(""仕 入 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_shiireuriage.asp?Pagetype=Shiire"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""売 上 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_shiireuriage.asp?Pagetype=Uriage"");" & vbCrLf End If HttpL2 = HttpL2 & " break;" & vbCrLf '経理部 → 帳簿 HttpL2 = HttpL2 & " case 's12':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""帳簿"", """ & HomeAliasSL & "user/bk/menu_s12.asp"");" & vbCrLf If InputShiwaketyo = "1" Then If InputShiwaketyoKyuVersionRiyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""仕 訳 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakenikkityo_old.asp"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""仕 訳 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakenikkityo.asp"");" & vbCrLf End If End If If InputShiwakeShukeihyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""仕 訳 集 計 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakesyukeihyo.asp"");" & vbCrLf End If If InputGokeiZandakaShisanhyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""合計残高試算表"", """ & HomeAliasSL & "user/bk/tyobo/fk_gokeizandakashisanhyo.asp"");" & vbCrLf End If If InputSokanjyoMototyo = "1" Then If SokanjyomototyoHyojyunshiki = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_sokanjyomototyohyojyun.asp"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_sokanjyomototyo.asp"");" & vbCrLf End If End If If InputHojyobo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""現 金 出 納 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_genkinsuitotyo.asp?RouteType="");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""当座預金出納帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_touzayokinsuitotyo.asp?RouteType="");" & vbCrLf End If HttpL2 = HttpL2 & PopuoKaigyo If InputTaisyakuTaisyohyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""貸 借 対 照 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_taisyakutaisyohyo.asp"");" & vbCrLf End If If InputSonekiKeisansyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""損 益 計 算 書"", """ & HomeAliasSL & "user/bk/tyobo/fk_sonekikeisansyo.asp"");" & vbCrLf End If If InputHachiketaSeisanhyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""8 桁 精 算 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_hachiketaseisanhyo.asp"");" & vbCrLf End If If InputStockholderEquity = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""株主資本計算書"", """ & HomeAliasSL & "user/bk/tyobo/fk_stockholder_equity.asp"");" & vbCrLf End If If InputHojyobo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""売 上 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_shiireuriagetyo.asp?RouteType=&PageType=Uriage"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 入 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_shiireuriagetyo.asp?RouteType=&PageType=Shiire"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""売 掛 金 元 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_urikaikakekintyo.asp?RouteType=&PageType=Urikake"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""買 掛 金 元 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_urikaikakekintyo.asp?RouteType=&PageType=Kaikake"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""商 品 有 高 帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_syohinaridakatyo.asp?RouteType="");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""受取手形記入帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_uketorisiharaitegatatyo.asp?RouteType=&PageType=Uketori"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""支払手形記入帳"", """ & HomeAliasSL & "user/bk/hojyobo/fk_uketorisiharaitegatatyo.asp?RouteType=&PageType=Shiharai"");" & vbCrLf End If HttpL2 = HttpL2 & " break;" & vbCrLf '仕入部 HttpL2 = HttpL2 & " case 's3':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕入部"", """ & HomeAliasSL & "user/bk/menu_s3.asp"");" & vbCrLf If Gyosyu = "S" Or Gyosyu = "U" Then If Kitakuriyou < 1 Then HttpL2 = HttpL2 & " MenuItem.push(""見 積 依 頼 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KI"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""注 文 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KC"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""先注文請書確認"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui_ichiran.asp?BunsyoSyuruiCD=KK&SenpoBunsyoSyuruiCD=KU"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""物 品 受 領 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KB"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""管理部買入申込"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KX"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""見 積 依 頼 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KI"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""注 文 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KC"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""先方注文請書確"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui_ichiran.asp?BunsyoSyuruiCD=KK&SenpoBunsyoSyuruiCD=KU"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""物 品 受 領 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KB"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo If KitakuKeiyaku > 0 Then HttpL2 = HttpL2 & " MenuItem.push(""管理部買入申込"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KX"");" & vbCrLf End If End If HttpL2 = HttpL2 & " MenuItem.push(""管理部宛受領書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KO"");" & vbCrLf If KitakuKeiyaku > 0 Then HttpL2 = HttpL2 & " MenuItem.push(""寄 託 確 認"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_nyuko_ichiran.asp?BunsyoSyuruiCD=SS&NyusyukoKubun=S"");" & vbCrLf ElseIf Kitakuriyou < 1 Or Gyosyu = "U" Then HttpL2 = HttpL2 & " MenuItem.push(""仕 入 入 庫"", """ & SiireNyuko & """);" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""仕 入 返 品"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SX"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo End If HttpL2 = HttpL2 & " MenuItem.push(""他社在庫問合"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_tasyazaiko.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""商 品 在 庫"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_syohinzaiko.asp?RouteType=Shiire"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""入 庫 実 績"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_shiireuriagejisseki.asp?PageType=Shiire"");" & vbCrLf If Gyosyu = "K" Then HttpL2 = HttpL2 & " MenuItem.push(""仕 入 入 庫"", """ & SiireNyuko & """);" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 入 返 品"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SX"");" & vbCrLf End If HttpL2 = HttpL2 & " break;" & vbCrLf '販売部 HttpL2 = HttpL2 & " case 's2':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""販売部"", """ & HomeAliasSL & "user/bk/menu_s2.asp"");" & vbCrLf If Gyosyu = "S" Or Gyosyu = "U" Then If Kitakuriyou < 1 Then HttpL2 = HttpL2 & " MenuItem.push(""見 積 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KM"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""注 文 請 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KU"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""納 品 請 求 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KN"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""管理部売渡申込"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KY"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""見 積 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KM"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""注 文 請 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KU"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""納 品 請 求 書"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KN"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""管理部売渡申込"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KY"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""管理宛納品請求"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KP"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo If KitakuKeiyaku > 0 Then HttpL2 = HttpL2 & " MenuItem.push(""出 庫 依 頼"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syukko_ichiran.asp?BunsyoSyuruiCD=KS&NyusyukoKubun=U"");" & vbCrLf ElseIf Kitakuriyou < 1 Then HttpL2 = HttpL2 & " MenuItem.push(""売 上 出 庫"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SU&NyusyukoKubun=U"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""売 上 返 品"", """ & UriageHenpin & """);" & vbCrLf If Kouririyou > 0 Then HttpL2 = HttpL2 & " MenuItem.push(""小 売 販 売"", """ & HomeAliasSL & "user/bk/kouri/kh_kouri.asp?BunsyoSyuruiCD=HU&NyusyukoKubun=U"");" & vbCrLf End If HttpL2 = HttpL2 & PopuoKaigyo End If HttpL2 = HttpL2 & " MenuItem.push(""運送費見積依頼"", """ & HomeAliasSL & "user/bk/unyusokomadoguchi/fc_syorui.asp?BunsyoSyuruiCD=CB"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""商 品 在 庫"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_syohinzaiko.asp?RouteType=Hanbai"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""出 庫 実 績"", """ & HomeAliasSL & "user/bk/syokaisyukei/rm_shiireuriagejisseki.asp?PageType=Uriage"");" & vbCrLf If Gyosyu = "K" Then HttpL2 = HttpL2 & " MenuItem.push(""売 上 出 庫"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SU&NyusyukoKubun=U"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""売 上 返 品"", """ & UriageHenpin & """);" & vbCrLf End If HttpL2 = HttpL2 & " break;" & vbCrLf '商品企画室 HttpL2 = HttpL2 & " case 's5':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""商品企画室"", """ & HomeAliasSL & "user/bk/menu_s5.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""オリジナル商品<br>管 理"", """ & HomeAliasSL & "admin/master/shohin/fm_shohin.asp?Action=1&PageType=Original"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""オリジナル商品<br>入 庫"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SC"");" & vbCrLf If GB_IEmode = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""画 像 加 工"", """ & HomeAliasSL & "user/bk/kikakushitsu/gazokako.asp"");" & vbCrLf End If HttpL2 = HttpL2 & " break;" & vbCrLf '社長室・総務部 HttpL2 = HttpL2 & " case 's4':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""名 刺 作 成"", """ & HomeAliasSL & "user/bk/meishi/default.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""名 刺 マ ナ ー"", """ & HomeAliasSL & "user/bk/meishi/manner.asp"");" & vbCrLf If Kitakuriyou > 0 And Gyosyu <> "K" Then HttpL2 = HttpL2 & " MenuItem.push(""寄 託 契 約"", """ & HomeAliasSL & "user/bk/keiyakusyo/fk_kitakukeiyaku.asp"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""定 款"", """ & HomeAliasSL & "user/bk/teikan.asp?RouteType=syatyo"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""財 務 諸 表"", """ & HomeAliasSL & "user/bk/menu_s41.asp"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""白 紙 帳 票"", """ & HomeAliasSL & "user/bk/menu_s42.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""マスター照会"", """ & HomeAliasSL & "user/bk/menu_s43.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""記帳チェック"", """ & HomeAliasSL & "user/bk/kityocheck/fm_kityo_check.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""受 発 信 文 書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""銀行暗証番号"", """ & HomeAliasSL & "user/bk/ginkomadoguchi/fb_ansyobangosansyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""摘 要 管 理"", """ & HomeAliasSL & "user/bk/master/fm_tekiyo_ichiran.asp"");" & vbCrLf If GB_IEmode = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""画 像 加 工"", """ & HomeAliasSL & "user/bk/kikakushitsu/gazokako.asp?RouteType=1"");" & vbCrLf End If HttpL2 = HttpL2 & " break;" & vbCrLf '社長室・総務部 → 財務諸表 HttpL2 = HttpL2 & " case 's41':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""財務諸表"", """ & HomeAliasSL & "user/bk/menu_s41.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 訳 帳"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_shiwaketyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 訳 集 計 表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_shiwakesyukeihyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""合計残高試算表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_gokeizandakeshisanhyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sokanjyomototyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""8 桁 精 算 表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_hachiketaseisanhyo.asp"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""貸 借 対 照 表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_taisyakutaisyouhyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""損 益 計 算 書"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sonekikeisansyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""貸借対照表報告"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_taisyakutaisyouhyohoukoku.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""損益計算書報告"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sonekikeisansyohoukoku.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""キャッシュフロー"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_cashflow.asp"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""損 益 計 画"", """ & HomeAliasSL & "user/bk/bunseki/fk_sonekikeikaku.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""損 益 実 績"", """ & HomeAliasSL & "user/bk/bunseki/fk_sonekijisseki_view.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""収益性の分析"", """ & HomeAliasSL & "user/bk/bunseki/fk_syuekisei_view.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""安全性の分析"", """ & HomeAliasSL & "user/bk/bunseki/fk_anzensei_view.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""損益分岐点分析"", """ & HomeAliasSL & "user/bk/bunseki/fk_sonekibunkiten_view.asp"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf '社長室・総務部 → 白紙帳票 HttpL2 = HttpL2 & " case 's42':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""白紙帳票"", """ & HomeAliasSL & "user/bk/menu_s42.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""入 金 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType=Nyukin"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""出 金 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType=Shukkin"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""振 替 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType="");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 入 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType=Shiire"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""売 上 伝 票"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_denpyo.asp?RouteType=Hakushi&PageType=Uriage"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""領 収 書"", """ & HomeAliasSL & "user/bk/ryosyusyo/fk_ryosyusyo_view.asp?RouteType=Hakushi"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""仕 訳 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakenikkityo_view.asp?RouteType=Hakushi"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 訳 集 計 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_shiwakesyukeihyo_view.asp?RouteType=Hakushi"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""8 桁 精 算 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_hachiketaseisanhyo_view.asp?RouteType=Hakushi"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""合計残高試算表"", """ & HomeAliasSL & "user/bk/tyobo/fk_gokeizandakashisanhyo_view.asp?RouteType=Hakushi"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/tyobo/fk_sokanjyomototyo_view.asp?RouteType=Hakushi"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""貸 借 対 照 表"", """ & HomeAliasSL & "user/bk/tyobo/fk_taisyakutaisyohyo_view.asp?RouteType=Hakushi"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""損 益 計 算 書"", """ & HomeAliasSL & "user/bk/tyobo/fk_sonekikeisansyo_view.asp?RouteType=Hakushi"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""見 積 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KM"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""注 文 請 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KU"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""納 品 請 求 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KN"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""見 積 依 頼 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KI"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""注 文 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KC"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""物 品 受 領 書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_shiireuriagesyorui.asp?RouteType=Hakushi&BunsyoSyuruiCD=KB"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf '社長室・総務部 → マスター照会 HttpL2 = HttpL2 & " case 's43':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""マスター照会"", """ & HomeAliasSL & "user/bk/menu_s43.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""勘定科目マスタ"", """ & HomeAliasSL & "admin/master/kamoku/fm_kamoku_ichiran.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & "&GyoshuKubun=" & GyosyuKubun & """);" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""会社マスター"", """ & HomeAliasSL & "admin/master/kaisya/fm_kaisya_ichiran.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & """);" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""商品マスター"", """ & HomeAliasSL & "admin/master/shohin/fm_shohin_ichiran.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & """);" & vbCrLf If Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then End If HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""損益計算書集計"", """ & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & "&TyohyoKubun=P"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""貸借対照表集計"", """ & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & "&TyohyoKubun=B"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""株 主 資 本 等<BR>変動計算書集計"", """ & HomeAliasSL & "admin/master/syukei/fm_stockholder_equity_view.asp?KanriKubun=view&EnshuCD=" & GB_EnshuCD & "&TyohyoKubun=B"");" & vbCrLf If Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then End If HttpL2 = HttpL2 & " break;" & vbCrLf '社長室・総務部 → 受発信文書 HttpL2 = HttpL2 & " case 'jyuhasshinbunsyo':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""受発信文書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""メ ー ル"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/fn_mailsakusei.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""受 信 文 書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=syatyo"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""発 信 文 書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Send&RouteType=syatyo"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf End If '管理部 HttpL2 = HttpL2 & " case 'k':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""管理部"", """ & HomeAliasSL & "user/bk/menu_k.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""受 付 業 務"", """ & HomeAliasSL & "user/bk/menu_k2.asp"");" & vbCrLf If Kitakuriyou > 0 Then HttpL2 = HttpL2 & " MenuItem.push(""経 理 業 務"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""経 理 部"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 入 部"", """ & HomeAliasSL & "user/bk/menu_s3.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""販 売 部"", """ & HomeAliasSL & "user/bk/menu_s2.asp"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf If 0 = 1 Then '部署内ポップアップは廃止 '受付業務 HttpL2 = HttpL2 & " case 'k2':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""受付業務"", """ & HomeAliasSL & "user/bk/menu_k2.asp"");" & vbCrLf If Kitakuriyou > 0 And Gyosyu <> "K" Then HttpL2 = HttpL2 & " MenuItem.push(""買 入 受 付"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_kitaku_syorui.asp?BunsyoSyuruiCD=KV"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""買 入 受 付"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KV"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""売 渡 受 付"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui.asp?BunsyoSyuruiCD=KW"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""買入一括受付"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui_ikkatsu.asp?BunsyoSyuruiCD=KV&SenpoBunsyoSyuruiCD=KX"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""売渡一括受付"", """ & HomeAliasSL & "user/bk/shiireuriage/fd_syorui_ikkatsu.asp?BunsyoSyuruiCD=KW&SenpoBunsyoSyuruiCD=KY"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf End If '銀行 HttpL2 = HttpL2 & " case 'b':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""銀行"", """ & HomeAliasSL & "user/bk/menu_b.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""窓 口 業 務"", """ & HomeAliasSL & "user/bk/menu_b2.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""経 理 業 務"", """ & HomeAliasSL & "user/bk/menu_b1.asp"");" & vbCrLf ' HttpL2 = HttpL2 & " MenuItem.push(""受 発 信 文 書"", """ & HomeAliasSL & "user/bk/jyuhasshinbunsyo/"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf If 0 = 1 Then '部署内ポップアップは廃止 '窓口業務 HttpL2 = HttpL2 & " case 'b2':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""窓口業務"", """ & HomeAliasSL & "user/bk/menu_b2.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""口 座 開 設"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BN"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""預 入"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BO"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""引 出"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BP"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""振 込"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BQ"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""一括口座開設"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori_ikkatsu.asp?BunsyoSyuruiCD=BN&SenpoBunsyoSyuruiCD=BA"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""小 切 手 入 金"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BR"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""手 形 取 立"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BS"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""手 形 割 引"", """ & HomeAliasSL & "user/bk/ginko/fb_uketsukesyori.asp?BunsyoSyuruiCD=BT"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""口 座 一 覧"", """ & HomeAliasSL & "user/bk/ginko/fb_koza.asp"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf '経理業務 HttpL2 = HttpL2 & " case 'b1':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""経理業務"", """ & HomeAliasSL & "user/bk/menu_b1.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""入 金 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Nyukin"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""出 金 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_nyukinsyukin.asp?Pagetype=Shukkin"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""振 替 伝 票"", """ & HomeAliasSL & "user/bk/denpyo/fk_furikae.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""勘定残高設定"", """ & HomeAliasSL & "user/bk/kisyusettei/fk_kanjyozandaka.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""入 金"", """ & HomeAliasSL & "user/bk/kinko/fk_nyukin.asp?Nyukin"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""出 金"", """ & HomeAliasSL & "user/bk/kinko/fk_nyukin.asp?PageType=Shukkin"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""仕 訳 帳"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_shiwaketyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""合計残高試算表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_gokeizandakeshisanhyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""総 勘 定 元 帳"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sokanjyomototyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""8 桁 精 算 表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_hachiketaseisanhyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""貸 借 対 照 表"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_taisyakutaisyouhyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""損 益 計 算 書"", """ & HomeAliasSL & "user/bk/jidotyobo/rm_sonekikeisansyo.asp"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf End If '運輸・倉庫・保険 HttpL2 = HttpL2 & " case 'u':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""運輸・倉庫・保険"", """ & HomeAliasSL & "user/bk/menu_u.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""運輸倉庫保険業務"", """ & HomeAliasSL & "user/bk/menu_u2.asp"");" & vbCrLf If Kitakuriyou > 0 Then HttpL2 = HttpL2 & " MenuItem.push(""経 理 業 務"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""経 理 部"", """ & HomeAliasSL & "user/bk/menu_s1.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""仕 入 部"", """ & HomeAliasSL & "user/bk/menu_s3.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""販 売 部"", """ & HomeAliasSL & "user/bk/menu_s2.asp"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""社長室・総務部"", """ & HomeAliasSL & "user/bk/menu_s4.asp"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf If 0 = 1 Then '部署内ポップアップは廃止 '運輸倉庫保険業務 HttpL2 = HttpL2 & " case 'u2':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""運輸倉庫保険業務"", """ & HomeAliasSL & "user/bk/menu_u2.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""運 送 契 約"", """ & HomeAliasSL & "user/bk/unso/keiyaku/fu_keiyaku.asp?Action=1"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""運送費見積書"", """ & HomeAliasSL & "user/bk/unso/mitsumori/fu_syorui.asp?BunsyoSyuruiCD=CC"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""運送費請求書"", """ & HomeAliasSL & "user/bk/unso/seikyu/fu_seikyusyudo.asp"");" & vbCrLf If Kitakuriyou > 0 Then HttpL2 = HttpL2 & " MenuItem.push(""寄 託 受 付"", """ & HomeAliasSL & "user/bk/unso/kitaku/fu_kitaku_ichiran.asp?Action=1"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""入 庫"", """ & HomeAliasSL & "user/bk/unso/nyuko/fu_kitaku_nyuko_ichiran.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""出 庫"", """ & HomeAliasSL & "user/bk/unso/syuko/fu_kitaku_syukko_ichiran.asp"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""寄 託 受 付"", """ & HomeAliasSL & "user/bk/unso/souko/fu_kitaku.asp?Action=1"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""出 庫"", """ & HomeAliasSL & "user/bk/unso/souko/fu_syuko.asp?Action=1"");" & vbCrLf End If HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""保 険 料 計 算"", """ & HomeAliasSL & "user/bk/unso/hoken/fu_hoken.asp?Action=1"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""運送保険料請求"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_unsohoken.asp?BunsyoSyuruiCD=UA"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""倉荷証券手数料"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_unsohoken.asp?BunsyoSyuruiCD=UC"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""倉庫料請求書"", """ & HomeAliasSL & "user/bk/hakushityohyo/rn_unsohoken.asp?BunsyoSyuruiCD=UB"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf End If '運用管理 If GB_Admin > 0 Then HttpL2 = HttpL2 & " case 'admenu':" & vbCrLf If GB_Admin = 1 Then ' If Request("RouteType") = "Kantan" Then If Session(HomeAlias & "Kantan") = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""運 用 管 理"", """ & HomeAliasSL & "admin/admenu1.asp"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""運 用 管 理"", """ & HomeAliasSL & "admin/admenu.asp"");" & vbCrLf End If Else HttpL2 = HttpL2 & " MenuItem.push(""運 用 管 理"", """ & HomeAliasSL & "admin/admenu_enshu.asp"");" & vbCrLf End If ' HttpL2 = HttpL2 & " MenuItem.push(""演 習 参 加<br>グループ管理"", """ & HomeAliasSL & "admin/master/group/fm_groupsanka.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""グループ管理"", """ & HomeAliasSL & "admin/group/fm_group_ichiran.asp"");" & vbCrLf If GB_Admin = 1 Then HttpL2 = HttpL2 & " MenuItem.push(""演 習 管 理"", """ & HomeAliasSL & "admin/enshu/fm_enshu_ichiran.asp"");" & vbCrLf Else HttpL2 = HttpL2 & " MenuItem.push(""演 習 管 理"", """ & HomeAliasSL & "admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & """);" & vbCrLf End If ' If GB_Admin = 1 Then HttpL2 = HttpL2 & " MenuItem.push(""演習参加者管理"", """ & HomeAliasSL & "admin/master/sanka/fm_enshusanka.asp"");" & vbCrLf ' End If HttpL2 = HttpL2 & " MenuItem.push(""ユーザー管理"", """ & HomeAliasSL & "admin/user/fm_user_ichiran.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""マスター管理"", """ & HomeAliasSL & "admin/master/fm_master_select.asp"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo If GB_Admin = 1 Then HttpL2 = HttpL2 & " MenuItem.push(""システム情報"", """ & HomeAliasSL & "admin/kihon/fm_kihon_view.asp"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""演習状況一覧"", """ & HomeAliasSL & "admin/syokai/fm_jyokyo_ichiran.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""演習状況チェック"", """ & HomeAliasSL & "admin/syokai/fm_kityochk_ichiran.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""書 類 一 覧"", """ & HomeAliasSL & "admin/syokai/fm_tyohyo.asp"");" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""データバックアップ"", """ & HomeAliasSL & "admin/datakanri/fm_enshu_save.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""デ ー タ 復 元"", """ & HomeAliasSL & "admin/datakanri/fm_enshu_load.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""デ ー タ ク リ ア"", """ & HomeAliasSL & "admin/datakanri/fm_enshu_clear.asp"");" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf 'マスター管理 HttpL2 = HttpL2 & " case 'fm_master_select':" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""マスター管理"", """ & HomeAliasSL & "admin/master/fm_master_select.asp"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""会 社"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/kaisya/fm_kaisya_ichiran.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""商 品"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/shohin/fm_shohin_ichiran.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf If PackageMode <> 1 Then HttpL2 = HttpL2 & " MenuItem.push(""市 場"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/shijyo/fm_shijyo_ichiran.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf End If If 0=1 And Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""材 料"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/shohin/fm_shohin_ichiran.asp&EnshuCD=" & EnshuCD & "&Mode=Zairyo"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""原価報告書集計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp&EnshuCD=" & EnshuCD & "&TyohyoKubun=G"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""表 記 名 称"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/hyoki/fm_hyoki.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf If PackageMode <> 1 Then HttpL2 = HttpL2 & PopuoKaigyo End If HttpL2 = HttpL2 & " MenuItem.push(""勘 定 科 目"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" & EnshuCD & "&GyoshuKubun=S"");" & vbCrLf If 0=1 And Genkavariable > 0 And GenkaKaikeiRiyo = "1" Then HttpL2 = HttpL2 & " MenuItem.push(""原価勘定科目"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" & EnshuCD & "&GyoshuKubun=G"");" & vbCrLf End If If PackageMode <> 1 Then HttpL2 = HttpL2 & " MenuItem.push(""銀行勘定科目"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/kamoku/fm_kamoku_ichiran.asp&EnshuCD=" & EnshuCD & "&GyoshuKubun=B"");" & vbCrLf End If HttpL2 = HttpL2 & " MenuItem.push(""消 費 税 率"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/taxrate/fm_taxrate.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""為 替 レ ー ト"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/exchangerate/fm_exchangerate.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf HttpL2 = HttpL2 & PopuoKaigyo HttpL2 = HttpL2 & " MenuItem.push(""損益計算書集計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp&EnshuCD=" & EnshuCD & "&TyohyoKubun=P"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""貸借対照表集計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp&EnshuCD=" & EnshuCD & "&TyohyoKubun=B"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""キャッシュフロー<BR>計 算 書 集 計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_syukei_view.asp&EnshuCD=" & EnshuCD & "&TyohyoKubun=C"");" & vbCrLf HttpL2 = HttpL2 & " MenuItem.push(""株主資本等変動<BR>計 算 書 集 計"", """ & HomeAliasSL & "admin/master/fm_master_select_bin.asp?url=" & HomeAliasSL & "admin/master/syukei/fm_stockholder_equity_view.asp&EnshuCD=" & EnshuCD & """);" & vbCrLf HttpL2 = HttpL2 & " break;" & vbCrLf End If HttpL2 = HttpL2 & " }" & vbCrLf 'メニュー作成部 HttpL2 = HttpL2 & " var MenuItemLayer;" & vbCrLf HttpL2 = HttpL2 & " var roop;" & vbCrLf HttpL2 = HttpL2 & " var url;" & vbCrLf HttpL2 = HttpL2 & " var subject;" & vbCrLf HttpL2 = HttpL2 & " var cnt;" & vbCrLf HttpL2 = HttpL2 & " var roopcnt;" & vbCrLf HttpL2 = HttpL2 & " var kaigyocnt;" & vbCrLf HttpL2 = HttpL2 & " var kaigyoflg;" & vbCrLf HttpL2 = HttpL2 & " MenuItemLayer = """";" & vbCrLf HttpL2 = HttpL2 & " roop = MenuItem.length / 2;" & vbCrLf HttpL2 = HttpL2 & " cnt = 0;" & vbCrLf HttpL2 = HttpL2 & " kaigyocnt = 0;" & vbCrLf HttpL2 = HttpL2 & " kaigyoflg = 0;" & vbCrLf HttpL2 = HttpL2 & " for (roopcnt=0; roopcnt<roop; roopcnt++) {" & vbCrLf Dim KaigyoShift KaigyoShift = 129 'メニュー改行時に右にずらす幅 If GB_IEmode <> "1" Then KaigyoShift = KaigyoShift + 3 End If HttpL2 = HttpL2 & " MenuItemLayer += ""<div id='sjpopupmain'"" + kaigyocnt + "" style='position:absolute;top:"" + eval(posy+'+'+(18*kaigyoflg)) + "";left:"" + eval(posx+'+'+(" & KaigyoShift & "*kaigyocnt)) + "";z-index:9999999;'>\n"";" & vbCrLf ' HttpL2 = HttpL2 & " MenuItemLayer += ""<div id='sjpopupmain'"" + kaigyocnt + "" style='position:absolute;top:"" + posy + "";left:"" + eval(posx+'+'+(98 * kaigyocnt)) + "";'>\n"";" & vbCrLf HttpL2 = HttpL2 & " while (roopcnt < roop && MenuItem[cnt] != 'kaigyo') {" & vbCrLf HttpL2 = HttpL2 & " url = roopcnt * 2 + 1;" & vbCrLf HttpL2 = HttpL2 & " subject = roopcnt * 2;" & vbCrLf ' HttpL2 = HttpL2 & " MenuItemLayer += "" <div id='sjpopupmenu"" + roopcnt + ""' class='sjpopupmenu01'"";" & vbCrLf '初期表示時は第1項目を大きく表示する(sjpopupmenu02クラス) HttpL2 = HttpL2 & " MenuItemLayer += "" <div id='sjpopupmenu"" + roopcnt + ""' class='sjpopupmenu"";" & vbCrLf HttpL2 = HttpL2 & " if (cnt == 0) {" & vbCrLf HttpL2 = HttpL2 & " MenuItemLayer += ""02'"";" & vbCrLf HttpL2 = HttpL2 & " } else {" & vbCrLf HttpL2 = HttpL2 & " MenuItemLayer += ""01'"";" & vbCrLf HttpL2 = HttpL2 & " }" & vbCrLf HttpL2 = HttpL2 & " MenuItemLayer += "" onclick=tblbtn('"" + MenuItem[url] + ""')"";" & vbCrLf If btn2 = "自社設定" Or GB_Admin > 0 Then HttpL2 = HttpL2 & " MenuItemLayer += "" onmouseover=rollOver(this,'sjpopupmenu02');popupDisplay('block');"";" & vbCrLf Else HttpL2 = HttpL2 & " MenuItemLayer += "" onmouseover=rollOver(this,'sjpopupmenu_" & Gyosyu & "');popupDisplay('block');"";" & vbCrLf End If HttpL2 = HttpL2 & " MenuItemLayer += "" onmouseout=rollOver(this,'sjpopupmenu01');popupDisplay('none');>"" + MenuItem[subject] + ""</div>\n"";" & vbCrLf HttpL2 = HttpL2 & " cnt = cnt + 2;" & vbCrLf HttpL2 = HttpL2 & " roopcnt = roopcnt + 1;" & vbCrLf HttpL2 = HttpL2 & " }" & vbCrLf HttpL2 = HttpL2 & " MenuItemLayer += ""</div>\n"";" & vbCrLf HttpL2 = HttpL2 & " cnt = cnt + 2;" & vbCrLf HttpL2 = HttpL2 & "// roopcnt = roopcnt + 1;" & vbCrLf HttpL2 = HttpL2 & " kaigyocnt = kaigyocnt + 1;" & vbCrLf HttpL2 = HttpL2 & " kaigyoflg = 1;" & vbCrLf HttpL2 = HttpL2 & " }" & vbCrLf 'ポップアップ表示部 HttpL2 = HttpL2 & " sjpopupmenuel.style.display = 'block';" & vbCrLf HttpL2 = HttpL2 & " sjpopupmenuel.innerHTML = MenuItemLayer;" & vbCrLf HttpL2 = HttpL2 & "}" & vbCrLf 'ロールオーバー切替関数 HttpL2 = HttpL2 & "function rollOver(obj,val) {" & vbCrLf HttpL2 = HttpL2 & " obj.className = val;" & vbCrLf HttpL2 = HttpL2 & "}" & vbCrLf '表示モード切替関数 HttpL2 = HttpL2 & "function popupDisplay(mode) {" & vbCrLf HttpL2 = HttpL2 & " document.getElementById('sjpopupmenu').style.display = mode;" & vbCrLf HttpL2 = HttpL2 & "}" & vbCrLf HttpL2 = HttpL2 & "-->" & vbCrLf HttpL2 = HttpL2 & "</SCRIPT>" & vbCrLf '※ ※ ※ ※ ※ ポップアップメニュー関数 ※ ※ ※ ※ ※(070218小野) If InStr(btn1, "受発信文書ウィンドウ") > 0 Then If btn1c <> "" Then HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" HttpL2 = HttpL2 & " <table width=""80"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL2 = HttpL2 & " <tr>" & vbCrLf HttpL2 = HttpL2 & " <td width=""80"" height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/mlbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn1c & """>一覧へ戻る</td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf HttpL2 = HttpL2 & "</div>" & vbCrLf End If ElseIf InStr(btn1, "チェック") > 0 Then HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 30px;"">" & vbCrLf If btn2 <> "" Then HttpL2 = HttpL2 & " <table border=""0"" width=""330"" height=""35"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""210"" height=""35""> " & vbCrLf HttpL2 = HttpL2 & " <table width=""100"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & Replace(Request.ServerVariables("PATH_INFO"), "_main", "") & "?" & Request.ServerVariables("QUERY_STRING") & "')"">再表示</td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HttpL2 = HttpL2 & " <td align=""center"" valign=""bottom""> " & vbCrLf HttpL2 = HttpL2 & " <table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#BAFFE8"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_l.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""180"" height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/sswtab_c.gif?" & GB_STU & """ class=""tx1618"">" & vbCrLf HttpL2 = HttpL2 & " " & btn3 & vbCrLf HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_r.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf End If HttpL2 = HttpL2 & "</div>" & vbCrLf ElseIf InStr(btn1, "ウィンドウ") > 0 Then HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 30px;"">" & vbCrLf If btn2 <> "" Then HttpL2 = HttpL2 & " <table border=""0"" width=""330"" height=""35"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""210"" height=""35""> " & vbCrLf If btn1c <> "" Then HttpL2 = HttpL2 & " <table width=""200"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & HomeAliasSL & "user/bk/menu_s_viewonly.asp')"">一覧へ戻る</td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & Replace(Request.ServerVariables("PATH_INFO"), "_main", "") & "?" & Request.ServerVariables("QUERY_STRING") & "')"">再表示</td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf End If HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HttpL2 = HttpL2 & " <td align=""center"" valign=""bottom""> " & vbCrLf HttpL2 = HttpL2 & " <table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#BAFFE8"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_l.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""180"" height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/sswtab_c.gif?" & GB_STU & """ class=""tx1618"">" & vbCrLf HttpL2 = HttpL2 & " " & btn3 & vbCrLf ' HttpL2 = HttpL2 & " " & btn2 & vbCrLf ' If btn3 <> "" Then ' HttpL2 = HttpL2 & ":" & btn3 & vbCrLf ' End If HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_r.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf End If HttpL2 = HttpL2 & "</div>" & vbCrLf ElseIf InStr(btn1, "ポータルサイト") > 0 Then HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 30px;"">" & vbCrLf If btn2 <> "" Then HttpL2 = HttpL2 & " <table border=""0"" width=""330"" height=""35"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""210"" height=""35""> " & vbCrLf If btn1c <> "" Then HttpL2 = HttpL2 & " <table width=""200"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & HomeAliasSL & "user/bk/menu_s_viewonly.asp')"">一覧へ戻る</td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""100"" height=""26"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/ssbtn_back.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn( '" & Replace(Request.ServerVariables("PATH_INFO"), "_main", "") & "?" & Request.ServerVariables("QUERY_STRING") & "')"">再表示</td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf End If HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HttpL2 = HttpL2 & " <td align=""center"" valign=""bottom""> " & vbCrLf HttpL2 = HttpL2 & " <table height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#BAFFE8"">" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_l.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""180"" height=""25"" align=""center"" valign=""middle"" background=""" & HomeAliasSL & "images/sswtab_c.gif?" & GB_STU & """ class=""tx1618"">" & vbCrLf HttpL2 = HttpL2 & " " & btn3 & vbCrLf ' HttpL2 = HttpL2 & " " & btn2 & vbCrLf ' If btn3 <> "" Then ' HttpL2 = HttpL2 & ":" & btn3 & vbCrLf ' End If HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""10"" height=""25""><img src=""" & HomeAliasSL & "images/sswtab_r.gif?" & GB_STU & """ width=""10"" height=""25""></td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf HttpL2 = HttpL2 & " </td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf End If HttpL2 = HttpL2 & "</div>" & vbCrLf Else HttpL2 = HttpL2 & "<div id=""L2"" style=""position:absolute; visibility: hidden; left: 0px; top: 30px;"">" & vbCrLf Dim valign If Session(HomeAlias & "GyosyuColorObj") = "w" Then valign = "middle" Else valign = "bottom" End If HttpL2 = HttpL2 & " <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf HttpL2 = HttpL2 & " <tr valign=""middle""> " & vbCrLf HttpL2 = HttpL2 & " <td width=""25"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ttlbkl.gif?" & GB_STU & """> </td>" & vbCrLf If GB_Admin > 0 Then HttpL2 = HttpL2 & " <td align=""center"" width=""250"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ttlbkr.gif?" & GB_STU & """ class=""tx1416"" style=""color:#FFFFFF""><div style=""height:16px;width:250px;overflow:hidden;"">" & HardWrap(EnshuMeisyo) & "</div></td>" & vbCrLf Else 'デバッグ用追加(演習名称をクリックすると演習選択画面に戻ります)070122小野 If DebugFlg > 0 Then HttpL2 = HttpL2 & " <td align=""center"" width=""250"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ttlbkr.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""tblbtn( '" & HomeAliasSL & "user/')"" style=""color:#FFFFFF""><div style=""height:16px;width:250px;overflow:hidden;"">" & HardWrap(EnshuMeisyo) & "</div></td>" & vbCrLf Else HttpL2 = HttpL2 & " <td align=""center"" width=""250"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ttlbkr.gif?" & GB_STU & """ class=""tx1416"" style=""color:#FFFFFF""><div style=""height:16px;width:250px;overflow:hidden;"">" & HardWrap(EnshuMeisyo) & "</div></td>" & vbCrLf End If End If HttpL2 = HttpL2 & " <td width=""15"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar.gif?" & GB_STU & """ onClick=""DebugMode=1;""> </td>" & vbCrLf '演習名称の右の矢印をクリックするとデバッグモードになる If btn1 <> "" And (btn2 <> "" Or btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then If GB_Admin > 0 Then '運用管理メニューポップアップ(070227小野) HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'admenu',291,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn1 & "</td>" & vbCrLf ElseIf GB_EnshuKubun = "P" And PackageMode <> 1 Then '同時同業会社選択メニューポップアップ(070217小野)※サイバー会計モードでは表示しない(091001小野) HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'default',291,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn1 & "</td>" & vbCrLf Else HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""" & btn1c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn1 & "</td>" & vbCrLf End If ElseIf btn1 <> "" Then HttpL2 = HttpL2 & " <td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn1c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn1 & "</td>" & vbCrLf End If If btn2 <> "" And (btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " <td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214""> </td>" & vbCrLf If btn2 = "マスター管理" And GB_Admin > 0 Then '運用管理→マスター管理メニューポップアップ(070228小野) HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'fm_master_select',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf ElseIf btn2 = "商社" Then '商社メニューポップアップ(070217小野) HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'s',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf ElseIf btn2 = "管理部" Then '管理部メニューポップアップ(070217小野) HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'k',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf ElseIf btn2 = "銀行" Then '銀行メニューポップアップ(070217小野) HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'b',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf ElseIf btn2 = "運輸・倉庫・保険" Then '運輸・倉庫・保険メニューポップアップ(070217小野) HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);PopupMenu(this,'u',426,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn2 & "</td>" & vbCrLf Else HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""" & btn2c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this);"" onMouseOut=""nvbot(this);"">" & btn2 & "</td>" & vbCrLf End If ElseIf btn2 <> "" Then HttpL2 = HttpL2 & " <td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214""> </td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn2c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn2 & "</td>" & vbCrLf End If If btn3 <> "" And (btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " <td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214""> </td>" & vbCrLf ' If btn3 = "経理部" Then '経理部メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s1',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "仕入部" Then '仕入部メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s3',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "販売部" Then '販売部メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s2',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "商品企画室" Then '販売部メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s5',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "社長室・総務部" Then '社長室・総務部メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s4',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "受付業務" Then '管理部 → 受付業務メニューポップアップ(070227小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'k2',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "窓口業務" Then '銀行 → 窓口業務メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'b2',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "経理業務" Then '銀行 → 経理業務メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'b1',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "受発信文書" Then '銀行 → 受発信文書メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'jyuhasshinbunsyo',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' ElseIf btn3 = "運輸倉庫保険業務" Then '運輸倉庫保険業務メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'u2',451,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn3 & "</td>" & vbCrLf ' Else HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""" & btn3c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn3 & "</td>" & vbCrLf ' End If ElseIf btn3 <> "" Then HttpL2 = HttpL2 & " <td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214""> </td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn3c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn3 & "</td>" & vbCrLf End If If btn4 <> "" And (btn5 <> "") Then HttpL2 = HttpL2 & " <td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214""> </td>" & vbCrLf ' If btn4 = "伝票" Then '伝票メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s11',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf ' ElseIf btn4 = "帳簿" Then '帳簿メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s12',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf ' ElseIf btn4 = "財務諸表" Then '社長室・総務部 → 財務諸表メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s41',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf ' ElseIf btn4 = "白紙帳票" Then '社長室・総務部 → 白紙帳票メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s42',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf ' ElseIf btn4 = "マスター照会" Then '社長室・総務部 → マスター照会メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'s43',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf ' ElseIf btn4 = "受発信文書" Then '社長室・総務部 → 受発信文書メニューポップアップ(070218小野) ' HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onMouseOver=""nvbov(this);PopupMenu(this,'jyuhasshinbunsyo',556,32);"" onMouseOut=""nvbot(this);popupDisplay('none');"">" & btn4 & "</td>" & vbCrLf ' Else HttpL2 = HttpL2 & " <td width=""130"" height=""30"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_go.gif?" & GB_STU & """ class=""tbtn3w"" onClick=""" & btn4c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn4 & "</td>" & vbCrLf ' End If ElseIf btn4 <> "" Then HttpL2 = HttpL2 & " <td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214""> </td>" & vbCrLf If Len(btn4) >= 9 Then HttpL2 = HttpL2 & " <td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1214"" onClick=""" & btn4c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn4 & "</td>" & vbCrLf Else HttpL2 = HttpL2 & " <td width=""130"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn4c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn4 & "</td>" & vbCrLf End if End If If btn5 <> "" Then HttpL2 = HttpL2 & " <td width=""6"" height=""30"" background=""" & HomeAliasSL & "images/nvbar_ar_go.gif?" & GB_STU & """ class=""tx1214""> </td>" & vbCrLf HttpL2 = HttpL2 & " <td width=""160"" height=""25"" align=""center"" background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & "160.gif?" & GB_STU & """ valign=""" & valign & """ background=""" & HomeAliasSL & "images/nvbtn_in_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tx1416"" onClick=""" & btn5c & """ onMouseOver=""if(SubmitFlg!=0){this.focus()};nvbov(this)"" onMouseOut=""nvbot(this)"">" & btn5 & "</td>" & vbCrLf End If HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " <tr> " & vbCrLf HttpL2 = HttpL2 & " <td height=""5"" colspan=""3""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf If btn1 <> "" And (btn2 <> "" Or btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf ElseIf btn1 <> "" Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ height=""5""></td>" & vbCrLf End If If btn2 <> "" And (btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf ElseIf btn2 <> "" Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ height=""5""></td>" & vbCrLf End If If btn3 <> "" And (btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf ElseIf btn3 <> "" Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ height=""5""></td>" & vbCrLf End If If btn4 <> "" And (btn5 <> "") Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf ElseIf btn4 <> "" Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ height=""5""></td>" & vbCrLf End If If btn5 <> "" Then HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/nvbtn_ind_" & Session(HomeAlias & "GyosyuColorObj") & "160.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf End If HttpL2 = HttpL2 & " <td height=""5""><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ height=""5""></td>" & vbCrLf HttpL2 = HttpL2 & " </tr>" & vbCrLf HttpL2 = HttpL2 & " </table>" & vbCrLf HttpL2 = HttpL2 & " <span class=""tx1416"" id=""sjpopupmenu"" style=""display:block;""></span>" & vbCrLf 'ポップアップメニュー挿入(070218小野) HttpL2 = HttpL2 & " </div>" & vbCrLf End If End Function '※HttpL3_1にボタンを追加するための変数(210107小野) Dim HttpL3_1_btn6 Dim HttpL3_1_btn6c Dim HttpL3_1_btn7 Dim HttpL3_1_btn7c Dim HttpL3_1_btn8 Dim HttpL3_1_btn8c Dim HttpL3_1_btn9 Dim HttpL3_1_btn9c Dim HttpL3_1_btn0 Dim HttpL3_1_btn0c HttpL3_1_btn6 = "" HttpL3_1_btn6c = "" HttpL3_1_btn7 = "" HttpL3_1_btn7c = "" HttpL3_1_btn8 = "" HttpL3_1_btn8c = "" HttpL3_1_btn9 = "" HttpL3_1_btn9c = "" HttpL3_1_btn0 = "" HttpL3_1_btn0c = "" '※HttpL3_1にボタンを追加するための変数代入(210107小野) Sub HttpL3_1_AddBtn(btn6,btn6c, btn7, btn7c, btn8, btn8c, btn9, btn9c, btn0, btn0c) HttpL3_1_btn6 = btn6 HttpL3_1_btn6c = btn6c HttpL3_1_btn7 = btn7 HttpL3_1_btn7c = btn7c HttpL3_1_btn8 = btn8 HttpL3_1_btn8c = btn8c HttpL3_1_btn9 = btn9 HttpL3_1_btn9c = btn9c HttpL3_1_btn0 = btn0 HttpL3_1_btn0c = btn0c End Sub Function HttpL3_1(btn1,btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c) '使えないクエリ文字列を入れ替える(090420小野) btn1c = QueryStringIrekae(btn1c) btn2c = QueryStringIrekae(btn2c) btn3c = QueryStringIrekae(btn3c) btn4c = QueryStringIrekae(btn4c) btn5c = QueryStringIrekae(btn5c) HttpL3_1 = "" HttpL3_1 = HttpL3_1 & "<div id=""L3_1"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" & vbCrLf HttpL3_1 = HttpL3_1 & " <table height=""30"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_1 = HttpL3_1 & " <tr align=""center"" valign=""middle""> " & vbCrLf If btn1 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn1, btn1c) ' HttpL3_1 = HttpL3_1 & " <td width=""60"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""SubmitFlg=0;" & btn1c & """ onMouseOver=""if(SubmitFlg!=0){this.focus();}"">" & btn1 & "</td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </table>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""30""> </td>" & vbCrLf End If If btn2 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn2, btn2c) ' HttpL3_1 = HttpL3_1 & " <td width=""60"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn2c & """ onMouseOver=""this.focus();"">" & btn2 & "</td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </table>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""30""> </td>" & vbCrLf End If If btn3 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn3, btn3c) ' HttpL3_1 = HttpL3_1 & " <td width=""60"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn3c & """ onMouseOver=""this.focus();"">" & btn3 & "</td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </table>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""30""> </td>" & vbCrLf End If If btn4 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn4, btn4c) ' HttpL3_1 = HttpL3_1 & " <td width=""60"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn4c & """ onMouseOver=""this.focus();"">" & btn4 & "</td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </table>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""30""> </td>" & vbCrLf End If If btn5 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn5, btn5c) ' HttpL3_1 = HttpL3_1 & " <td width=""60"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_l.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn5c & """ onMouseOver=""this.focus();"">" & btn5 & "</td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""3"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_c.gif?" & GB_STU & """ width=""3"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " <td width=""5"" height=""31""><img src=""" & HomeAliasSL & "images/mwbtn_02_r.gif?" & GB_STU & """ width=""5"" height=""31""></td>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </tr>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </table>" & vbCrLf ' HttpL3_1 = HttpL3_1 & " </td>" & vbCrLf End If '↓↓↓↓↓↓↓※グローバル変数からボタンを追加(210107小野)↓↓↓↓↓↓↓ If HttpL3_1_btn6 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn6, HttpL3_1_btn6c) End If If HttpL3_1_btn7 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn7, HttpL3_1_btn7c) End If If HttpL3_1_btn8 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn8, HttpL3_1_btn8c) End If If HttpL3_1_btn9 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn9, HttpL3_1_btn9c) End If If HttpL3_1_btn0 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn0, HttpL3_1_btn0c) End If '↑↑↑↑↑↑↑※グローバル変数からボタンを追加(210107小野)↑↑↑↑↑↑↑ HttpL3_1 = HttpL3_1 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HttpL3_1 = HttpL3_1 & " </tr>" & vbCrLf HttpL3_1 = HttpL3_1 & " </table>" & vbCrLf HttpL3_1 = HttpL3_1 & "</div>" & vbCrLf End Function 'mnbtn_02のボタンカラーをトグルする Function mnbtn(Str, Val) Dim BtnHL BtnHL = "" If InStr(Str,"保存") > 0 Or InStr(Str,"実行") > 0 Or Str = "送信" Or Str = "発行" Or Str = "依頼" Or Str = "発信" Or Str = "入金" Or Str = "出金" Or Str = "入庫" Or Str = "出庫" Or Str = "通知" Or Str = "ダウンロード" Or InStr(Str,"開設") > 0 Then BtnHL = "g" End If Dim BtnCls Dim BtnWidth BtnCls = "tbtn3" BtnWidth = "60" '最低サイズ If Str = "借行挿入" Or Str = "借行削除" Or Str = "借行↑" Or Str = "借行↓" Or Str = "貸行挿入" Or Str = "貸行削除" Or Str = "貸行↑" Or Str = "貸行↓" Then BtnCls = "tbtn2" BtnWidth = "52" '最低サイズ End If mnbtn = "" mnbtn = mnbtn & " <td width=""" & BtnWidth & """>" & vbCrLf mnbtn = mnbtn & " <table width=""" & BtnWidth & """ border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf mnbtn = mnbtn & " <tr>" & vbCrLf mnbtn = mnbtn & " <td width=""5"" height=""31"" onClick=""" & Val & """ onMouseOver=""this.focus();"" style=""background:url('" & HomeAliasSL & "images/mwbtn_02_" & BtnHL & "l.gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf mnbtn = mnbtn & " <td nowrap height=""31"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_02_" & BtnHL & "c.gif?" & GB_STU & """ class=""" & BtnCls & """ style=""padding:0px 2px 0px 2px;"" onClick=""" & Val & """ onMouseOver=""this.focus();"">" & Str & "</td>" & vbCrLf mnbtn = mnbtn & " <td width=""5"" height=""31"" onClick=""" & Val & """ onMouseOver=""this.focus();"" style=""background:url('" & HomeAliasSL & "images/mwbtn_02_" & BtnHL & "r.gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf mnbtn = mnbtn & " </tr>" & vbCrLf mnbtn = mnbtn & " </table>" & vbCrLf mnbtn = mnbtn & " </td>" & vbCrLf End Function Function HttpL3_2(btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c) '使えないクエリ文字列を入れ替える(090420小野) btn1c = QueryStringIrekae(btn1c) btn2c = QueryStringIrekae(btn2c) btn3c = QueryStringIrekae(btn3c) btn4c = QueryStringIrekae(btn4c) btn5c = QueryStringIrekae(btn5c) 'サイバー会計モードで業種確定時は一部の色を変える Dim TmpColor Dim TmpColorObj TmpColor = Session(HomeAlias & "GyosyuColor") TmpColorObj = Session(HomeAlias & "GyosyuColorObj") If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" And GB_Admin < 1 Then TmpColor = "#275F00" TmpColor = "#2A6500" TmpColor = "#29A37A" TmpColor = "#248F6B" TmpColor = "#248F8B" TmpColor = "#007777" TmpColorObj = "ca" End If HttpL3_2 = "" HttpL3_2 = HttpL3_2 & "<div id=""L3_2"" style=""position:absolute; visibility: hidden; left: 0px; top: 60px;"">" & vbCrLf Dim Query, Content Dim RiyoMailKubun RiyoMailKubun = GetEnshuParam(EnshuCD, "メール利用") '生徒単位でのメール送信拒否設定を取得(091013小野) Dim MailSendKyohi Query = "exec SPV演習履歴取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MailSendKyohi = "" & Content.Fields("メール送信拒否") End If 'FAX利用可否判定 Dim FAXRiyo Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then FAXRiyo = "" & Content.Fields("FAX利用") End If If btn2 = "発信文書" And btn3 = "メール作成" Then HttpL3_2 = HttpL3_2 & " <table width=""830"" height=""29"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <tr align=""center"" valign=""middle""> " & vbCrLf If PackageMode = 1 Then 'サイバー会計では受信文書・発信文書タブを表示しない Else If btn1c <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn1c & """><img src=""" & HomeAliasSL & "images/mltab_icon_im.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn1 & "</td>" & vbCrLf Else HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_im.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn1 & "</td>" & vbCrLf End If If btn2c <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn2c & """><img src=""" & HomeAliasSL & "images/mltab_icon_om.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn2 & "</td>" & vbCrLf Else HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_om.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn2 & "</td>" & vbCrLf End If HttpL3_2 = HttpL3_2 & " <td width=""30"" class=""tx1214""> </td>" & vbCrLf End If If RiyoMailKubun = "1" Then '生徒単位でメール送信拒否設定されている場合はメール作成ボタンを表示しない(091013小野) If MailSendKyohi <> "1" Then If btn3c <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn3c & """><img src=""" & HomeAliasSL & "images/mltab_icon_new.gif?" & GB_STU & """ width=""15"" height=""18"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn3 & "</td>" & vbCrLf Else HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_new.gif?" & GB_STU & """ width=""15"" height=""18"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn3 & "</td>" & vbCrLf End If End If If btn4c <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn4c & """><img src=""" & HomeAliasSL & "images/mltab_icon_rcv.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn4 & "</td>" & vbCrLf Else HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_rcv.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn4 & "</td>" & vbCrLf End If If btn5c <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn5c & """><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn5 & "</td>" & vbCrLf Else HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn5 & "</td>" & vbCrLf End If End If If EnableFAX = 1 And FAXRiyo = "1" Then If btn1c <> "" And btn2c <> "" And btn3c <> "" And btn4c <> "" And btn5c <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1416""><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " FAX送受信</td>" & vbCrLf Else HttpL3_2 = HttpL3_2 & " <td width=""120"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""tblbtn('" & HomeAliasSL & "user/bk/jyuhasshinbunsyownd/fn_fax" '生徒単位でメール送信拒否設定されている場合はFAX初期画面の飛び先を変更する(091013小野) If MailSendKyohi = "1" Then HttpL3_2 = HttpL3_2 & "_ichiran.asp?PageType=RecvFAX&" Else HttpL3_2 = HttpL3_2 & ".asp?" End If HttpL3_2 = HttpL3_2 & "RouteType=MailOnly')""><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""17"" align=""absmiddle""> " & vbCrLf HttpL3_2 = HttpL3_2 & " FAX送受信</td>" & vbCrLf End If End If HttpL3_2 = HttpL3_2 & " <td> </td>" & vbCrLf HttpL3_2 = HttpL3_2 & " </tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " </table>" & vbCrLf Else HttpL3_2 = HttpL3_2 & " <table height=""26"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <tr align=""center"" valign=""middle""> " & vbCrLf If btn1 <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""60"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn1c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn1c & """>" & btn1 & "</td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn1c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " </tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " </table>" & vbCrLf HttpL3_2 = HttpL3_2 & " </td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26""> </td>" & vbCrLf End If If btn2 <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""60"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn2c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn2c & """>" & btn2 & "</td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn2c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " </tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " </table>" & vbCrLf HttpL3_2 = HttpL3_2 & " </td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26""> </td>" & vbCrLf End If If btn3 <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""60"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn3c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn3c & """>" & btn3 & "</td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn3c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " </tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " </table>" & vbCrLf HttpL3_2 = HttpL3_2 & " </td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26""> </td>" & vbCrLf End If If btn4 <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""60"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn4c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn4c & """>" & btn4 & "</td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn4c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " </tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " </table>" & vbCrLf HttpL3_2 = HttpL3_2 & " </td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26""> </td>" & vbCrLf End If If btn5 <> "" Then HttpL3_2 = HttpL3_2 & " <td width=""60"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_2 = HttpL3_2 & " <tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn5c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn5c & """>" & btn5 & "</td>" & vbCrLf HttpL3_2 = HttpL3_2 & " <td width=""5"" height=""26"" onClick=""" & btn5c & """ style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;cursor:pointer;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " </tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " </table>" & vbCrLf HttpL3_2 = HttpL3_2 & " </td>" & vbCrLf End If HttpL3_2 = HttpL3_2 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HttpL3_2 = HttpL3_2 & " </tr>" & vbCrLf HttpL3_2 = HttpL3_2 & " </table>" & vbCrLf End If HttpL3_2 = HttpL3_2 & "</div>" & vbCrLf End Function Function HttpL3_3(btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c) '使えないクエリ文字列を入れ替える(090420小野) btn1c = QueryStringIrekae(btn1c) btn2c = QueryStringIrekae(btn2c) btn3c = QueryStringIrekae(btn3c) btn4c = QueryStringIrekae(btn4c) btn5c = QueryStringIrekae(btn5c) 'サイバー会計モードで業種確定時は一部の色を変える Dim TmpColor Dim TmpColorObj TmpColor = Session(HomeAlias & "GyosyuColor") TmpColorObj = Session(HomeAlias & "GyosyuColorObj") If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" And GB_Admin < 1 Then TmpColor = "#275F00" TmpColor = "#2A6500" TmpColor = "#29A37A" TmpColor = "#248F6B" TmpColor = "#248F8B" TmpColor = "#007777" TmpColorObj = "ca" End If HttpL3_3 = "" HttpL3_3 = HttpL3_3 & "<div id=""L3_2"" style=""position:absolute; visibility: hidden; left: 0px; top: 60px;"">" & vbCrLf Dim Query, Content Dim RiyoMailKubun RiyoMailKubun = GetEnshuParam(EnshuCD, "メール利用") If btn2 = "発信文書" Then HttpL3_3 = HttpL3_3 & " <table width=""530"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <tr align=""center"" valign=""middle""> " & vbCrLf If btn1c <> "" Then HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn1c & """><img src=""" & HomeAliasSL & "images/mltab_icon_im.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn1 & "</td>" & vbCrLf Else HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_im.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn1 & "</td>" & vbCrLf End If If btn2c <> "" Then HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn2c & """><img src=""" & HomeAliasSL & "images/mltab_icon_om.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn2 & "</td>" & vbCrLf Else HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_om.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn2 & "</td>" & vbCrLf End If HttpL3_3 = HttpL3_3 & " <td width=""30"" class=""tx1214""> </td>" & vbCrLf If RiyoMailKubun = "1" Then 'If btn3c <> "" Then ' HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn3c & """><img src=""" & HomeAliasSL & "images/mltab_icon_new.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & btn3 & "</td>" & vbCrLf 'Else ' HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_new.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & btn3 & "</td>" & vbCrLf 'End If If btn4c <> "" Then HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn4c & """><img src=""" & HomeAliasSL & "images/mltab_icon_rcv.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn4 & "</td>" & vbCrLf Else HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_rcv.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn4 & "</td>" & vbCrLf End If If btn5c <> "" Then HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_dn.gif?" & GB_STU & """ class=""tbtn3"" onClick=""" & btn5c & """><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn5 & "</td>" & vbCrLf Else HttpL3_3 = HttpL3_3 & " <td width=""100"" background=""" & HomeAliasSL & "images/mltab_up.gif?" & GB_STU & """ class=""tx1214""><img src=""" & HomeAliasSL & "images/mltab_icon_snd.gif?" & GB_STU & """ width=""15"" height=""15"" align=""absmiddle""> " & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn5 & "</td>" & vbCrLf End If End If HttpL3_3 = HttpL3_3 & " <td> </td>" & vbCrLf HttpL3_3 = HttpL3_3 & " </tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " </table>" & vbCrLf Else HttpL3_3 = HttpL3_3 & " <table height=""26"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <tr align=""center"" valign=""middle""> " & vbCrLf If btn1 <> "" Then HttpL3_3 = HttpL3_3 & " <td width=""60"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn1c & """>" & btn1 & "</td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " </tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " </table>" & vbCrLf HttpL3_3 = HttpL3_3 & " </td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26""> </td>" & vbCrLf End If If btn2 <> "" Then HttpL3_3 = HttpL3_3 & " <td width=""60"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn2c & """>" & btn2 & "</td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " </tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " </table>" & vbCrLf HttpL3_3 = HttpL3_3 & " </td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26""> </td>" & vbCrLf End If 'If btn3 <> "" Then ' HttpL3_3 = HttpL3_3 & " <td width=""60"">" & vbCrLf ' HttpL3_3 = HttpL3_3 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf ' HttpL3_3 = HttpL3_3 & " <tr>" & vbCrLf ' HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26""><img src=""" & HomeAliasSL & "images/mwbtn_01_l" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ width=""5"" height=""26""></td>" & vbCrLf ' HttpL3_3 = HttpL3_3 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn3c & """>" & btn3 & "</td>" & vbCrLf ' HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26""><img src=""" & HomeAliasSL & "images/mwbtn_01_r" & Session(HomeAlias & "GyosyuColorObj") & ".gif?" & GB_STU & """ width=""5"" height=""26""></td>" & vbCrLf ' HttpL3_3 = HttpL3_3 & " </tr>" & vbCrLf ' HttpL3_3 = HttpL3_3 & " </table>" & vbCrLf ' HttpL3_3 = HttpL3_3 & " </td>" & vbCrLf ' HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26""> </td>" & vbCrLf 'End If If btn4 <> "" Then HttpL3_3 = HttpL3_3 & " <td width=""60"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn4c & """>" & btn4 & "</td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " </tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " </table>" & vbCrLf HttpL3_3 = HttpL3_3 & " </td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26""> </td>" & vbCrLf End If If btn5 <> "" Then HttpL3_3 = HttpL3_3 & " <td width=""60"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <table width=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf HttpL3_3 = HttpL3_3 & " <tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_l" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat right center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td nowrap height=""26"" align=""center"" background=""" & HomeAliasSL & "images/mwbtn_01_c" & TmpColorObj & ".gif?" & GB_STU & """ class=""tbtn3"" style=""padding:0px 2px 0px 2px;"" onClick=""" & btn5c & """>" & btn5 & "</td>" & vbCrLf HttpL3_3 = HttpL3_3 & " <td width=""5"" height=""26"" style=""background:url('" & HomeAliasSL & "images/mwbtn_01_r" & TmpColorObj & ".gif?" & GB_STU & "') no-repeat left center;""><div style=""height:1px;width:4px;""></div></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " </tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " </table>" & vbCrLf HttpL3_3 = HttpL3_3 & " </td>" & vbCrLf End If HttpL3_3 = HttpL3_3 & " <td><img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1""></td>" & vbCrLf HttpL3_3 = HttpL3_3 & " </tr>" & vbCrLf HttpL3_3 = HttpL3_3 & " </table>" & vbCrLf End If HttpL3_3 = HttpL3_3 & "</div>" & vbCrLf End Function Function HttpL3 (btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c, btn6, btn6c, btn7, btn7c, btn0, btn0c) HttpL3 = HttpL3 & "<div id=""L3"" style=""position:absolute; visibility: hidden; left: 0px; top: 60px;"">" & btn1 & "</div>" & vbCrLf End Function Function HttpL4 (title1, title2) HttpL4 = "" HttpL4 = HttpL4 & "<div id=""L4"" style=""position:absolute; visibility: hidden; left: 0px; top: 0px;"">" If title2 = "" Then HttpL4 = HttpL4 & title1 ElseIf Len(title2) <= 3 Then HttpL4 = HttpL4 & title1 & " <" & title2 & ">" ElseIf GB_CSS = "EC" Then HttpL4 = HttpL4 & title1 & " <span class=""tx1416""><" & title2 & "></span>" Else HttpL4 = HttpL4 & title1 & " <span class=""tx1416""><" & title2 & "></span>" End If HttpL4 = HttpL4 & "<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""1"" height=""1"">" & vbCrLf HttpL4 = HttpL4 & "</div>" & vbCrLf End Function Function HttpL5(text1) HttpL5 = "" If text1 <> "" Then If GB_KaisyaMeisyo <> "" Or GB_KaisyaRyakuMeisyo <> "" Then If Len(text1) > 30 Then text1 = "<span style=""font-size:12px;"">" & text1 & "</span>" ElseIf Len(text1) > 25 Then text1 = "<span style=""font-size:13px;"">" & text1 & "</span>" ElseIf Len(text1) > 20 Then text1 = "<span style=""font-size:14px;"">" & text1 & "</span>" End If End If HttpL5 = HttpL5 & "<div id=""L5"" style=""position:absolute; visibility: hidden; left: 0px; top: 60px;"">" & text1 & "</div>" & vbCrLf Else HttpL5 = HttpL5 & "" End If End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称:PrintHeader ' 目的:印刷用のヘッダーを返す ' 作成:2002/8/29 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function PrintHeader(F_AutoFlg, F_Title) PrintHeader = "" PrintHeader = PrintHeader & PrintHeader1(F_AutoFlg) PrintHeader = PrintHeader & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbCrLf PrintHeader = PrintHeader & " <tr>" & vbCrLf PrintHeader = PrintHeader & " <td align=""center"" style=""font-family:MS Pゴシック; font-size: 32px; line-height: 34px; font-weight: bold"">" & F_Title & "</td>" & vbCrLf ' PrintHeader = PrintHeader & " <td align=""center""><b><font size=""5""><u>" & F_Title & "</u></font></b></td>" & vbCrLf PrintHeader = PrintHeader & " </tr>" & vbCrLf PrintHeader = PrintHeader & " </table>" & vbCrLf End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称:PrintHeaderWidth ' 目的:印刷用のヘッダーを返す ' 作成:2002/8/29 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function PrintHeader1(F_AutoFlg) PrintHeader1 = "" PrintHeader1 = PrintHeader1 & PrintHeaderTop() If GB_ShowPrintHeader = "1" Or GB_ShowPrintHeader = "2" Then PrintHeader1 = PrintHeader1 & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tx1416"">" & vbCrLf PrintHeader1 = PrintHeader1 & " <tr>" & vbCrLf Dim TmpValue TmpValue = KaisyaMeisyo If Session("AdminPrintKaisyaMeisyo") <> "" Then TmpValue = Session("AdminPrintKaisyaMeisyo") End If PrintHeader1 = PrintHeader1 & " <td>" & TmpValue & " </td>" & vbCrLf If F_AutoFlg <> -1 Then PrintHeader1 = PrintHeader1 & " <td width=""250"" align=""right"">" & SetDateStr(Now(), "YYYY年MM月DD日 hh時mm分") & "印刷</td>" & vbCrLf ' PrintHeader1 = PrintHeader1 & " <td width=""250"" align=""right"">" & "2018年6月13日 9時50分" & "印刷</td>" & vbCrLf End If PrintHeader1 = PrintHeader1 & " </tr>" & vbCrLf PrintHeader1 = PrintHeader1 & " </table>" & vbCrLf PrintHeader1 = PrintHeader1 & " <div class=""tx1214""> </div>" & vbCrLf End If End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称:PrintHeaderTop ' 目的:印刷用のヘッダーの頭を返す ' 作成:2002/9/6 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function PrintHeaderTop() PrintHeaderTop = "" PrintHeaderTop = PrintHeaderTop & "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""630"">" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <tr>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td align=""center"">" & vbCrLf If GB_ShowPrintHeader = "1" Then PrintHeaderTop = PrintHeaderTop & " <table border=""1"" height=""75"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"" class=""tx1416"">" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <tr>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td colspan=""4"" align=""center"">" & AppTitle & "</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " </tr>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <tr>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td width=""40%"" align=""center"">演習名称</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td width=""20%"" align=""center"">会社略名称</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td width=""20%"" align=""center"">学生番号</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td width=""20%"" align=""center"">氏名</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " </tr>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <tr>" & vbCrLf Dim TmpValue1 Dim TmpValue2 Dim TmpValue3 Dim TmpValue4 If EnshuMeisyo = "運用管理システム" And EnshuCD <> "" Then '運用管理で演習CDが存在する場合は当該演習名称を表示 TmpValue1 = ConvEnshuMeisyo(EnshuCD) TmpValue2 = KaisyaRyakuMeisyo If ConvEnshuKubun(EnshuCD) = "P" Then '上記条件且つ同時同業会社の場合は所有している生徒情報を表示 TmpValue3 = ConvKaisyaGakuseiNo(EnshuCD, KaisyaCD) TmpValue4 = ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, KaisyaCD)) Else TmpValue3 = GakuseiNo TmpValue4 = GakuseiShimei End If Else TmpValue1 = EnshuMeisyo TmpValue2 = KaisyaRyakuMeisyo TmpValue3 = GakuseiNo TmpValue4 = GakuseiShimei End If If Session("AdminPrintEnshuMeisyo") <> "" Then TmpValue1 = Session("AdminPrintEnshuMeisyo") End If If Session("AdminPrintKaisyaRyakuMeisyo") <> "" Then TmpValue2 = Session("AdminPrintKaisyaRyakuMeisyo") End If If Session("AdminPrintGakuseiNo") <> "" Then TmpValue3 = Session("AdminPrintGakuseiNo") End If If Session("AdminPrintGakuseiShimei") <> "" Then TmpValue4 = Session("AdminPrintGakuseiShimei") End If PrintHeaderTop = PrintHeaderTop & " <td width=""40%"" align=""center"">" & TmpValue1 & "</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td width=""20%"" align=""center"">" & TmpValue2 & "</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td width=""20%"" align=""center"">" & TmpValue3 & "</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <td width=""20%"" align=""center"">" & TmpValue4 & "</td>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " </tr>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " </table>" & vbCrLf PrintHeaderTop = PrintHeaderTop & " <hr noshade color=""#000000"">" & vbCrLf End If End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称:PrintFooter ' 目的:印刷用のフッターを返す ' 作成:2002/8/29 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function PrintFooter() PrintFooter = "" PrintFooter = PrintFooter & " </td>" & vbCrLf PrintFooter = PrintFooter & " </tr>" & vbCrLf PrintFooter = PrintFooter & "</table>" & vbCrLf End Function Function Spacer(Width, Height) Spacer = "<img src=""" & HomeAliasSL & "images/spacer.gif?" & GB_STU & """ width=""" & Width & """ height=""" & Height & """>" End Function Function HelpDesk(HelpTitle) HelpDesk = "" If HelpTitle = "" Then HelpDesk = "" Else HelpDesk = "<span style=""cursor:pointer;""><IMG SRC=""" & HomeAliasSL & "images/help.gif?" & GB_STU & """ onClick=""wopen('" & HomeAliasSL & "help/helpdesk.asp?HelpTitle=" & HelpTitle & "', 'HelpDesk')""></span>" End If End Function '使えないクエリ文字列を入れ替える(090420小野) Function QueryStringIrekae(Str) Dim TmpStr TmpStr = Str If InStr(TmpStr, "ype=受信文書") Then TmpStr = Replace(TmpStr, "ype=受信文書", "ype=Recv") End If If InStr(Str, "ype=発信文書") Then TmpStr = Replace(TmpStr, "ype=発信文書", "ype=Send") End If If InStr(Str, "ype=受信メール") Then TmpStr = Replace(TmpStr, "ype=受信メール", "ype=RecvMail") End If If InStr(Str, "ype=送信メール") Then TmpStr = Replace(TmpStr, "ype=送信メール", "ype=SendMail") End If QueryStringIrekae = TmpStr End Function %>