【文章內(nèi)容簡介】 (MailMessage) 由于 MailMessage 對象屬性多，所以這種調(diào)用可以使郵件內(nèi)容更加豐富，一 般采用這種方式來發(fā)送郵件。在下面的例子里面就是用這種調(diào)用方式。 (三 )、 設(shè)計思路及步驟： 首先要說明的是在此 程序里面我們用的程序語言是 Visual Basic .NET。 第一步：要包括名稱空間 ，加入在程序中使用的程序語言類型： 第二步：初始化 SmtpMail、 MailMessage 對象： Dim mailObj AS new MailMessage Dim smtp AS new SmtpMail ?定義 SMTP 服務(wù)器的名稱 = ?定義郵件的發(fā)送地址 = “” ?定義郵件的接收地址 =” ” ?定義郵件的暗送地址 =”” ?定義郵件的抄送地址 =”” ?定義郵件的主題 = 我的郵 件系統(tǒng)，歡迎使用！ ?定義郵件的主體 = 這里是郵件的主體！ ?郵件以 HTML 的格式發(fā)送 = ?定義郵件的有限級，在此設(shè)定為高 = ?給發(fā)送的郵件附加上一個附件 (new MailAttachment(c:\)) 第三步：發(fā)送郵件 (mailObj) (四 )、利 用 設(shè)計 郵件發(fā)送程序 的 源代碼 ＜ SCRIPT language=VB RUNAT=server＞ ＜ br＞ ＜ br＞ Sub SendMail (Obj As Object, E As EventArgs) ＜ br＞ ＜ br＞ Dim mailObj AS new MailMessage ＜ br＞ ＜ br＞ Dim smtp AS new SmtpMail ＜ br＞ ＜ br＞ 39。定義 SMTP 服務(wù)器的名稱 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的發(fā)送地址 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的接收地址 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的暗送地址 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的抄送地址 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的主題 ＜ br＞ ＜ br＞ = 我的郵件系統(tǒng)，歡迎使用！ ＜ br＞ ＜ br＞ 39。定義郵件的主體 ＜ br＞ ＜ br＞ = 這里是郵件的主體！ ＜ br＞ ＜ br＞ 39。郵件以 HTML 的格式發(fā)送 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的有限級 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。給發(fā)送的郵件附加上一個附件，請確定在 C 盤的根目錄下有 文件 ＜ br＞ ＜ br＞ (new MailAttachment(c:\)) ＜ br＞ ＜ br＞ (mailObj) ＜ br＞ ＜ br＞ End Sub ＜ br＞ ＜ br＞ ＜ /SCRIPT＞ 例 3：利用 一種程序設(shè)計語言對文件處理的能力的大小往往 也是一種語言功能大小的一種表現(xiàn)。在 中，對于文件的處理主要是通過 .Net FrameWork SDK 中的一個 的名稱空間來實現(xiàn)了，在 名稱空間中定義了許多關(guān)于文件處理的類（ class）、方法和屬性，這些類、方法和屬性使得在很容易在 中進(jìn)行文件處理。由于在此名稱空間中有定義了許多類、方法和屬性，而這些不可能通過本文來一一介紹。 下面主要結(jié)合 一個具體的 例子來介紹對于文件處理的基本操作。 文件基本操作也就是我們平常經(jīng)常用到的。具體說就是對文件的讀、寫、拷貝、 移動、刪除。下面就這幾個操作來具體介紹一下。 (一 )、 程序設(shè)計及運行環(huán)境 Windows 2020 Professional、 .Net FrameWork SDK Beta 2。 (二 )、 通過 頁面進(jìn)行文件的讀操作 本程序的運行界面及運行結(jié)果如圖 圖 4 所示： 圖 3： 通過 頁面進(jìn) 行文件的讀操作 程序的運行界面 圖 4： 通過 頁面進(jìn)行文件的讀操作 程序的運行結(jié)果界面 1)、 程序設(shè)計中的主要思路及步驟： 本 頁面中采用的程序語言是 。程序主要功能是打開指定文件并把文件以 ASCII 碼的形式顯示出來。下面是程序設(shè)計中的一些主要步驟： i＞ 、 讀取文件中用 到的對象 StreamReader 在 中定義了一個讀取文件的對象 StreamReader，本程序就是通過這個對象完成對文件的讀取。然后以文本形式顯示出來。具體如下： Dim streamreaderobj As StreamReader file_name = 39。 讀出一個指定文件，并把他指派給 streamreader 對象 Do filecont = () ( filecont amp。 ＜ br＞ ) Loop Until filecont = 39。 一行一行讀出文件內(nèi)容，知道讀到一行內(nèi)容為空字符串的時候，才停止 39。 在讀操作完成以后，關(guān)閉 StreamReader 對象 ii＞ 、 在程序中所用到的 Form 的編碼應(yīng)該是 Multipart/FormData，不用他的缺省編碼。具體如下： ＜ form Method = Post EncType = Multipart/FormData runat = server ＞ ＜ /form ＞ 2)、 程序的源代碼： ＜ % @ Import Namespace = %＞ ＜ script language = vb runat = server ＞ Sub SendButton_Click ( sender as Object , e as EventArgs ) 39。 創(chuàng)建一個 StreamReader 對象 Dim streamreaderobj As StreamReader Dim file_name as String 39。 定義一個變量來保存從文件中讀出的內(nèi)容 Dim filecont As String streamreaderobj = ( file_name ) = false 39。 一行一行讀出文件內(nèi)容，知道讀到一行內(nèi)容為空字符串的時候，才停止 Do filecont = () 39。 利用 StreamReader 對象讀取文件 ( filecont amp。 ＜ br＞ ) 39。 顯示文件內(nèi)容 Loop Until filecont = 39。 在讀操作完成以后，關(guān)閉 StreamReader 對象 ( ＜ br＞ 以上就是 amp。 file_name amp。 文件的全部內(nèi)容！ ) End Sub ＜ /script＞ ＜ asp:panel id = panel1 runat = server ＞ ＜ form Method = Post EncType = Multipart/FormData runat = server ＞ ＜ p＞歡迎在 頁面對文件進(jìn)行讀操作＜ /p ＞ 請選擇文件名稱：＜ input type = file id = filename runat = server /＞ ＜ br ＞ ＜ asp:button id = Write Text = 讀文件 OnClick = SendButton_Click runat = server /＞ ＜ /form ＞ ＜ /asp:panel ＞ (三 )、通 過 頁面進(jìn)行文件寫操作： 本程序的運行界面如圖 5 所示： 圖 5： 通過 頁面進(jìn)行文件寫操作 程序運行界面 1)、 程序設(shè)計中的主要思路及步驟： 本 頁面中采用的程序語言是 。程序主要功能是建立一個文本形式的文件，這個文件名是可以讓使用者自行定義的，然后把使用者填入 的內(nèi)容保存在此文件中。下面是程序設(shè)計的主要步驟： i＞ 、 讀取文件中用到的對象 StreamWriter StreamWriter 也是由名稱空間 中定義的，主要用來寫入文件內(nèi)容。本程序中也通過他來完成文件寫操作的。對文件的寫操作相比較文件的讀操作來說較簡單。具體的步驟如下： Dim strwriterobj As StreamWriter Dim contxt as String file_name = contxt = 39。 其中 是要寫入文件的內(nèi)容 strwriterobj = ( file_name ) 39。 創(chuàng)建一個文件，并把此文本文件作為對象分派給 streamwriter 對象 ( contxt ) 39。 把文本內(nèi)容寫入文件中 39。關(guān)閉對象 ii＞ 、 上面主要完成的是對建立一個新文件，并寫入內(nèi)容。此時要寫入的文件如果已經(jīng)存在，程序就會清空原文件，然后再寫入新內(nèi)容。如果你所要完成的工作是對于已經(jīng)存在 的文件只是在文件尾部添加內(nèi)容，對于不存在的文件才建立和追加內(nèi)容。用以下語句替換，就可以了。 被替換語句： strwriterobj = ( file_name ) 替換成語句： strwriterobj = ( file_name ) 2)、 程序源代碼 ＜ % @ Import Namespace = %＞ ＜ script language = vb runat = server ＞ Sub SendButton_Click ( sender as Object, e as EventArgs ) 39。 定義一個 streamwriter 對象 Dim strwriterobj As StreamWriter Dim file_name as String Dim contxt as String 39。 創(chuàng)建一個文件，并把此文本文件作為對象分派給 streamwriter 對象 file_name = contxt = strwriterobj = ( file_name ) 39。 把文本內(nèi)容寫入文件中 ( contxt ) 39。關(guān)閉對象 ( 成功的進(jìn)行了文件寫操作！ ) = false End Sub ＜ /script＞ ＜ asp:panel id=panel1 runat=server ＞ ＜ form id=form1 runat=server ＞ ＜ p＞歡迎在 頁面對文件進(jìn)行寫操作＜ /p ＞ 請?zhí)钊胛募Q：＜ asp:textbox id = filename size = 40 runat = server /＞＜ br ＞ 請?zhí)钊雽懭雰?nèi)容：＜ asp:textbox id = Body TextMode = MultiLine Columns = 40 Rows = 10 runat = server /＞＜ br ＞ ＜ asp:button runat = server id = Write Text = 寫入文件 OnClick = SendButton_Click /＞ ＜ /form ＞ ＜ /asp:panel ＞ (四 )、 在 頁面中完成文件的拷貝、移動和刪除操作 在 中完成文件的拷貝、移動和刪除操作就更簡單了。這是因為在名 稱空間 中就定義了對文件進(jìn)行拷貝和移動的方法。直接調(diào)用這些方法就可以完成以上操作。下面給出文件拷貝、移動和刪除例子。 1） .文件拷貝操作 ＜ % @ Import Namespace = %＞ ＜ % 39。 下面語句完成文件拷貝工作 ( c:\ , c:\ ) ( 文件的拷貝工作已經(jīng)成功完成！ ) %＞ 2） .文件移動操作 ＜ % @ Import Namespace = %＞ ＜ % 39。 下面語句完成文件移動工作 ( c:\ , d:\ ) ( 文件的移動工作已經(jīng)成功完成！ ) %＞ 3） .文件刪除操作 ＜ % @ Import Namespace = %＞ ＜ % 39。 下面語句完成文件刪除工作 ( c:\ ) ( 文件的刪除工作已經(jīng)成功完成！ ) %＞