<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化（演習状況記帳チェック後の対処） KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" 'サイバートレード存在チェック（電商くんはサイバー会計自動連動のためこの処理は不要） Dim CT21db Dim CT21variable CT21variable = 1 On Error Resume Next Err.Clear() Set CT21db = Server.CreateObject("ADODB.Connection") CT21db.ConnectionTimeout = 60 CT21db.CommandTimeout = 60 CT21db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sfcuser;Password=sfc-5963;Initial Catalog=ct21sqldb;Data Source=" & SQLServer If Err.Description <> "" Then CT21variable = 0 End If On Error Goto 0 Dim Query, Content Dim EnshuCnt EnshuCnt = 0 Dim TmpEnshuCD Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) '「SYSCT21：サイバートレード会計演習マスター」は同一環境にサイバートレードが存在する場合のみ表示 If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA" And (UCase(Content.Fields("演習CD")) <> "SYSCT21" Or CT21variable = 1)) Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then If UCase(Content.Fields("演習CD")) = GB_EnshuID Or UCase(Content.Fields("演習管理者ID")) = GB_EnshuID Then If Content.Fields("演習管理者パスワード") <> "" Then If UCase(Content.Fields("演習管理者パスワード")) = GB_EnshuPassword Then EnshuCnt = EnshuCnt + 1 TmpEnshuCD = Content.Fields("演習CD") End If End If End If End If Content.MoveNext Loop If EnshuCnt > 1 Then Content.MoveFirst End If %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"", "", "", "" , "", "", "", "", "", "", "")) Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("運用管理", "")) %>
<% = HtmlFooter %> <% End Sub %>