<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If ' If Not(VisitorCheck()) Then ' Exit Sub ' End If 'Response.Write(GB_VisitorID) 'Exit Sub Dim LoginID LoginID = Replace(Request("LoginID"), "'", "") Dim Password Password = Replace(Request("Password"), "'", "") Dim Shimei Shimei = Replace(Request("Shimei"), "'", "") Dim Mode Mode = Replace(Request("Mode"), "'", "") Dim Mail Mail = Replace(Request("Mail"), "'", "") 'Response.Write(Mail) 'Exit Sub Dim ErrFlg ErrFlg = 0 Dim Query Dim Content If LoginID <> "" Then If Mode = "2" Then '新規 Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TMビジター " Query = Query & " WHERE ログインID = '" & LoginID & "' " Query = Query & " AND パスワード = '" & Password & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then ErrFlg = 2 'ログインID重複エラー Else Query = "exec SPMビジター作成 '" & Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "'" Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then 'セッションに代入(自動ログイン動作) Session("ECMallVisitorID") = Content.Fields(0) & Right("000000" & Content.Fields(1), 7) Session("ECMallUserID") = LoginID Session("ECMallPassword") = Password GB_VisitorID = Session("ECMallVisitorID") GB_UserID = Session("ECMallUserID") GB_Password = Session("ECMallPassword") Query = "" Query = Query & " " Query = Query & " UPDATE TMビジター " Query = Query & " SET ログインID = '" & LoginID & "' " Query = Query & " , パスワード = '" & Password & "' " Query = Query & " WHERE ビジターYMD = '" & Content.Fields(0) & "' " Query = Query & " AND ビジターID = " & Content.Fields(1) & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TMログイン " Query = Query & " WHERE メールアドレス = '" & LoginID & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Content.BOF Or Content.EOF Then Query = "" Query = Query & " " Query = Query & " INSERT INTO TMログイン (メールアドレス, パスワード, 氏名, 登録日時) " Query = Query & " VALUES ('" & LoginID & "', '" & Password & "', '" & Shimei & "', GETDATE()) " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) End If 'ビジターログインに飛ぶ Response.Redirect("" & HomeAliasSL & "visitor_bin.asp?LoginID=" & LoginID & "&Password=" & Password & "&Mail=" & Mail) Exit Sub End If End If Else Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TMビジター " Query = Query & " WHERE ログインID = '" & LoginID & "' " Query = Query & " AND パスワード = '" & Password & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then 'ビジターログイン Session("ECMallVisitorID") = Content.Fields("ビジターYMD") & Right("000000" & Content.Fields("ビジターID"), 7) Session("ECMallUserID") = LoginID Session("ECMallPassword") = Password GB_VisitorID = Session("ECMallVisitorID") GB_UserID = Session("ECMallUserID") GB_Password = Session("ECMallPassword") '運用管理者でない場合はショップIDを連動作成 If LCase(LoginID) <> LCase(SysAdminID) Or LCase(Password) <> LCase(SysAdminPass) Then ' Query = " SELECT * FROM TMシステム WHERE システムCD = 'SFC' " ' Query = Query & " AND 管理者ID = '" & LoginID & "' AND パスワード = '" & Password & "' " ' Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) ' If Content.BOF Or Content.EOF Then Query = " SELECT * FROM TMショップ WHERE ログインID = '" & LoginID & "' AND パスワード = '" & Password & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Content.BOF Or Content.EOF Then Dim NewShop NewShop = 1 Query = " SELECT MAX(ショップID) AS 最大ID FROM TMショップ " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then NewShop = NewShop + Content.Fields("最大ID") End If If "" & NewShop = "" Then NewShop = "1" End If Query = "" Query = Query & " INSERT INTO TMショップ (ショップID, ログインID, パスワード, 公開フラグ) " Query = Query & " VALUES (" & NewShop & ", '" & LoginID & "', '" & Password & "', '1') " 'Response.Write(Query) 'Exit Sub Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) 'ここでショップ管理者ログインさせる Session("ECMallShopAdmin") = "" & NewShop 'ショップ番号をフラグとする GB_ShopAdmin = Session("ECMallShopAdmin") Else 'ここでショップ管理者ログインさせる Session("ECMallShopAdmin") = "" & Content.Fields("ショップID") 'ショップ番号をフラグとする GB_ShopAdmin = Session("ECMallShopAdmin") End If If LocalMode = "1" Then 'ローカルモードでは学校「hsns」の所属ショップに追加する '※新規作成時だけでなくショップインポート時にも必要なので常に処理する Query = "" Query = Query & " SELECT * FROM TM学校所属ショップ " Query = Query & " WHERE 学校CD = 'hsns' AND ショップID = " & GB_ShopAdmin & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Content.BOF Or Content.EOF Then Query = "" Query = Query & " INSERT INTO TM学校所属ショップ (学校CD, ショップID) " Query = Query & " VALUES ('hsns', " & GB_ShopAdmin & ") " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) End If End If Else 'ここで運用管理者ログインさせる Session("ECMallSysAdmin") = "1" GB_SysAdmin = Session("ECMallSysAdmin") Session("ECMallSysAdminPC") = "1" GB_SysAdminPC = Session("ECMallSysAdminPC") End If Else '運用管理者IDまたはショップIDの場合はビジターを新規作成(辻褄合わせ) Dim Flg Flg = "" Query = " SELECT * FROM TMシステム WHERE システムCD = 'SFC' " Query = Query & " AND 管理者ID = '" & LoginID & "' AND パスワード = '" & Password & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then Flg = "運用管理者" 'ここで先に運用管理者ログインさせる Session("ECMallSysAdmin") = "1" GB_SysAdmin = Session("ECMallSysAdmin") Session("ECMallSysAdminPC") = "1" GB_SysAdminPC = Session("ECMallSysAdminPC") Else Query = " SELECT * FROM TMショップ WHERE ログインID = '" & LoginID & "' AND パスワード = '" & Password & "' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then Flg = Content.Fields("名称") & "の管理者" 'ここで先にショップ管理者ログインさせる Session("ECMallShopAdmin") = "" & Content.Fields("ショップID") 'ショップ番号をフラグとする GB_ShopAdmin = Session("ECMallShopAdmin") End If End If If Flg <> "" Then 'ビジター新規作成に飛ぶ Response.Redirect("" & HomeAliasSL & "visitor_bin.asp?LoginID=" & LoginID & "&Password=" & Password & "&Shimei=" & Flg & "&Mode=2&Mail=" & Mail) Exit Sub Else ErrFlg = 1 'ログインエラー End If End If End If End If 'Response.Write(ErrFlg) 'Exit Sub If ErrFlg > 0 Then Response.Redirect("" & HomeAliasSL & "visitor.asp?ErrFlg=" & ErrFlg & "&Mode=" & Mode & "&Mail=" & Mail) ' ElseIf Mail = "1" Then ' Response.Redirect("" & HomeAliasSL & "mail/mail.asp") ElseIf GB_SysAdmin = "1" Then Response.Redirect("" & HomeAliasSL & "sysadminmenu.asp") Else Response.Redirect("" & HomeAliasSL & "practice.asp?Mail=" & Mail) End If End Sub %>