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

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

No.1 ベストアンサー 回答者： hequil 回答日時： 2003/05/12 09:03

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

'--- アップロード上限(単位: 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