【正文】 理功能才能保障互動(dòng)留言簿系統(tǒng)健康持續(xù)的發(fā)展，符合設(shè)立互動(dòng)留言簿系統(tǒng)的初衷。 下面語句完成文件刪除工作 ( c:\ ) ( 文件的刪除工作已經(jīng)成功完成！ ) %＞ 客戶端發(fā)出請求 第三章 互動(dòng)留言簿系統(tǒng)分析 互動(dòng)留言簿系統(tǒng)作為一種網(wǎng)上進(jìn)行的信息共享和交流的空間。 下面語句完成文件拷貝工作 ( c:\ , c:\ ) ( 文件的拷貝工作已經(jīng)成功完成！ ) %＞ 2） .文件移動(dòng)操作 ＜ % Import Namespace = %＞ ＜ % 39。下面給出文件拷貝、移動(dòng)和刪除例子。這是因?yàn)樵诿? 稱空間 中就定義了對文件進(jìn)行拷貝和移動(dòng)的方法。 把文本內(nèi)容寫入文件中 ( contxt ) 39。 定義一個(gè) streamwriter 對象 Dim strwriterobj As StreamWriter Dim file_name as String Dim contxt as String 39。用以下語句替換，就可以了。此時(shí)要寫入的文件如果已經(jīng)存在，程序就會(huì)清空原文件，然后再寫入新內(nèi)容。 把文本內(nèi)容寫入文件中 39。 其中 是要寫入文件的內(nèi)容 strwriterobj = ( file_name ) 39。對文件的寫操作相比較文件的讀操作來說較簡單。下面是程序設(shè)計(jì)的主要步驟： i＞ 、 讀取文件中用到的對象 StreamWriter StreamWriter 也是由名稱空間 中定義的，主要用來寫入文件內(nèi)容。 文件的全部內(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ì)中的主要思路及步驟： 本 頁面中采用的程序語言是 。 在讀操作完成以后，關(guān)閉 StreamReader 對象 ( ＜ br＞ 以上就是 amp。 ＜ br＞ ) 39。 一行一行讀出文件內(nèi)容，知道讀到一行內(nèi)容為空字符串的時(shí)候，才停止 Do filecont = () 39。 創(chuàng)建一個(gè) StreamReader 對象 Dim streamreaderobj As StreamReader Dim file_name as String 39。 在讀操作完成以后，關(guān)閉 StreamReader 對象 ii＞ 、 在程序中所用到的 Form 的編碼應(yīng)該是 Multipart/FormData，不用他的缺省編碼。 ＜ br＞ ) Loop Until filecont = 39。具體如下： Dim streamreaderobj As StreamReader file_name = 39。下面是程序設(shè)計(jì)中的一些主要步驟： i＞ 、 讀取文件中用 到的對象 StreamReader 在 中定義了一個(gè)讀取文件的對象 StreamReader，本程序就是通過這個(gè)對象完成對文件的讀取。 (二 )、 通過 頁面進(jìn)行文件的讀操作 本程序的運(yùn)行界面及運(yùn)行結(jié)果如圖 圖 4 所示： 圖 3： 通過 頁面進(jìn) 行文件的讀操作 程序的運(yùn)行界面 圖 4： 通過 頁面進(jìn)行文件的讀操作 程序的運(yùn)行結(jié)果界面 1)、 程序設(shè)計(jì)中的主要思路及步驟： 本 頁面中采用的程序語言是 。下面就這幾個(gè)操作來具體介紹一下。 文件基本操作也就是我們平常經(jīng)常用到的。由于在此名稱空間中有定義了許多類、方法和屬性，而這些不可能通過本文來一一介紹。給發(fā)送的郵件附加上一個(gè)附件，請確定在 C 盤的根目錄下有 文件 ＜ br＞ ＜ br＞ (new MailAttachment(c:\)) ＜ br＞ ＜ br＞ (mailObj) ＜ br＞ ＜ br＞ End Sub ＜ br＞ ＜ br＞ ＜ /SCRIPT＞ 例 3：利用 進(jìn)行文件處理 一種程序設(shè)計(jì)語言對文件處理的能力的大小往往 也是一種語言功能大小的一種表現(xiàn)。郵件以 HTML 的格式發(fā)送 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的主題 ＜ br＞ ＜ br＞ = 我的郵件系統(tǒng)，歡迎使用！ ＜ br＞ ＜ br＞ 39。定義郵件的暗送地址 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的發(fā)送地址 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。 第一步：要包括名稱空間 ，加入在程序中使用的程序語言類型： 第二步：初始化 SmtpMail、 MailMessage 對象： Dim mailObj AS new MailMessage Dim smtp AS new SmtpMail ?定義 SMTP 服務(wù)器的名稱 = ?定義郵件的發(fā)送地址 = “” ?定義郵件的接收地址 =” ” ?定義郵件的暗送地址 =”” ?定義郵件的抄送地址 =”” ?定義郵件的主題 = 我的郵 件系統(tǒng)，歡迎使用！ ?定義郵件的主體 = 這里是郵件的主體！ ?郵件以 HTML 的格式發(fā)送 = ?定義郵件的有限級(jí)，在此設(shè)定為高 = ?給發(fā)送的郵件附加上一個(gè)附件 (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。在下面的例子里面就是用這種調(diào)用方式。 它 的調(diào)用有 兩 種方式： i＞ 、 直接調(diào)用 對于 SmtpMail 對象 的 Send 方法只要有四個(gè)參數(shù)就可以完成調(diào)用，就是說，只要有四個(gè)正確的參數(shù)就能夠發(fā)送電子郵件了。 MailMessage 是三個(gè)對象中內(nèi)容最豐富的，大量的屬性包裝成我們現(xiàn)在的郵件構(gòu)成要件， MailAttachment 對象則對應(yīng)著郵件中的附件。在這個(gè)大的類庫里面提供了關(guān)于郵件發(fā)送的豐富的對象、屬性、方法，接下來就簡要介紹一下各個(gè)對象、屬性和方法的具體用法： （ 1） 、 對象 在 名稱空間里面用來發(fā)送郵件的對象主要有三個(gè)，分別是 SmtpMail、MailMessage、 MailAttachment。由于我們在本文中只是介紹發(fā)送郵件，所以涉及的只是 SMTP。寫到這也要提一下他的姐妹兄弟郵局協(xié)議 3（ PostOffice Protocol 3） ——POP3。 （ 二 ）、 基本知識(shí) 首先介紹一下做郵件發(fā)送系統(tǒng)中用到的一些知識(shí)。 下面 我們就 通過一個(gè)例子來介紹如何利用 做一個(gè)郵件發(fā)送系統(tǒng)。 顯示上傳文件屬性 End sub ＜ /SCRIPT ＞ ＜ ASP:panel id = FileUploadForm visible = true runat = server ＞ ＜ form method = post enctype = multipart/formdata runat = server ＞ ＜ h1 ＞ 歡迎使用 頁面實(shí)現(xiàn)文件上傳 ＜ /h1 ＞ 請選擇上傳到服務(wù)器的文件名稱： ＜ input id = loFile type = file runat = server ＞ ＜ br ＞ 請輸入上傳到服務(wù)器的目錄名稱： ＜ input id = dir type = text runat = server ＞ ＜ br ＞ ＜ input type = submit value = 開始上傳 OnServerClick = UploadFile_Clicked runat = server ＞ ＜ br ＞ ＜ /form ＞ ＜ /ASP:panel ＞ ＜ ASP:panel id = AnswerMsg visible = false runat = server ＞ 謝謝使用 頁面實(shí)現(xiàn)文件上傳 ＜ br ＞ 成功上傳 ＜ ASP:label id = FileName runat = server /＞ ＜ br ＞ 文件大小 ＜ ASP:label id = FileLength runat = server /＞ 字節(jié) ＜ br ＞ 文件類型 ＜ ASP:label id = FileType runat = server /＞ ＜ br ＞ ＜ /ASP:panel ＞ ＜ /BODY ＞ ＜ /HTML ＞ 例 2：利 用 設(shè)計(jì) 郵件發(fā)送系統(tǒng) 用 ASP 來做一個(gè)郵件發(fā)送系統(tǒng)是一個(gè)比較復(fù)雜的工作。 獲得文件類型 = cStr ( ) 39。 獲得并顯示上傳文件的屬性 = lstrFileName 39。 lstrFileName 39。 判斷上傳目錄是否存在，不存在就建立 If ( not ( lstrFileFolder ) ) Then ( lstrFileFolder ) End If 39。 注： 返回的是 通過文件對話框選擇的文件名，這之中包含了文件的目錄信息 lstrFileName = ( lstrFileName ) 39。 獲得上傳到服務(wù) 器的目錄名稱 if ＜＞ then lstrFileFolder = else lstrFileFolder = c:\ end if 39。顯示上傳文件屬性 （ 四 ） 、利用 設(shè)計(jì) FTP 文件上傳 程序 的 源代碼： ＜ % Import Namespace= %＞ ＜ html ＞ ＜ BODY ＞ ＜ SCRIPT LANGUAGE = VB RUNAT = SERVER ＞ Sub UploadFile_Clicked ( Sender as Object, e as EventArgs ) Dim lstrFileName as string Dim lstrFileNamePath as string Dim lstrFileFolder as string 39。獲得文件類型 = cStr ( ) 39。上傳文件到服務(wù)器 ＜五＞ 、 獲得并顯示上傳文件的屬性 = lstrFileName 39。 lstrFileName 39。 注： lstrFileFolder 是用戶填入的目錄名稱，或者是缺省的目錄名稱 ＜四＞ 、 上傳選定 文件到服務(wù)器上 在前面工作都已經(jīng)完成以后，就可以上傳文件了，上傳文件相對比較簡單，就用下面 兩行語句就可以完成上傳工作。 去掉目錄信息，返回文件名稱 （ 2） 、 判斷上傳目錄是否存在，不存在就建立 建立目錄要使用到 Directory 類中的 CreateDirectory 方法，判斷目錄是否存在要用到 Directory 類中的 Exists 方法。 （ 1） 、 獲得上傳文件的名稱 使用 Path 類中的 GetFileName 方法，具體如下：