<%
main()
Sub main()
If Not(InternetCheck()) Then
Exit Sub
End If
' If Not(VisitorCheck()) Then
' Exit Sub
' End If
If Not(SysAdminCheck()) Then
Exit Sub
End If
'Response.Write(GB_ShopAdmin)
'Exit Sub
Dim Query
Dim Content
Dim Content2
Dim Mode
Mode = Request("Mode")
Dim UpdShop
UpdShop = Request("UpdShop") '更新対象
Dim School
School = Request("School")
Dim Page
Page = Request("Page")
Dim DeleteShop
DeleteShop = Request("DeleteShop")
Dim Shop
Dim Pass
Dim Meisho
Dim Addr
Dim AdminStart
Dim AdminEnd
Dim AdminKyujitsu
Dim PracticeCD
Shop = LCase(Replace(Replace(Replace(Request("Shop" & UpdShop), " ", ""), " ", ""), "'", ""))
Pass = Replace(Replace(Replace(Request("Pass" & UpdShop), " ", ""), " ", ""), "'", "")
' Meisho = Replace(Replace(Request("Meisho" & UpdShop), " ", ""), " ", "")
Meisho = ConvProhiStr(Request("Meisho" & UpdShop))
Addr = ConvProhiStr(Replace(Replace(Request("Addr" & UpdShop), " ", ""), " ", ""))
AdminStart = Request("AdminStart" & UpdShop)
AdminEnd = Request("AdminEnd" & UpdShop)
AdminKyujitsu = Request("AdminKyujitsu" & UpdShop)
PracticeCD = Request("PracticeCD" & UpdShop)
If Mode = "Insert" Then
Shop = LCase(Replace(Replace(Request("Shop0"), " ", ""), " ", ""))
Pass = Replace(Replace(Request("Pass0"), " ", ""), " ", "")
Meisho = ConvProhiStr(Request("Meisho0"))
Addr = Replace(Replace(Request("Addr0"), " ", ""), " ", "")
AdminStart = Request("AdminStart0")
AdminEnd = Request("AdminEnd0")
AdminKyujitsu = Request("AdminKyujitsu0")
PracticeCD = Request("PracticeCD")
End If
If AdminStart = "" Then
AdminStart = "null"
End If
If AdminEnd = "" Then
AdminEnd = "null"
End If
Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")
Dim Cnt
'Response.Write(Mode)
'Exit Sub
If Mode <> "" And UpdShop <> "" Then
If Mode = "Insert" And (Meisho <> "" Or LocalMode = "1") Then
Query = " SELECT ログインID FROM TMショップ WHERE ログインID = '" & Shop & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
Response.Write("入力されたログインIDはすでに存在しています。
")
Response.Write("戻る")
Exit Sub
End If
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, パスワード, 学校名, 名称, メールアドレス, ログイン許可始, ログイン許可終, ログイン制限日, 代金引換算出基準, 演習CD) "
Query = Query & " VALUES (" & NewShop & ", '" & Shop & "', '" & Pass & "', '" & Meisho & "', '" & Meisho & "', '" & Addr & "', " & AdminStart & ", " & AdminEnd & ", '" & AdminKyujitsu & "', '1' "
If PracticeCD <> "" Then
Query = Query & " , " & PracticeCD & " "
Else
Query = Query & " , null "
End If
Query = Query & " ) "
'Response.Write(Query)
'Exit Sub
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If LocalMode = "1" Then
'ローカルモードでは学校「hsns」の所属ショップに追加する
Query = ""
Query = Query & " SELECT * FROM TM学校所属ショップ "
Query = Query & " WHERE 学校CD = 'hsns' AND ショップID = " & NewShop & " "
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', " & NewShop & ") "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
End If
End If
ElseIf Mode = "Update" And (Meisho <> "" Or LocalMode = "1") Then
Query = " UPDATE TMショップ "
Query = Query & " SET ログインID = '" & Shop & "' "
Query = Query & " , パスワード = '" & Pass & "' "
Query = Query & " , 学校名 = '" & Meisho & "' "
Query = Query & " , 名称 = '" & Meisho & "' "
Query = Query & " , メールアドレス = '" & Addr & "' "
Query = Query & " , ログイン許可始 = " & AdminStart & " "
Query = Query & " , ログイン許可終 = " & AdminEnd & " "
Query = Query & " , ログイン制限日 = '" & AdminKyujitsu & "' "
Query = Query & " , 代金引換算出基準 = '1' "
If PracticeCD <> "" Then
Query = Query & " , 演習CD = " & PracticeCD & " "
Else
Query = Query & " , 演習CD = null "
End If
If LocalMode = "1" Then
Query = Query & " , 公開フラグ = '1' "
End If
Query = Query & " WHERE ショップID = " & UpdShop & " "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
End If
ElseIf Mode <> "" And DeleteShop <> "" Then
Dim DeleteShopAry
DeleteShopAry = Split(DeleteShop, ",")
'Response.Write(DeleteShop)
'Exit Sub
For Cnt = 0 To UBound(DeleteShopAry)
DeleteShopAry(Cnt) = Trim(DeleteShopAry(Cnt))
If DeleteShopAry(Cnt) <> "" And IsNumeric(DeleteShopAry(Cnt)) Then
If LocalMode = "1" Then
'ビジターIDを逆引き
Dim DeleteUserID
Query = " SELECT * FROM TMショップ "
Query = Query & " WHERE ショップID = " & DeleteShopAry(Cnt) & " "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
DeleteUserID = Content.Fields("ログインID")
End If
'ビジターを削除
Query = " DELETE FROM TMログイン "
Query = Query & " WHERE メールアドレス = '" & DeleteUserID & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
Query = " DELETE FROM TMビジター "
Query = Query & " WHERE ログインID = '" & DeleteUserID & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
'ビジターメールを削除
Query = " DELETE FROM TFメールビジター "
Query = Query & " WHERE ログインID = '" & DeleteUserID & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
'ショップメールを削除
Query = " DELETE FROM TFメールショップ "
Query = Query & " WHERE ログインID = '" & DeleteShopAry(Cnt) & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
End If
'ショップを削除
Query = " DELETE FROM TMショップ "
Query = Query & " WHERE ショップID = " & DeleteShopAry(Cnt) & " "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
'学校所属ショップを削除
Query = " DELETE FROM TM学校所属ショップ "
Query = Query & " WHERE 学校CD = 'hsns' AND ショップID = " & DeleteShopAry(Cnt) & " "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
Dim TmpFolder
On Error Resume Next
TmpFolder = Server.MapPath(HomeAliasSL & ShopFolderSL & DeleteShopAry(Cnt) & "/")
objFS.DeleteFolder TmpFolder, True
TmpFolder = Server.MapPath(HomeAliasSL & ItemFolderSL & DeleteShopAry(Cnt) & "/")
objFS.DeleteFolder TmpFolder, True
TmpFolder = Server.MapPath(HomeAliasSL & IconFolderSL & DeleteShopAry(Cnt) & "/")
objFS.DeleteFolder TmpFolder, True
TmpFolder = Server.MapPath(HomeAliasSL & BunnerFolderSL & DeleteShopAry(Cnt) & "/")
objFS.DeleteFolder TmpFolder, True
On Error Goto 0
'Response.Write(Query)
'Exit Sub
End If
Next
End If
Response.Redirect("sysshop.asp?School=" & School & "&Page=" & Page)
End Sub
%>