私は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" /> <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
何か不足している場合はお知らせください。