01.
<%@ Page Language=
"VB"
%>
02.
<script runat=
"server"
>
03.
04.
Sub
btnSubmit_Click(sender
As
Object
, e
As
EventArgs)
05.
If
Me
.fiUpload.HasFile
Then
06.
Me
.fiUpload.SaveAs(Server.MapPath(
"Myfiles/"
&fiUpload.FileName))
07.
Me
.lblText1.Text =
"File Name: "
& fiUpload.PostedFile.FileName
08.
Me
.lblText2.Text =
"File Size: "
& fiUpload.PostedFile.ContentLength
09.
Me
.lblText3.Text =
"File Type: "
& fiUpload.PostedFile.ContentType
10.
End
IF
11.
End
Sub
12.
13.
</script>
14.
<html>
15.
<head>
16.
</head>
17.
<body>
18.
<form runat=
"server"
>
19.
<asp:FileUpload id=
"fiUpload"
runat=
"server"
></asp:FileUpload>
20.
<asp:Button id=
"btnSubmit"
onclick=
"btnSubmit_Click"
runat=
"server"
Text=
"Submit"
></asp:Button>
21.
<hr />
22.
<asp:Label id=
"lblText1"
runat=
"server"
></asp:Label>
23.
<br>
24.
<asp:Label id=
"lblText2"
runat=
"server"
></asp:Label>
25.
<br>
26.
<asp:Label id=
"lblText3"
runat=
"server"
></asp:Label>
27.
</form>
28.
</body>
29.
</html>