0

我们的经典 ASP 应用程序使用一个 .aspx 页面为每个客户端上传一张图片。我不熟悉 ASP.net，所以这个页面对我来说很难理解。

<html>
<head>
    <link href="css/style.css" rel="stylesheet" type="text/css" />
    <script language="VB" RunAt="Server">

        Sub Page_Load(Sender As Object, e As EventArgs)
            Span1.InnerHtml = "You may not upload a file larger than 250 Kilobytes. Your image must be in JPG format.<br />Please crop your image to 400 pixels high and 300 pixels wide, so that no distortion will occur when displayed.<br /><br />"
        End Sub

        Sub Upload_Click(Sender As Object, e As EventArgs)
            Dim DistributorID As Integer
            DistributorID = request.QueryString("distID")

            ' Display properties of the uploaded file

            'Let us recover only the file name from its fully qualified path at client 

            Dim strFileName As String
            strFileName = MyFile.PostedFile.FileName
            Dim c As String = CStr(DistributorID) & "." & split(System.IO.Path.GetFileName(strFileName), ".")(1) ' The file name is the distid + the extension

            'Let us Save uploaded file to server 
            If LCase(Split(System.IO.Path.GetFileName(strFileName), ".")(0)) = "" Then
                Span1.InnerHtml = "Please select a Photo.<br /><br />"
            End If

            If LCase(Split(System.IO.Path.GetFileName(strFileName), ".")(1)) <> "jpg" Then
                Span1.InnerHtml = "Invalid file format."
            Else

                If MyFile.PostedFile.ContentLength < 250000 Then
                    MyFile.PostedFile.SaveAs(ConfigurationSettings.AppSettings("DistImagePath") + c)
                    Span1.InnerHtml = "Your file imported sucessfully to the server.<br /><br />"
                Else
                    Span1.InnerHtml = "Your file is too large to import.<br /><br />"
                End If
            End If

        End Sub

    </script>
</head>
<body>      
    <span id="Span1" style="color:Red;" RunAt="Server" />                   
    <form method="Post" enctype="Multipart/Form-Data" RunAt="Server" class="stdform stdform2">
        &nbsp;&nbsp;Select New Photo: <br />
        &nbsp;<input id="MyFile" type="File" runat="Server" size="40" /><br /><br />            
        <span style="padding-left:25px;">
            <button type="Submit" value="Import" OnServerclick="Upload_Click" RunAt="Server">Upload New Photo</button>
        </span>
    </form>
</body>

如果未选择任何文件并按下“上传新照片”按钮，我会收到“索引超出数组范围”。错误

如果他们没有选择一张照片，我该如何修复此页面以不尝试上传照片？

4

2 回答 2

1 
If MyFile.PostedFile.ContentLength>0 
  ..
Else
   Span1.InnerHtml = "You have not specified a file."
End If

您可以在执行之前添加此代码（如果要执行上传文件）

If FileUpload1.HasFile Then

    ......

Else
      Span1.InnerHtml = "You have not specified a file."
End If
于 2012-09-05T17:37:01.203 回答
1

您可以将所有内容包含在 IF 中，如下所示：

IF MyFile.PostedFile.ContentLength>0 Then 'User selected a file

   'All your code here
Else
    Span1.InnerHtml = "Your did not select a file.<br /><br />"
End IF

完整代码：

 Sub Upload_Click(Sender As Object, e As EventArgs)
    IF MyFile.PostedFile.ContentLength>0  Then   
        Dim DistributorID As Integer
        DistributorID = request.QueryString("distID")

        ' Display properties of the uploaded file

        'Let us recover only the file name from its fully qualified path at client 

        Dim strFileName As String
        strFileName = MyFile.PostedFile.FileName
        Dim c As String = CStr(DistributorID) & "." & split(System.IO.Path.GetFileName(strFileName), ".")(1) ' The file name is the distid + the extension

        'Let us Save uploaded file to server 
        If LCase(Split(System.IO.Path.GetFileName(strFileName), ".")(0)) = "" Then
            Span1.InnerHtml = "Please select a Photo.<br /><br />"
        End If

        If LCase(Split(System.IO.Path.GetFileName(strFileName), ".")(1)) <> "jpg" Then
            Span1.InnerHtml = "Invalid file format."
        Else

            If MyFile.PostedFile.ContentLength < 250000 Then
                MyFile.PostedFile.SaveAs(ConfigurationSettings.AppSettings("DistImagePath") + c)
                Span1.InnerHtml = "Your file imported sucessfully to the server.<br /><br />"
            Else
                Span1.InnerHtml = "Your file is too large to import.<br /><br />"
            End If
        End If
     Else
            Span1.InnerHtml = "Your did not select a file.<br /><br />"
     End IF

    End Sub
于 2012-09-05T17:37:40.757 回答