<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim MailCD MailCD = Request("MailCD") Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = Request("PageType") Dim Mode If Request("Mode") <> "" Then Mode = Request("Mode") Else Mode = Request.Cookies("JHBRecvMode") End If If Mode = "" Then Mode = "Midoku" End If Dim Label Dim Label2 If PageType = "Send" Then Label = "送信文書" Label2 = "" Else Label = "受信文書" If Mode = "Midoku" Then Label2 = "未読一覧" Else Label2 = "既読一覧" End If End If Dim OldParamJ Dim OldParamH OldParamJ = Request.Cookies("JHBOldParamJ") OldParamH = Request.Cookies("JHBOldParamH") Dim ShowDel If Request("ShowDel") <> "" Then ShowDel = Request("ShowDel") Else ShowDel = Request.Cookies("JHBShowDel") End If Dim Kitakuriyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") End If %> <% = AppTitle %>
<% If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HtmlDesign(6)) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(6)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL2("受発信文書ウィンドウ" ,"", "", "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "", "", Label, "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", Label , "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", ConvKubunMeisyo("業種CD", GB_Gyosyu) , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", Label, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "" ,"", "", "", "", "", "", "", "")) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_1("照会", "syokaibtn();", "再表示", "tblbtn('" & Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING") & "')", "", "", "", "", "", "")) Else Dim ButtonLabel Dim ButtonValue If PageType = "Send" Then ButtonLabel = "" ButtonValue = "" Else If Mode = "Midoku" Then ButtonLabel = "既読一覧" ButtonValue = "tblbtn('" & Request.ServerVariables("PATH_INFO") & "?" & Replace(Request.ServerVariables("QUERY_STRING"), "&Mode=Midoku", "") & "&Mode=Kidoku')" Else ButtonLabel = "未読一覧" ButtonValue = "tblbtn('" & Request.ServerVariables("PATH_INFO") & "?" & Replace(Request.ServerVariables("QUERY_STRING"), "&Mode=Kidoku", "") & "&Mode=Midoku')" End If End If Dim ButtonLabelDel1 Dim ButtonLabelDel Dim ButtonValueDel If ShowDel = "1" Then ButtonLabelDel1 = "削除・復元" ButtonLabelDel = "削除非表示" ButtonValueDel = "tblbtn('" & Request.ServerVariables("PATH_INFO") & "?" & Replace(Request.ServerVariables("QUERY_STRING"), "&ShowDel=1", "") & "&ShowDel=0')" Else ButtonLabelDel1 = "削除" ButtonLabelDel = "削除表示" ButtonValueDel = "tblbtn('" & Request.ServerVariables("PATH_INFO") & "?" & Replace(Request.ServerVariables("QUERY_STRING"), "&ShowDel=0", "") & "&ShowDel=1')" End If Response.Write(HttpL3_1("照会", "syokaibtn();", ButtonLabelDel1, "SubmitCheck()", "再表示", "tblbtn('" & Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING") & "')", ButtonLabel, ButtonValue, ButtonLabelDel, ButtonValueDel)) End If If InStr(RouteType, "MailOnly") > 0 Then If PageType = "Send" Then Response.Write(HttpL3_2("受信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=" & RouteType & "')", "発信文書", "", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=" & RouteType & "')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=SendMail&RouteType=" & RouteType & "')")) Else Response.Write(HttpL3_2("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=Send&RouteType=" & RouteType & "')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=" & RouteType & "')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=SendMail&RouteType=" & RouteType & "')")) End If Else If PageType = "Send" Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf ShowDel = "1" Then Response.Write(HttpL3_2("削除済みを非表示", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("削除済みを表示", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=" & RouteType & "&ShowDel=1')", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4(Label, Label2)) %>
<% = HtmlFooter %> <% End Sub %> %>