%
'################################################
' 名称 :
' 作成日: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)
%>