| <%
' **********************************************************
' アップロード
' **********************************************************
Function FileUpload( )
Dim LocalFile, TargetName
LocalFile = obj.FormFileName( FileData, "In1File" )
TargetName = Mid( LocalFile, InstrRev(LocalFile,"\")+1 )
if Trim( TargetName ) = "" then
OutData = OutData & "<TR>"
OutData = OutData & "<TD class=MyCell>"
OutData = OutData & "ファイル名を指定して下さい"
OutData = OutData & "</TD>"
OutData = OutData & "</TR>"
else
Call obj.FormSaveAs( _
FileData,"In1File", Server.MapPath("Image/" & TargetName) _
)
OutData = OutData & "<TR>"
OutData = OutData & "<TD class=MyCell>"
OutData = OutData & "<IMG src="""
OutData = OutData & "Image/" & TargetName
OutData = OutData & """>"
OutData = OutData & "</TD>"
OutData = OutData & "</TR>"
end if
Session("OutData") = OutData
End Function
' **********************************************************
' VIEW の編集
' **********************************************************
Function EditDataHead( )
End Function
' **********************************************************
' VIEW2 の編集
' **********************************************************
Function EditDataBody( )
OutData = Session("OutData")
End Function
%>
| |