<%
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 UpdSchool
UpdSchool = Request("UpdSchool") '更新対象
Dim School
Dim Pass
Dim Meisho
Dim Pref
Dim Host
School = LCase(Replace(Replace(Request("School" & UpdSchool), " ", ""), " ", ""))
Pass = Replace(Replace(Request("Pass" & UpdSchool), " ", ""), " ", "")
Meisho = Replace(Replace(Request("Meisho" & UpdSchool), " ", ""), " ", "")
Pref = Request("Pref" & UpdSchool)
Host = Replace(Replace(Request("Host" & UpdSchool), " ", ""), " ", "")
If Mode = "Insert" Then
School = LCase(Replace(Replace(Request("School0"), " ", ""), " ", ""))
Pass = Replace(Replace(Request("Pass0"), " ", ""), " ", "")
Meisho = Replace(Replace(Request("Meisho0"), " ", ""), " ", "")
Pref = Request("Pref0")
Host = Replace(Replace(Request("Host0"), " ", ""), " ", "")
End If
If "" & Pref = "" Then
Pref = "null"
End If
'Response.Write(Meisho)
'Exit Sub
If Mode <> "" And UpdSchool <> "" Then
If Mode = "Insert" And Meisho <> "" Then
Query = ""
Query = Query & " SELECT * FROM TM学校 WHERE 学校CD = '" & School & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
Response.Write("入力された学校CDはすでに存在しています。
")
Response.Write("戻る")
Exit Sub
End If
'デフォルトモール名取得
Dim DefMallName
Query = ""
Query = Query & " SELECT * FROM TM学校 WHERE 学校CD = 'hsns' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
DefMallName = Content.Fields("タイトル")
End If
DefMallName = Meisho & DefMallName
Query = ""
Query = Query & " INSERT INTO TM学校 (学校CD, パスワード, 名称, 都道府県CD, ホスト名, タイトル) "
Query = Query & " VALUES ('" & School & "', '" & Pass & "', '" & Meisho & "', " & Pref & ", '" & Host & "', '" & DefMallName & "') "
'Response.Write(Query)
'Exit Sub
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
ElseIf Mode = "Update" And Meisho <> "" Then
Query = " UPDATE TM学校 "
Query = Query & " SET パスワード = '" & Pass & "' "
Query = Query & " , 名称 = '" & Meisho & "' "
Query = Query & " , 都道府県CD = " & Pref & " "
Query = Query & " , ホスト名 = '" & Host & "' "
Query = Query & " WHERE 学校CD = '" & School & "' "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
ElseIf Mode = "Delete" Then
Query = " DELETE FROM TM学校 "
Query = Query & " WHERE 学校CD = " & UpdSchool & " "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
End If
'Response.Write(Query)
'Exit Sub
End If
Response.Redirect("sysschool.asp")
End Sub
%>