ファイルをアップする方法

質問

ＡＳＰ（VBScript)
画像ファイルをＢＡＳＰ２１でアップするしています。かなりおおきなサイズのファイルを間違って選んだ場合の対策として、事前にファイルサイズをチェックしてからアップしたいのですが方法がわかりません。教えてください。

回答No.1

hequil

大体こんな感じでチェック可能だと思います。

'--- アップロード上限(単位: KB)
Const MAX_FILESIZE = 500

Dim binRead
Dim objBasp

binRead = Request.BinaryRead(Request.TotalBytes)
Set objBasp = Server.CreateObject("basp21")

If objBasp.FormFileSize(binRead, "uploadfile") > MAX_FILESIZE * 1024 Then
'--- MAX_FILESIZE を越えるサイズのファイル
'--- エラーメッセージ表示など
Else
'--- MAX_FILESIZE 以下のファイル
'--- アップロード処理など
End If

Set objBasp = Nothing