%
'
main()
Sub main()
Dim Command '処理区分
Dim GazoFile
Dim DeleteFile
Dim FileFolder
FileFolder = "/" & HomeAlias & "/data/topimage"
Dim Query
Dim Content
Dim Ng , ErrMSG , rsts, ErrMSG2
Dim RouteType, PageType
Dim BinSize
BinSize = Request.TotalBytes
Dim BinData
On Error Resume Next
Err.Clear()
BinData = Request.BinaryRead(BinSize)
If Err.Description <> "" Then
Response.Write("エラーが発生しました。
ファイルサイズが大きすぎる可能性があります。
")
Response.Write("エラーコード:")
Response.Write(Err.Description)
Response.Write("
")
Response.Write("戻る")
Exit Sub
End If
On Error Goto 0
Dim objBASP
Set objBASP = Server.CreateObject("basp21")
Command = objBASP.Form(BinData, "Command")
DeleteFile = objBASP.Form(BinData, "DeleteFile")
Dim Filename
Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")
If Command <> "" Then
If Command = "Delete" And DeleteFile <> "" Then
On Error Resume Next
objFS.DeleteFile(Server.MapPath(FileFolder & "/" & DeleteFile))
On Error Goto 0
Else
Filename = objBASP.FormFileName(BinData, "GazoFile")
Filename = Mid(Filename, InstrRev(Filename,"\") + 1)
Filename = Replace(Filename, "'", "")
If Not(objFS.FolderExists(Server.MapPath(FileFolder))) Then
objFS.CreateFolder(Server.MapPath(FileFolder))
End If
rsts = objBASP.FormSaveAs(BinData, "GazoFile", Server.MapPath(FileFolder & "/" & Filename))
'パス名260文字以上でエラー(-3)になる
If rsts < 0 Then
Response.Write("エラーが発生しました。
ファイル名が長すぎる可能性があります。
")
Response.Write("戻る")
Exit Sub
End If
End If
End If
Response.Redirect("fm_topimage.asp")
End Sub
%>