<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Action , NRflg , ErrMSG Dim GroupCD, GroupName, Password, SakuseiID 'グループCD、グループ名称、パスワード、作成者ID Dim Hihyoji Dim Query Dim Content NRflg = Request("nr") Action = Request("Syori") GroupCD = Request("GroupCD") SakuseiID = GB_GakuseiNo '新規作成時は管理者ID Hihyoji = "0" '新規作成時は表示 If GB_Admin <> "2" Then SakuseiID = "" '運用管理者はNULL End If ErrMSG = Request("ErrMSG") If NRflg = "r" then GroupName = Request("GroupName") Password = Request("Password") Else Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & GroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then GroupName = Content.Fields("グループ名称") Password = Content.Fields("グループキー") SakuseiID = Content.Fields("作成者ID") '更新時はテーブル内容 Hihyoji = "" & Content.Fields("非表示フラグ") End If End If Dim RouteType RouteType = Request("RouteType") %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If RouteType = "Kantan" Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "グループ管理", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "グループ管理", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_group_ichiran.asp?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) If Action = "1" Then Response.Write(HttpL4("グループ管理", "追加")) Else Response.Write(HttpL4("グループ管理", "修正")) End If Response.Write(HttpL5("" & ErrMsg & "")) %>
<% = HtmlFooter %> <% End Sub %>