<%
main()
Sub main()
If Not(InternetCheck()) Then
Exit Sub
End If
' If Not(VisitorCheck()) Then
' Exit Sub
' End If
If Not(SchoolAdminCheck()) Then
Exit Sub
End If
'Response.Write(GB_ShopAdmin)
'Exit Sub
Dim ActSchoolCD
ActSchoolCD = Request("ActSchoolCD")
If LCase(ActSchoolCD) <> LCase(GB_SchoolAdmin) Then
Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。
" & vbCrLf)
Response.Write("同一PC上で複数のIDでログインすることはできません。
" & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("戻る" & vbCrLf)
Exit Sub
End If
Dim Query
Dim Content
Dim Content2
Dim Publish
Dim Password
Dim Pref
Dim Host
Dim Title
Dim LinkURL
Dim NewTopic
Dim Banner
Dim Osusume
Dim NewItem
Dim ItemList
Dim ItemSort
Dim ShopList
Publish = Request("Publish")
Password = ConvQueryChar(Request("Password"))
Pref = ConvProhiStr(Request("Pref"))
Host = ConvProhiStr(Request("Host"))
Title = ConvProhiStr(Request("Title"))
LinkURL = ConvProhiStr(Request("LinkURL"))
NewTopic = Request("NewTopic")
Banner = Request("Banner")
Osusume = Request("Osusume")
NewItem = Request("NewItem")
ItemList = Request("ItemList")
ItemSort = Request("ItemSort")
ShopList = Request("ShopList")
Query = " UPDATE TM学校 "
Query = Query & " SET パスワード = '" & Password & "' "
Query = Query & " , タイトル = '" & Title & "' "
Query = Query & " , 学校リンク = '" & LinkURL & "' "
Query = Query & " , 最新トピック表示 = '" & NewTopic & "' "
Query = Query & " , バナー広告表示 = '" & Banner & "' "
Query = Query & " , おすすめ商品表示 = '" & Osusume & "' "
Query = Query & " , 新着商品表示 = '" & NewItem & "' "
Query = Query & " , 商品表示 = '" & ItemList & "' "
Query = Query & " , 商品初期ソート = '" & ItemSort & "' "
Query = Query & " , ショップ一覧表示 = '" & ShopList & "' "
Query = Query & " , 公開 = '" & Publish & "' "
Query = Query & " WHERE 学校CD = '" & GB_SchoolAdmin & "' "
'Response.Write(Query)
'Exit Sub
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
Response.Redirect("schoolbasic.asp?ActSchoolCD=" & ActSchoolCD & "")
End Sub
%>