asp+ VB上传文件代码

March 25,2004

<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>