<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType, RouteType, UserID PageType = Request("PageType") RouteType = Request("RouteType") UserID = Request("UserID") if UserID <> "" then Session("UserID") = UserID end if Dim ShowDel ShowDel = Request("ShowDel") 'Response.Write("UserID:" & UserID & "
") 'Response.Write("EnshuCD:" & EnshuCD & "
") 'Response.Write("GB_GakuseiNo:" & GB_GakuseiNo & "
") 'Response.Write("UserID:" & Session("UserID") & "
") 'Response.Write("PageType:" & PageType & "
") 'Response.Write("RouteType:" & RouteType & "
") %> <% = 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( '/sj4web/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/sj4web/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/sj4web/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "", "", PageType, "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/sj4web/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/sj4web/user/bk/jyuhasshinbunsyo/')", PageType , "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", ConvKubunMeisyo("業種CD", GB_Gyosyu) , "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書", "tblbtn( '/sj4web/user/bk/jyuhasshinbunsyo/')", PageType, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "" ,"", "", "", "", "", "", "", "")) If InStr(RouteType, "ViewOnly") > 0 Or InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL3_1("照会", "syokaibtn()", "再表示", "tblbtn('" & Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING") & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("照会", "syokaibtn()", "削除", "SubmitCheck()", "再表示", "tblbtn('" & Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING") & "')", "", "", "", "")) End If If InStr(RouteType, "MailOnly") > 0 Then If PageType = "発信文書" Then ' Response.Write(HttpL3_2("受信文書", "tblbtn( '/sj4web/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=" & RouteType & "')", "発信文書", "", "メール作成", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei.asp?RouteType=" & RouteType & "')", "受信メール", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=" & RouteType & "')")) Response.Write(HttpL3_3("受信文書", "tblbtn( '/sj4web/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=" & RouteType & "')", "発信文書", "", "", "", "受信メール", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=" & RouteType & "')")) Else ' Response.Write(HttpL3_2("受信文書", "", "発信文書", "tblbtn( '/sj4web/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=" & RouteType & "')", "メール作成", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei.asp?RouteType=" & RouteType & "')", "受信メール", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=" & RouteType & "')")) Response.Write(HttpL3_3("受信文書", "", "発信文書", "tblbtn( '/sj4web/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=" & RouteType & "')", "", "", "受信メール", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( '/sj4web/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=" & RouteType & "')")) End If Else If PageType = "発信文書" 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(PageType , "")) %>
<% = HtmlFooter %> <% End Sub %>