0

私はvbプログラミングが初めてで、アップロードフォームを実装してファイルをWebサーバーにアップロードしようとしています。私は .vbhtml と VB を使用しています。フォームを作成しましたが、送信ボタン "Button1_Click" をクリックしても何も起こりません。これが私のコードです

---- Index.vbhtml コード -----

@Code
    ViewData("Title") = "Home Page"
 End Code  


    <form id="form1" runat="server" action="">
        <div>
            <input type="file" ID="FileUpload1" runat="server" /><br />
            <br />
            <input type="button" ID="submit_button" runat="server" OnClick="Button1_Click" 
             value="Upload File" />&nbsp;<br />
            <br />
             <span id="Span1" runat="Server" />
             </div>
      </form> 

-------- HomeController.vb で使用されるコード -------------------

Public Class HomeController

Inherits System.Web.Mvc.Controller


Dim Span1 As Object
Dim FileUpload1 As Object




'Upload file

Public Sub Button1_Click(ByVal sender As Object, _
  ByVal e As System.EventArgs)

    If FileUpload1.HasFile Then
        Try
            FileUpload1.SaveAs("C:\inetpub\wwwroot\Uploads\" & _
               FileUpload1.FileName)
            Span1.Text = "You have specified a file."
            Span1.Text = "File name: " & _
              FileUpload1.PostedFile.FileName & "<br>" & _
               "File Size: " & _
              FileUpload1.PostedFile.ContentLength & " kb<br>" & _
               "Content type: " & _
               FileUpload1.PostedFile.ContentType
        Catch ex As Exception
            Span1.Text = "ERROR: " & ex.Message.ToString()
        End Try
    Else
        Span1.Text = "You have not specified a file."
    End If
End Sub

End Class

何か不足している場合はお知らせください。

4

1 に答える 1