<% ' 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 %>