Upload на сервер

[cadet354]

1.Можно в теге input file прописать максимальный размер.(но это не спасет если руками пошлют запрос)
2.

Код: Выделить всё

Dim info As New FileInfo(Me.uplFILE01.PostedFile.FileName)
info.Length() ' тут размер файла


[gaidar]

С ограничением по объему разобрался, а как дать пользователю по рукам, когда он хочет отправить файл слишком большого размера (больше, чем установлено в maxRequestLength)?

Можно проверить на ошибку и сделать Redirect на страницу с описанием.

Код: Выделить всё

Sub Application_Error(ByVal sender As Object, _
ByVal e As EventArgs)
    ' Fires when an error occurs
    ' Check to see whether we came
    ' from the upload form
    If Path.GetFileName(Request.Path) = _
     "UploadForm.aspx" Then
        ' Get the error details
        Dim appException As System.Exception = _
         Server.GetLastError()
        Dim checkException As HttpException = _
         CType(appException, HttpException)
        ' Verify the expected error
        If checkException.GetHttpCode = 400 And _
         checkException.ErrorCode = -2147467259 Then
            ' Error 400 = bad request, user
            ' tried to upload a file that's too large
            Session("ImageTooLarge") = True
            Server.ClearError()
            ' Go to the original target page
            Response.Redirect("UploadForm.aspx")
        End If
    End If
    ' For other errors, just accept the default processing
End Sub

А на форме сделать Label, который скажет об ошибке.

Код: Выделить всё

Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
    If Not IsPostBack Then
        ' Check to see whether we were redirected
        ' from the error page
        If Session("ImageTooLarge") = True Then
            lblTooLarge.Visible = True
            Exit Sub
        End If
    Else
        ' Get the uploaded data
        Dim upfile As HttpPostedFile = _
         UploadFile.PostedFile
' Remaining code unchanged ...
   End If
End Sub

[gaidar]

Првый привер - в global.aspx.