HTTPアップロード

  model.inc



  
<%
' **********************************************************
' アップロード
' **********************************************************
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

%>
  














   SQLの窓    create:2004/11/06  update:2018/02/08   管理者用(要ログイン)





フリーフォントツール

SQLの窓ツール

SQLの窓フリーソフト

写真素材

一般ツールリンク

SQLの窓

フリーソフト