<html>
<script language="VB" runat=server>
Sub UploadBtn_Click(Sender as Object, E as EventArgs)
UploadFile.PostedFile.SaveAs(Server.MapPath("test.jpg"))
MyImage.ImageUrl = "test.jpg"
MyImage.Visible = true
End Sub
</script>
<body>
<form enctype="multipart/form-data" runat=server>
<h3>
Select File To Upload: <input id="UploadFile" type=file runat=server>
<asp:button Text="Upload Me!" OnClick="UploadBtn_Click" runat=server/>
<hr>
<asp:image id="MyImage" Visible=false runat=server/>
</form>
</body>
</html>
（出处：热点网络）
关键词：asp+ VB上传文件代码