[BASP21] HTTPプロトコルでファイルをアップロードする

サンプルソースコード

<HTML>
<BODY>

<%
if Ucase( Request.ServerVariables("REQUEST_METHOD") ) = "POST" then

	Dim nLength,nRet
	Dim ByteArray
	Dim Obj
	Dim FileName

	nLength = Request.TotalBytes
	ByteArray = Request.BinaryRead( nLength )

	Response.Write nLength & " バイトのデータが読み込まれました......<br>"

	Set Obj = Server.CreateObject("basp21")
	nRet = Obj.FormSaveAs( ByteArray, "FileField", Server.MapPath( "baupl.dat" ) )
	Select Case nRet
		Case -1
			Response.Write "渡されたパラメータは、１バイトの配列ではありません<br>"
		Case -2
			Response.Write "フォームの中に名前がありません<br>"
		Case -3
			Response.Write "ファイルを作成できません<br>"
		Case -4
			Response.Write "ファイルの書込みが失敗しました<br>"
		Case Else
			Response.Write nRet & " バイトのファイルを作成しました<br>"
			FileName = Obj.FormFileName( ByteArray, "FileField" )
			Response.Write "読み込まれたファイル名は、" & FileName & "です<br>"
	End Select

else
%>

	<FORM
	 enctype=multipart/form-data
	 action=<% = Request.ServerVariables("SCRIPT_NAME") %>
	 method=POST
	>

	<INPUT
	 type=file 
	 name=FileField
	 size=20
	><br>

	<INPUT type=submit value=アップロード><br>

	</FORM>

<% end if %>

</BODY>
</HTML>