<%
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 Query
Dim Content
Dim Content2
'画像フォルダ作成
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim ImageFolder
ImageFolder = "" & HomeAliasSL & IconFolderSL
If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then
fso.CreateFolder(Server.MapPath(ImageFolder))
End If
ImageFolder = ImageFolder & GB_ShopAdmin & "/"
If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then
fso.CreateFolder(Server.MapPath(ImageFolder))
End If
Dim BASPObj
Dim Bytes, BinData, FileName, FileSize, l1
Bytes = Request.TotalBytes
On Error Resume Next
Err.Clear()
BinData = Request.BinaryRead(Bytes)
If Err.Description <> "" Then
Response.Write("エラーが発生しました。
ファイルサイズが大きすぎる可能性があります。
")
Response.Write("エラーコード：")
Response.Write(Err.Description)
Response.Write("
")
Response.Write("戻る")
Exit Sub
End If
On Error Goto 0
Set BASPObj = Server.CreateObject("basp21")
Dim Mode
Mode = BASPObj.Form(BinData, "Mode")
Dim Delete
Delete = BASPObj.Form(BinData, "Delete")
'Response.Write(Mode)
'Exit Sub
Dim ActShopID
ActShopID = BASPObj.Form(BinData, "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
'画像フォルダ作成（種別をファイル名にするため種別フォルダは不要）
'ImageFolder = ImageFolder & Mode & "/"
'Response.Write(ImageFolder)
'Exit Sub
'If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then
' fso.CreateFolder(Server.MapPath(ImageFolder))
'End If
If Delete <> "1" Then
FileSize = BASPObj.FormFileSize(BinData, "ImageFile")
If FileSize > 0 Then
If fso.FileExists(Server.MapPath(ImageFolder) & "\" & Mode & ".*") Then
Call fso.DeleteFile(Server.MapPath(ImageFolder) & "\" & Mode & ".*", True) '同一種別のファイルを全削除
End If
FileName = BASPObj.FormFileName(BinData,"ImageFile")
FileName = Mid(FileName, InStrRev(FileName, "\") + 1) 'パスからファイル名を取り出す
Dim FileExt
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) 'ファイル名から拡張子を取り出す
FileName = Mode & "." & FileExt 'ファイル名を種別に変換
l1 = BASPObj.FormSaveAs(BinData, "ImageFile", Server.MapPath(ImageFolder) & "\" & FileName)
'Response.Write(Server.MapPath(ImageFolder) & "\" & FileName)
'Exit Sub
End If
End If
Query = " UPDATE TMショップ"
Query = Query & " SET 画像" & Mode & " = '" & FileName & "' "
Query = Query & " WHERE ショップID = " & GB_ShopAdmin & " "
'Response.Write(Query)
'Exit Sub
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
Response.Redirect(HomeAliasSL & "shopimage.asp?Mode=" & Mode & "&ActShopID=" & ActShopID & "&" & TimeUniq())
End Sub
%>