【文章內(nèi)容簡介】 郵件的。 它 的調(diào)用有 兩 種方式： i＞ 、 直接調(diào)用 對于 SmtpMail 對象 的 Send 方法只要有四個參數(shù)就可以完成調(diào)用，就是說，只要有四個正確的參數(shù)就能夠發(fā)送電子郵件了。具體調(diào)用格式如下： (“郵件源地址 ”,”郵件目標(biāo)地址 ”,”郵件主題 ”,”郵件內(nèi)容 ”) 但是這種調(diào)用過于簡單，只能滿足簡單郵件的發(fā)送，對于復(fù)雜的郵件，就要用第二 種 方法來調(diào)用： ii＞ 、 把 MailMessage 對象作為參數(shù)來調(diào)用，具體調(diào)用如下： (MailMessage) 由于 MailMessage 對象屬性多，所以這種調(diào)用可以使郵件內(nèi)容更加豐富，一 般采用這種方式來發(fā)送郵件。在下面的例子里面就是用這種調(diào)用方式。 (三 )、 設(shè)計(jì)思路及步驟： 首先要說明的是在此 程序里面我們用的程序語言是 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è)計(jì) 郵件發(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：利用 進(jìn)行文件處理 一種程序設(shè)計(jì)語言對文件處理的能力的大小往往 也是一種語言功能大小的一種表現(xiàn)。在 中，對于文件的處理主要是通過 .Net FrameWork SDK 中的一個 的名稱空間來實(shí)現(xiàn)了，在 名稱空間中定義了許多關(guān)于文件處理的類（ class）、方法和屬性，這些類、方法和屬性使得在很容易在 中進(jìn)行文件處理。由于在此名稱空間中有定義了許多類、方法和屬性，而這些不可能通過本文來一一介紹。 下面主要結(jié)合 一個具體的 例子來介紹對于文件處理的基本操作。 文件基本操作也就是我們平常經(jīng)常用到的。具體說就是對文件的讀、寫、拷貝、 移動、刪除。下面就這幾個操作來具體介紹一下。 (一 )、 程序設(shè)計(jì)及運(yùn)行環(huán)境 Windows 2021 Professional、 .Net FrameWork SDK Beta 2。 (二 )、 通過 頁面進(jìn)行文件的讀操作 本程序的運(yùn)行界面及運(yùn)行結(jié)果如圖 圖 4 所示： 圖 3： 通過 頁面進(jìn) 行文件的讀操作 程序的運(yùn)行界面 圖 4： 通過 頁面進(jìn)行文件的讀操作 程序的運(yùn)行結(jié)果界面 1)、 程序設(shè)計(jì)中的主要思路及步驟： 本 頁面中采用的程序語言是 。程序主要功能是打開指定文件并把文件以 ASCII 碼的形式顯示出來。下面是程序設(shè)計(jì)中的一些主要步驟： 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)行文件寫操作： 本程序的運(yùn)行界面如圖 5 所示： 圖 5： 通過 頁面進(jìn)行文件寫操作 程序運(yùn)行界面 1)、 程序設(shè)計(jì)中的主要思路及步驟： 本 頁面中采用的程序語言是 。程序主要功能是建立一個文本形式的文件，這個文件名是可以讓使用者自行定義的，然后把使用者填入 的內(nèi)容保存在此文件中。下面是程序設(shè)計(jì)的主要步驟： 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 ＞ (四 )、 在 頁面中完成文件的拷貝、移動和刪除操作 在 中完成文件的拷貝、移動和刪除操作就更簡單了。這是因?yàn)樵诿? 稱空間 中就定義了對文件進(jìn)行拷貝和移動的方法。直接調(diào)用這些方法就可以完成以上操作。下面給出文件拷貝、移動和刪除例子。 1） .文件拷貝操作 ＜ % @ Import Namespace = %＞ ＜ % 39。 下面語句完成文件拷貝工作 ( c:\ , c