<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If ' If Not(VisitorCheck()) Then ' Exit Sub ' End If If Not(ShopAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub Dim ActShopID ActShopID = Request("ActShopID") If LCase(ActShopID) <> LCase(GB_ShopAdmin) 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 ItemShopNameSize ItemShopNameSize = Request("ItemShopNameSize") Query = "" Query = Query & " UPDATE TMショップ " Query = Query & " SET 商品ショップ名サイズ = '" & ItemShopNameSize & "' " Query = Query & " WHERE ショップID = " & GB_ShopAdmin & " " 'Response.Write(Query) 'Exit Sub Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Response.Redirect("shoplayout.asp?ActShopID=" & ActShopID & "") End Sub %>