0

従来のASPアプリケーションは、1つの.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 で囲むことができます。

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 に答える
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 に答える