【正文】 行環(huán)境，它管理代碼的執(zhí)行，使程序設(shè)計(jì)更為簡便。、郵件發(fā)送，以及文件操作等。但一般來說，免費(fèi)下載的第三方的組件都有某些方面的功能限制，若要購買正版的第三方組件，對于國內(nèi)的用戶，花銷也是一個(gè)不小的數(shù)字,就是能夠承擔(dān)的起，煩雜的手續(xù)也使很多人望而卻步。但用過這個(gè)組件的朋友們都有一種普遍的感覺，就是實(shí)在不好用。（一）、軟件編寫及運(yùn)行環(huán)境微軟公司W(wǎng)indows 2000 FrameWork SDK BETA2（微軟公司開發(fā)，）。（二）、軟件的基本功能本軟件主要完成上傳本地的文件到服務(wù)器的指定目錄的功能。在按 開始上傳 按鈕后，軟件就把選擇的文件上傳到指定的目錄中，然后返回上傳文件的信息，即文件的名稱，文件的大小及文件的類型。當(dāng)然你的瀏覽器也必須是IE 或者Netscape 。具體代碼如下：＜form method = post enctype = multipart/formdata runat = server ＞＜/form ＞＜三＞、獲得上傳的文件名稱及對磁盤的若干操作為了獲得上傳的文件名稱，必須要引入一個(gè)名稱空間（ NameSapce ） 。（1）、獲得上傳文件的名稱使用Path類中的GetFileName方法，具體如下：lstrFileName = 　　39。 去掉目錄信息，返回文件名稱（2）、判斷上傳目錄是否存在，不存在就建立建立目錄要使用到Directory類中的 CreateDirectory 方法，判斷目錄是否存在要用到 Directory 類中的Exists方法。 注：lstrFileFolder是用戶填入的目錄名稱，或者是缺省的目錄名稱＜四＞、上傳選定文件到服務(wù)器上在前面工作都已經(jīng)完成以后，就可以上傳文件了，上傳文件相對比較簡單，就用下面兩行語句就可以完成上傳工作。 lstrFileName 　39。上傳文件到服務(wù)器＜五＞、獲得并顯示上傳文件的屬性 = lstrFileName　39。獲得文件類型 = cStr ( ) 　39。顯示上傳文件屬性（四）、：＜% 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。 獲得上傳到服務(wù)器的目錄名稱　　if ＜＞ then 　　　lstrFileFolder = 　　else 　　　lstrFileFolder = c:\ 　　end if 　　39。 注： 返回的是　　　通過文件對話框選擇的文件名，這之中包含了文件的目錄信息　　lstrFileName = ( lstrFileName ) 　　　39。 判斷上傳目錄是否存在，不存在就建立 　　If ( not ( lstrFileFolder ) ) Then 　　　 ( lstrFileFolder ) 　　End If 　　　39。 lstrFileName 　　　39。 獲得并顯示上傳文件的屬性 　　 = lstrFileName　　　39。 獲得文件類型　　 = cStr ( ) 　　　39。 顯示上傳文件屬性　　End sub ＜/SCRIPT ＞＜ASP:panel id = FileUploadForm visible = true runat = server ＞ ＜form method = post enctype = multipart/formdata runat = server ＞?。糷1 ＞ ＜/h1 ＞　　請選擇上傳到服務(wù)器的文件名稱： 　＜input id = loFile type = file runat = server ＞ ＜br ＞　　請輸入上傳到服務(wù)器的目錄名稱： ?。糹nput id = dir type = text runat = server ＞ ＜br ＞?。糹nput type = submit value = 開始上傳 OnServerClick = 　　　 UploadFile_Clicked runat = server ＞　＜br ＞＜/form ＞＜/ASP:panel ＞＜ASP:panel id = AnswerMsg visible = false runat = server ＞　 ＜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ù)雜的工作。（一）、運(yùn)行環(huán)境 微軟公司W(wǎng)indows 2000 FrameWork SDK BETA2。 一、先來簡要的認(rèn)識一下在程序中要用到的協(xié)議——簡單郵件傳輸協(xié)議（Simple Mail Transfer Protocol）——SMTP， SMTP服務(wù)器是用來發(fā)送郵件和中轉(zhuǎn)郵件。POP3服務(wù)器是用來接收郵件的，我們帳戶上的郵件就是保存在此類的服務(wù)器上。 二、接著我們來了解一下我們在程序中用到的名稱空間（NameSpace）。其中SmtpMail是設(shè)定SMTP服務(wù)器，由他來選定用什么服務(wù)器來發(fā)送郵件。 （2）、屬性 ，也最為重要，下表就是他最主要的屬性，這些屬性都和我們的發(fā)送郵件直接相關(guān)： 屬性名稱代表意義From 源地址To目的地址 Subject 郵件主題 Priority 郵件優(yōu)先級(High, Low, Normal ) Attachments附件Bcc 暗送地址 Cc 抄送地址Body 郵件內(nèi)容主體 Bodyformat郵件格式(Html，Text) Bodyencoding 郵件編碼(Base64, UUencode)（3）、方法 ，程序中就是通過調(diào)用他來發(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ā)送郵件。 (三)、設(shè)計(jì)思路及步驟： 程序里面我們用的程序語言是Visual Basic .NET。定義SMTP服務(wù)器的名稱 ＜br＞＜br＞= ＜br＞＜br＞39。定義郵件的接收地址 ＜br＞＜br＞ =majinhu ＜br＞＜br＞39。定義郵件的抄送地址 ＜br＞＜br＞=majinhu ＜br＞＜br＞39。定義郵件的主體 ＜br＞＜br＞ = 這里是郵件的主體！ ＜br＞＜br＞39。定義郵件的有限級 ＜br＞＜br＞ = ＜br＞＜br＞39。 FrameWork ，（class）、方法和屬性，這些類、。下面主要結(jié)合一個(gè)具體的例子來介紹對于文件處理的基本操作。具體說就是對文件的讀、寫、拷貝、移動、刪除。(一)、程序設(shè)計(jì)及運(yùn)行環(huán)境Windows 2000 Professional、.Net FrameWork SDK Beta 2。程序主要功能是打開指定文件并把文件以ASCII碼的形式顯示出來。然后以文本形式顯示出來。 讀出一個(gè)指定文件，并把他指派給streamreader對象Do　filecont = () 　( filecont amp。 一行一行讀出文件內(nèi)容，知道讀到一行內(nèi)容為空字符串的時(shí)候，才停止39。具體如下：＜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。 定義一個(gè)變量來保存從文件中讀出的內(nèi)容Dim filecont As String streamreaderobj = ( file_name ) = false39。 利用StreamReader對象讀取文件 　( filecont amp。 顯示文件內(nèi)容Loop Until filecont = 　39。 file_name amp。程序主要功能是建立一個(gè)文本形式的文件，這個(gè)文件名是可以讓使用者自行定義的，然后把使用者填入的內(nèi)容保存在此文件中。本程序中也通過他來完成文件寫操作的。具體的步驟如下：Dim strwriterobj As StreamWriter Dim contxt as Stringfile_name = contxt = 39。 創(chuàng)建一個(gè)文件，并把此文本文件作為對象分派給 streamwriter對象( contxt ) 39。關(guān)閉對象 ii＞、上面主要完成的是對建立一個(gè)新文件，并寫入內(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。 創(chuàng)建一個(gè)文件，并把此文本文件作為對象分派給 streamwriter對象file_name = contxt = strwriterobj = ( file_name ) 39。關(guān)閉對象 ( 成功的進(jìn)行了文件寫操作！ ) = falseEnd Sub＜/script＞＜asp:panel id=panel1 runat=server ＞＜form id=form1 runat=server ＞＜p＞＜/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 ＞(四)、移動和刪除操作、移動和刪除操作就更簡單了。直接調(diào)用這些方法就可以完成以上操作。1）.文件拷貝操作＜% Import Namespace = %＞＜%39。 下面語句完成文件移動工作 ( c:\ , d:\ ) ( 文件的移動工作已經(jīng)成功完成！ )%＞3）.文件刪除操作＜% Import Namespace = %＞＜%39。其最基本的功能就是能夠?yàn)g覽或者查詢自己感興趣的主題、發(fā)表新的主題、對于已發(fā)表的主題闡述自己的觀點(diǎn)；除此之外，互動留言簿系統(tǒng)還應(yīng)具備良好的管理和信息統(tǒng)計(jì)、分析的功能。互動留言簿系統(tǒng)的頁面能夠體現(xiàn)文章總數(shù)量、訪問者的ip地址、當(dāng)前頁數(shù)、發(fā)表的時(shí)間等等。互動留言簿系統(tǒng)總體流程圖如圖6所示：客戶端發(fā)出請求數(shù)據(jù)庫存取服務(wù)器端進(jìn)行處理客戶端輸出結(jié)果圖6：互動留言簿系統(tǒng)總體流程圖互動留言簿系統(tǒng)實(shí)體及其屬性的分析實(shí)體名稱屬性訪問用戶昵稱　性別 電子郵件 qq 主頁地址 表情　來自哪里　個(gè)性化圖片 超級管理姓名　密碼 文章主題/標(biāo)題 作者 發(fā)表時(shí)間 內(nèi)容 最后回復(fù) 互動留言簿系統(tǒng)ER圖姓名管理員密碼管理個(gè)性圖片主頁地址IP地址主頁地址表情電子郵件qq昵稱性別用戶 發(fā)表 內(nèi)容主/標(biāo)題