fileupload1_vb.aspx

来自「一些标准控件的举例说明」· ASPX 代码 · 共 37 行

ASPX
37
字号
<html>
<head>

	<script language="VB" runat="server">
	
	Sub Button1_Click(sender As Object, e As EventArgs)
		
		if FileUpLoad1.HasFile
			'Uncomment this line to Save the uploaded file
			'FileUpLoad1.SaveAs("C:\SomePhysicalPath" & FileUpLoad1.Filename)
			Label1.Text = "Received " & FileUpLoad1.FileName & " Content Type " & FileUpLoad1.PostedFile.ContentType & " Length " & FileUpLoad1.PostedFile.ContentLength
		else
			Label1.Text = "No uploaded file"
		end if	
		
	end sub
		
	</script>

</head>
<body>

    <h3><font face="Verdana">File Upload</font></h3>

    <form runat=server>

		<asp:FileUpLoad id="FileUpLoad1" AlternateText="You cannot upload files" runat="server" />
		<asp:Button id="Button1" Text="Upload" OnClick="Button1_Click" runat="server" />
		<asp:Label id="Label1" runat="server" />
    </form>

</body>
</html>



⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?