<% '################################################ ' 名称 : ' 作成日:2003/ ' 作成者: ' 目的 : ' 概要 : ' <<表示>> ' ・ '################################################ %> <% main() Sub main() Dim fs, obj Dim MeishiDir Dim a, b, f1, fsize1, l1, FileName Dim tmpEnshuCD Dim tmpKaisyaCD Dim tmpGakuseiNo Dim imdatano a=Request.TotalBytes On Error Resume Next Err.Clear() b=Request.BinaryRead(a) 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 obj=server.createobject("basp21") fsize1=obj.FormFileSize(b,"UpFile") Set fs = CreateObject("Scripting.FileSystemObject") MeishiDir = "/" & HomeAlias & "/data/meishi" If Not(fs.FolderExists(Server.MapPath(MeishiDir))) Then fs.CreateFolder(Server.MapPath(MeishiDir)) End If f1=obj.FormFileName(b,"UpFile") tmpEnshuCD = obj.Form(b,"tmpEnshuCD") tmpKaisyaCD = obj.Form(b,"tmpKaisyaCD") tmpGakuseiNo = obj.Form(b,"tmpGakuseiNo") imdatano = obj.Form(b,"imdatano") FileName=Mid(f1,InStrRev(f1,".")+1) '拡張子を取り出す FileName = tmpEnshuCD & "_~_" & tmpKaisyaCD & "_~_" & tmpGakuseiNo & "_~_meishi" & imdatano & "." & FileName 'GakuseiNo_______meishi?.ext l1=obj.FormSaveAs(b,"UpFile",Server.MapPath(MeishiDir) & "\" & FileName) %> <% = AppTitle %>
 

<% End Sub %>