Download presentation
Presentation is loading. Please wait.
1
ASP.NET 網頁製作教本 – 從基本語法學起
第13章 FTP 檔案上傳、 自動傳送
2
13-1 FTP 檔案上傳
3
FTP 檔案上傳的要素 表單的 Enctype(編碼型態)屬性須設定成 "multipart/form-data"。
佈置 File 型態的 HTML 輸入欄位，供使用者選取所要上傳的檔案 。
4
upload.aspx 例子 (1) <Html> <Body BgColor=White>
<H3>檔案上傳 -- 上傳一個檔案<Hr></H3> <Form Enctype="multipart/form-data" runat="server"> 請輸入完整檔案路徑： <Input Type="File" id="FileUp" runat="server"><P> <asp:Button runat="server" Text="Upload" OnClick="UploadFile" /> <Hr> <asp:Label runat="server" id="Msg" /> </Form> </Body> </Html>
5
upload.aspx 例子 (2) <script language="VB" runat="server">
Sub UploadFile(sender As Object, e As EventArgs) Dim file As HttpPostedFile = FileUp.PostedFile If file.ContentLength <> 0 Then Msg.Text = "大小: " & File.ContentLength Msg.Text &= "<br>類型: " & File.ContentType Msg.Text &= "<br>名稱: " & File.FileName
6
upload.aspx 例子 (3) Dim FileSplit() As String = Split( File.FileName, "\" ) Dim FileName As String = FileSplit(FileSplit.Length-1) File.SaveAs( Server.MapPath(FileName) ) Else Msg.Text = "" End If End Sub </script>
7
Upload.aspx 網頁
8
Upload.aspx 網頁 表單的佈置(1) 位於 <Form ...> 與 </Form> 之間的標示在完成以下的表單佈置：
9
Upload.aspx 網頁 表單的佈置(2) <Form Enctype="multipart/form-data" runat="server"> 請輸入完整檔案路徑： <Input Type="File" id="FileUp" runat="server"><P> <asp:Button runat="server" Text="Upload" OnClick="UploadFile" /> <Hr> <asp:Label runat="server" id="Msg" /> </Form>
10
Upload.aspx 網頁 UploadFile 事件程序 (1)
11
Upload.aspx 網頁 UploadFile 事件程序 (2)
<script language="VB" runat="server"> Sub UploadFile(sender As Object, e As EventArgs) Dim file As HttpPostedFile = FileUp.PostedFile If file.ContentLength <> 0 Then Msg.Text = "大小: " & File.ContentLength Msg.Text &= "<br>類型: " & File.ContentType Msg.Text &= "<br>名稱: " & File.FileName
12
Upload.aspx 網頁 UploadFile 事件程序 (3)
Dim FileSplit() As String = Split( File.FileName, "\" ) Dim FileName As String = FileSplit(FileSplit.Length-1) File.SaveAs( Server.MapPath(FileName) ) Else Msg.Text = "" End If End Sub </script>
13
UploadFile 事件程序注意一 If file.ContentLength <> 0 Then：
14
UploadFile 事件程序注意二 存檔的方法：請注意利用 file.FileName 所讀取的檔案名稱是上網者那一端的完 整路徑檔案名稱，因此我們須利用以下 敘述取出其中的檔案名稱(不含路徑)： 然後再利用以下敘述將檔案儲存在 Upload.aspx 的所在目錄： Dim FileSplit() As String = Split( file.FileName, "\" ) Dim FileName As String = FileSplit(FileSplit.Length-1) File.SaveAs( Server.MapPath(FileName) )
15
上傳多個檔案
16
節錄自 Uploads.aspx (1) <Form Enctype="multipart/form-data" runat="server"> 請輸入完整路徑檔案名稱：<br> <Input Type="File" id="FileUp1" runat="server"><br> <Input Type="File" id="FileUp2" runat="server"><br> <Input Type="File" id="FileUp3" runat="server"><br> <asp:button runat="server" Text="Upload" OnClick="UploadFile" /> <Hr> <asp:Label runat="server" id="Msg" /> </Form>
17
節錄自 Uploads.aspx (2-1) Sub UploadFile(sender As Object, e As EventArgs) Dim I As Integer Msg.Text = "" For I = 0 To Request.Files.Count - 1 Dim File As HttpPostedFile = Request.Files(I) If File.ContentLength > 0 Then ' 顯示上傳檔案的資訊 Msg.Text &= "檔案: " & File.FileName Msg.Text &= ", " & File.ContentLength Msg.Text &= ", " & File.ContentType & "<br>"
18
節錄自 Uploads.aspx (2-1) ' 儲存檔案
Dim FileSplit() As String = Split( File.FileName, "\" ) Dim FileName As String = FileSplit(FileSplit.Length-1) File.SaveAs( Server.MapPath(FileName) ) End If Next End Sub
19
自動傳送
20
自動傳送 在網頁製作中，需要自動傳送 給上網者的情況很多，例如： 電子購物網頁 密碼網頁 電子賀卡
21
MailMessage 及 SmtpMail 物件
在ASP.NET 底下，欲傳送 ，須使用 MailMessage 及 SmtpMail 物件，其中MailMessage用來設定 的內容，而SmtpMail則是將 傳送出去
22
MailMessage 及 SmtpMail 物件的程式架構 (1)
Import Namespace="System.Web.Mail" %> Dim mail as New MailMessage ' 建立一個MailMessage物件 ' 設定郵件的屬性 mail.To = 收件人 mail.From = 送件人 mail.Subject = 主旨 mail.BodyFormat = 郵件格式(純文字或Html) mail.Body = 郵件內容
23
MailMessage 及 SmtpMail 物件的程式架構 (2)
' 藉助SmtpMail送出郵件 On Error Resume Next SmtpMail.SmtpServer = SMTP Server的網址 SmtpMail.Send(mail) If Err.Number <> 0 Then ' 郵件送出失敗, 接著利用Err.Description讀取錯誤訊息 Else ' 郵件送出成功 End If
24
SMTP Server 與郵件的傳送 把SMTP Server設定成HiNet的SMTP Server，如下：
SmtpMail.SmtpServer = "msa.hinet.net" SmtpMail.Send(mail)
25
傳送實例
26
mail01.aspx (1) <%@ Import Namespace="System.Web.Mail" %>
<Html> <Body BgColor="White"> <H2>ASP.NET 發送程式!<Hr></H2> <Form runat="server"> <Table Border=1> <Tr><Td>收件者：</Td> <Td><asp:TextBox id="mailTo" Size=40 runat="server"/></Td></Tr> <Tr><Td>寄件者：</Td> <Td><asp:TextBox id="mailFrom" Size=40 runat="server"/></Td></Tr> <Tr><Td>主旨：</Td> <Td><asp:TextBox id="mailSubject" Size=40 runat="server"/></Td></Tr> <Tr><Td>內文：</Td> <Td><asp:TextBox runat="server" id="mailBody" TextMode="MultiLine" Rows=8 Cols=60 /> </Td></Tr> </Table> <asp:Button runat="server" Text="送 出" OnClick="Button_Click" /> </Form>
27
mail01.aspx (2) <Hr><asp:Label id="Msg" runat="server" ForeColor="Red" /><p> <Font Size=-1 Color=Blue>使用本範例之前，請先參閱書本「SMTP Server 與郵件的傳送」段落中的說明，設定好 SmtpMail.SmtpServer 屬性。</Font> </Body> </Html> <script Language="VB" runat="server"> Sub Button_Click(sender As Object, e As EventArgs) Dim mail As MailMessage = New MailMessage mail.To = mailTo.Text mail.From = mailFrom.Text mail.Subject = mailSubject.Text mail.BodyFormat = MailFormat.Text mail.Body = mailBody.Text
28
mail01.aspx (3) On Error Resume Next
SmtpMail.SmtpServer = "msa.hinet.net" SmtpMail.Send(mail) If Err.Number <> 0 Then Msg.Text = Err.Description Else Msg.Text = "郵件已經送出!" End If End Sub </script>
29
mail02.aspx 網頁
30
mail02.aspx 程式(1) 增加了「格式」選擇鈕：
<asp:RadioButtonList id="Format" runat="server" RepeatDirection="Horizontal" RepeatColumns="2"> <asp:ListItem Selected>Html 格式</asp:ListItem> <asp:ListItem>純文字格式</asp:ListItem> </asp:RadioButtonList>
31
mail02.aspx 程式(2) 而設定屬性的程式修改成： mail.To = mailTo.Value
mail.From = mailFrom.Value mail.Subject = mailSubject.Value If Format.SelectedItem.Text = "純文字格式" Then mail.BodyFormat = MailFormat.Text Else mail.BodyFormat = MailFormat.Html End If mail.Body = mailBody.Value
32
設定郵件格式
33
設定收件人姓名(1)
34
設定收件人姓名(2) 將 Email 帳號改成 「人名<Email 帳號>」 ，例如：
mail.To = mail.From = mail.Subject = 主旨 mail.BodyFormat = 郵件格式(純文字或Html) mail.Body = 郵件內容
35
多位收件人 如果同一郵件要傳送給多個人，可以將所有郵件地址串在一起，以 ',' 分隔，例如：
mail.To = mail.From = mail.Subject = 主旨 mail.BodyFormat = 郵件格式(純文字或Html) mail.Body = 郵件內容
36
副本收件人 設定副本收件人的方法是設定 Cc 屬性，例如：
mail.To = mail.From = mail.Cc = mail.Subject = 主旨 mail.BodyFormat = 郵件格式(純文字或Html) mail.Body = 郵件內容
37
密件副本收件人 設定密件副本收件人的方法是設定 Bcc 屬性，例如：
mail.To = mail.From = mail.Bcc = mail.Subject = 主旨 mail.BodyFormat = 郵件格式(純文字或Html) mail.Body = 郵件內容
38
增加附件到郵件中 在 Email 傳送中，若要將檔案附加到 Email 中一起傳送 -- 附加檔案，所需撰寫的程式如下：
Dim attach As New MailAttachment(完整路徑檔案名稱) mail.Attachments.Add( attach ) … SmtpMail.Send(mail)
39
mail03.aspx 網頁
40
mail03.aspx 網頁程式(1) 新增 <Input Type=“File” ...> 欄位，如 下：
表單屬性的修改：表單需增加Enctype屬 性的設定，如下： <Input Type="File" id="FileUp" runat="server"> <Form Enctype="multipart/form-data" runat="server">
41
mail03.aspx 網頁程式(2) 新增程式：在 Button_Click 事件程序中，新增以下程式：
Dim file As HttpPostedFile = FileUp.PostedFile If file.ContentLength <> 0 Then Dim FileSplit() As String = Split( File.FileName, "\" ) Dim FileName As String = FileSplit(FileSplit.Length-1) File.SaveAs( Server.MapPath(FileName) ) Dim attach As New MailAttachment(Server.MapPath(FileName)) mail.Attachments.Add( attach ) End If
Similar presentations
