<%@ Page Language="VB" %>
<script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
If FileUpload1.HasFile Then
Try
FileUpload1.SaveAs("C:\Uploads\" & FileUpload1.FileName)
Label1.Text = "檔案名稱：" & FileUpload1.PostedFile.FileName & "<br>" & _
"檔案大小：" & FileUpload1.PostedFile.ContentLength & " kb<br>" & _
"內容型式：" & FileUpload1.PostedFile.ContentType
Catch ex As Exception
Label1.Text = "出現錯誤：" & ex.Message.ToString()
End Try
Else
Label1.Text = "未指定檔案！"
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Upload Files</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:FileUpload ID="FileUpload1" runat="server" /><br />
<br />
<asp:Button ID="Button1" runat="server" OnClick="Button1_Click"
Text="Upload File" /> <br />
<br />
<asp:Label ID="Label1" runat="server"></asp:Label></div>
</form>
</body>
</html>
沒有留言:
張貼留言