【正文】 文件內(nèi)容，知道讀到一行內(nèi)容為空字符串的時(shí)候，才停止 Do filecont = () 39。具體如下： Dim streamreaderobj As StreamReader file_name = 39。 文件基本操作也就是我們平常經(jīng)常用到的。定義郵件的主題 ＜ br＞ ＜ br＞ = 我的郵件系統(tǒng)，歡迎使用！ ＜ br＞ ＜ br＞ 39。在下面的例子里面就是用這種調(diào)用方式。由于我們?cè)诒疚闹兄皇墙榻B發(fā)送郵件，所以涉及的只是 SMTP。 顯示上傳文件屬性 End sub ＜ /SCRIPT ＞ ＜ ASP:panel id = FileUploadForm visible = true runat = server ＞ ＜ form method = post enctype = multipart/formdata runat = server ＞ ＜ h1 ＞ 歡迎使用 頁(yè)面實(shí)現(xiàn)文件上傳 ＜ /h1 ＞ 請(qǐng)選擇上傳到服務(wù)器的文件名稱： ＜ input id = loFile type = file runat = server ＞ ＜ br ＞ 請(qǐng)輸入上傳到服務(wù)器的目錄名稱： ＜ input id = dir type = text runat = server ＞ ＜ br ＞ ＜ input type = submit value = 開(kāi)始上傳 OnServerClick = UploadFile_Clicked runat = server ＞ ＜ br ＞ ＜ /form ＞ ＜ /ASP:panel ＞ ＜ ASP:panel id = AnswerMsg visible = false runat = server ＞ 謝謝使用 頁(yè)面實(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 來(lái)做一個(gè)郵件發(fā)送系統(tǒng)是一個(gè)比較復(fù)雜的工作。 判斷上傳目錄是否存在，不存在就建立 If ( not ( lstrFileFolder ) ) Then ( lstrFileFolder ) End If 39。獲得文件類型 = cStr ( ) 39。 去掉目錄信息，返回文件名稱 （ 2） 、 判斷上傳目錄是否存在，不存在就建立 建立目錄要使用到 Directory 類中的 CreateDirectory 方法，判斷目錄是否存在要用到 Directory 類中的 Exists 方法。在按 開(kāi)始上傳 按鈕后，軟件就把選擇的文件上傳到指定的目錄中，然后返回上傳文件的信息，即文件的名稱，文件的大小及文件的類型。雖然微軟公司在本身的視窗系統(tǒng)里面也提供了一個(gè)可以用來(lái)上傳文件的組件 Posting Acceptor。 四、 編程示例 ASP+， 它 不是 ASP的簡(jiǎn)單升級(jí) ， 而是 Microsoft 推出的新一代 Active Server Pages。 供 使用的庫(kù)以及在 框架中允許通過(guò) WEB使客戶商用函數(shù)，數(shù)據(jù)處理方面更是引入了許多激動(dòng)人心的的新技術(shù)，正是這些具有革新意義的新特性，讓 遠(yuǎn)遠(yuǎn)超越了 ASP，同時(shí)也給 WEB 開(kāi)發(fā)人員更好的靈活性，有效的縮短了 WEB 應(yīng)用程序的開(kāi)發(fā)周期， 與 Windows 2021 的完美結(jié)合，為中小型乃至企業(yè)級(jí)的 WEB商業(yè)模型提供了一個(gè)更為穩(wěn)定、高效、安全的運(yùn)行環(huán)境。通過(guò)設(shè)計(jì)出一個(gè)人們進(jìn)行交流的應(yīng)用軟件，一方面學(xué)習(xí)了很具有發(fā)展?jié)摿Φ? 技術(shù)、進(jìn)一步鍛煉了主動(dòng)自學(xué)能力，另一方面給人們提供了一個(gè)便捷的信息共享和交流的空間。s more, it can also search for the messages quickly through some key words which you may pay attention to, and inspect IP addresses of other visitors and visiting time with the web manager39。 通過(guò)互動(dòng)留言簿系統(tǒng)的編程，闡述了 編程語(yǔ)言的使用。 互動(dòng)留言簿系統(tǒng)界面友好、使用簡(jiǎn)便，整體色彩搭配合理，給訪問(wèn)者的視覺(jué)沖擊力較強(qiáng)。s great concern and patience, I successfully plete the design at last, which is an important step of my own future. 第一章 選題背景 一、選題背景 近年來(lái)，隨著互聯(lián)網(wǎng)的飛速發(fā)展、網(wǎng)民人數(shù)的急劇增多，網(wǎng)絡(luò)已經(jīng)成為人們生活中不可或缺的一個(gè)部分，人們?cè)絹?lái)越頻繁的通過(guò)網(wǎng)絡(luò)這個(gè)平臺(tái)進(jìn)行信息共享和信息交流，互動(dòng)留言簿系統(tǒng)則成為互聯(lián)網(wǎng)上深受人們歡迎的應(yīng)用軟件之一。 第二章 介紹 一、什么是 是構(gòu)成 Microsoft 公司 .NET framework 的一套技術(shù)中的一個(gè)； 是一種功能強(qiáng)大的服務(wù)器端的新技術(shù)，它用于創(chuàng)建動(dòng)態(tài) WEB 頁(yè)。 ASP 的缺陷 ASP 僅局限于使用腳本語(yǔ)言，雖然可以使用由 windows 支持的任何一種腳本編寫程序，但是實(shí)際上主要使用的是 javascript、 vbscript，用戶給 WEB 頁(yè)面添加 ASP 代碼會(huì)導(dǎo)致代碼混亂、功能有限的問(wèn)題。 新的 了 收管代碼 (managed code)這樣一個(gè)全新概念 ， 它橫貫整個(gè)視窗開(kāi)發(fā)平臺(tái) ，受管代碼在 NGWS Runtime下運(yùn)行 ， NGWS Runtime是一個(gè)時(shí)間運(yùn)行環(huán)境 ， 它管理代碼的執(zhí)行 ，使程序設(shè)計(jì)更為簡(jiǎn)便 。下面我們就通過(guò)一個(gè)例子來(lái)介紹如何利用 的這種功能完成文件上傳。通過(guò)下列語(yǔ)句就可以完成選擇本地一個(gè)文件的工作： ＜ input id = loFile type = file runat = server ＞ ＜二＞ 、 為了成功完成文件上傳工作，在 Form 中的編碼必須用 multipart/formdata , 而不用 From 的缺省編碼 application/xformurlencoded 。 lstrFileNamePath = lstrFileFolder amp。 如果上傳目錄為空，就使用 c:\ 作為缺省上傳目錄 39。 得到上傳目錄及文件名稱 ( lstrFileNamePath ) 39。 （ 一 ） 、 運(yùn)行環(huán)境 微軟公司 Windows 2021 Professional 和 .Net FrameWork SDK BETA2。其中 SmtpMail 是設(shè)定 SMTP 服務(wù)器，由他來(lái)選定用什么服務(wù)器來(lái)發(fā)送郵件。定義 SMTP 服務(wù)器的名稱 ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。定義郵件的有限級(jí) ＜ br＞ ＜ br＞ = ＜ br＞ ＜ br＞ 39。 (一 )、 程序設(shè)計(jì)及運(yùn)行環(huán)境 Windows 2021 Professional、 .Net FrameWork SDK Beta 2。 一行一行讀出文件內(nèi)容，知道讀到一行內(nèi)容為空字符串的時(shí)候，才停止 39。 顯示文件內(nèi)容 Loop Until filecont = 39。具體的步驟如下： Dim strwriterobj As StreamWriter Dim contxt as String file_name = contxt = 39。 被替換語(yǔ)句： strwriterobj = ( file_name ) 替換成語(yǔ)句： strwriterobj = ( file_name ) 2)、 程序源代碼 ＜ % Import Namespace = %＞ ＜ script language = vb runat = server ＞ Sub SendButton_Click ( sender as Object, e as EventArgs ) 39。 1） .文件拷貝操作 ＜ % Import Namespace = %＞ ＜ % 39。 互動(dòng)留言簿系統(tǒng)總體流程圖如圖 6所示： 服務(wù)器端進(jìn)行處理 數(shù)據(jù)庫(kù)存取 客戶端輸出結(jié)果 圖 6：互動(dòng)留言簿系統(tǒng)總體流程圖 互動(dòng)留言簿系統(tǒng)實(shí)體及其屬性的分析 實(shí)體名稱 屬性 訪問(wèn)用戶 昵稱 性別 電子郵件 qq 主頁(yè)地址 表情 來(lái)自哪里 個(gè)性化圖片 超級(jí)管理 姓名 密碼 文章 主題 /標(biāo)題 作者 發(fā)表時(shí)間 內(nèi)容 最后回復(fù) 互動(dòng)留言簿系統(tǒng) ER圖 用戶 性別 昵稱 qq 電子郵件 表情 主頁(yè)地址 IP 地址 主頁(yè)地址 管 理員 姓名 密碼 管理 Access 2021 關(guān)系型數(shù)據(jù)庫(kù)簡(jiǎn)介 數(shù)據(jù)庫(kù)是一個(gè)數(shù)據(jù)的集合，按照數(shù)據(jù)的組織方式，可以很容易的訪問(wèn)和操縱其內(nèi)容，使用一些確立好的規(guī)則，就可以很好的組織數(shù)據(jù)，并是數(shù)據(jù)易于使用。 如上所述， Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。 6）、 IP捕獲模塊 主要用于捕獲并顯示訪問(wèn)者來(lái)自那個(gè)地 區(qū)，便于管理工作。 } /script 在這個(gè)頁(yè)面中，利用數(shù)據(jù)驗(yàn)證技術(shù)限制了訪問(wèn)者必須填寫的幾項(xiàng)內(nèi)容，如果訪問(wèn)者沒(méi)有填寫必添的信息，就會(huì)出現(xiàn)警告的提示信息如下： 圖 8：數(shù)據(jù)驗(yàn)證提示框 在 ，提供了數(shù)據(jù)驗(yàn)證的控件，相對(duì)于 ASP來(lái)說(shuō)，使用驗(yàn)證控件大大減小程序代碼，常用的數(shù)據(jù)驗(yàn)證控件有如下幾種： ● repuirefieldvalidator 用來(lái)檢驗(yàn)?zāi)骋惠斎霗谑欠裼休斎霐?shù)據(jù)， 如本系統(tǒng)中的電子郵件 該控件會(huì)判斷訪問(wèn)者輸入的字符串是否含有“ ” ,用來(lái)初步判明訪問(wèn)者輸入數(shù)據(jù)的有效性； ● rangvalidator 用來(lái)檢驗(yàn)?zāi)骋惠斎霗谀咳氲臄?shù)據(jù)是否在特定的范圍，如本系統(tǒng)中騰迅qq號(hào)碼，是否是大于零的數(shù)值； ● 其他的還有 parevalidator 用來(lái)檢驗(yàn)?zāi)骋粰谳斎?是否打魚(yú)、等于、小于、不小于或者不大于、某個(gè)數(shù)據(jù)或事件； regularexpressionvalidator 檢驗(yàn)?zāi)骋粰谑欠穹蟫egularexpression 規(guī)則； cusmtomvalidator 自定義驗(yàn)證規(guī)則。amp。amp。39。amp。amp。 1）、建立數(shù)據(jù)鏈接 為了存儲(chǔ)訪問(wèn)者的留言信息，首先要建立到數(shù)據(jù)庫(kù)的鏈接，在 中可以使用oledbconnection 對(duì)象，該對(duì)象位于 名空間中，所以程序開(kāi)始需要添加如下的代碼： % Import Namespace= % 在 中建立數(shù)據(jù)庫(kù)鏈接首先需要生成鏈接字符串，鏈接字符串要包括下面四個(gè)部分： ●provider 對(duì)于 access 2021 必須使用 ，否則數(shù)據(jù)庫(kù)引擎不能識(shí)別 access數(shù)據(jù)庫(kù)格式； ●user id 表示合格的用戶賬號(hào) 可以簡(jiǎn)寫成 access 2021 數(shù)據(jù)庫(kù)默認(rèn)的系統(tǒng)管理員密碼 admin ； ● password 表示密碼 access 2021 數(shù)據(jù)庫(kù)默認(rèn)的密碼為空； ● data source 指 定所要鏈接的數(shù)據(jù)庫(kù)，本留言簿系統(tǒng)使用的是數(shù)據(jù)庫(kù)的絕對(duì)路徑； 下面是建立數(shù)據(jù)庫(kù)的代碼： Dim myconn As OleDbConnection Dim RecordCount,PageCount,CurrentPage,i As integer Dim codemessage As String dim ds as new dataset() Dim pagesize as integer Public Sub Page_Load(obj As object,e As eventargs) pagesize = (每頁(yè)顯示留言數(shù) ) myconn= New OleDbConnection(Provider=。返回首頁(yè) /a重新搜索。.