<% If 0=1 Then Session("ECMallVisitorID") = "" Session("ECMallUserID") = "" Session("ECMallPassword") = "" Session("ECMallPracticeCD") = "" End If main() Sub main() '以下のセッション処理は/default.aspと同じ処理が必要 'インターネットアクセス拒否時に強制許可するフラグ If Request("permit") <> "" Then Session("ECMallPermit") = Request("permit") End If 'ショップ非公開時に強制表示するフラグ If Request("visible") <> "" Then Session("ECMallShopVisible") = Request("visible") End If '管理画面からの非公開モール強制表示(強制管理者&強制表示) If Request("ForceSchoolAdmin") <> "" Then 'Response.Write(Request("ForceSchoolAdmin")) 'Exit Sub '管理者フラグ Session("ECMallSchoolAdmin") = Request("ForceSchoolAdmin") GB_SchoolAdmin = Session("ECMallSchoolAdmin") '強制表示フラグ Session("ECMallShopVisible") = GB_SchoolAdmin End If '管理画面からの非公開ショップ強制表示(同一サイト内遷移のため強制管理者は不要) If Request("ForceShopAdmin") <> "" Then 'Response.Write(Request("ForceShopAdmin")) 'Exit Sub '強制表示フラグ Session("ECMallShopVisible") = Request("ForceShopAdmin") End If Response.Redirect(HomeAliasSL & "mail/mail.asp") End Sub %>