【正文】 致謝感謝 參考文獻 [1] 藏楊秦東 李育龍 ASP 軟件工程案例精解 []. 電子工業(yè)出版社 [2] 李陶深網(wǎng)絡(luò)數(shù)據(jù)庫 [] . 重慶大學(xué)出版社 [3] 孟凡奇 陳慶平 呂偉 ASP 程序設(shè)計基礎(chǔ)[]. 上海交通大學(xué)出版社 [4] 頊宇峰 ASP +Access典型網(wǎng)站建設(shè)案例 []. 清華大學(xué)出版社 [5] 明日科技 ASP程序開發(fā)范例 []. 人民郵電出版社 [6] 明日科技 ASP 數(shù)據(jù)庫系統(tǒng)開發(fā)案例精選 []. 人民郵電出版社 [7] 于鵬 VBScript/ASP 網(wǎng)頁設(shè)計語言教程 []. 電子工業(yè)出版社 [8] 劉好增 ASP 動態(tài)網(wǎng)站開發(fā)實踐教程 []. 清華大學(xué)出版社 [9] 龍馬工作室 ASP + Access 網(wǎng)站開發(fā)實例精講 []. 人民郵電出版社 [10] 尚俊杰 秦衛(wèi)中網(wǎng)絡(luò)程序設(shè)計 ASP案例教程 []. 清華大學(xué)出版社 [11] 趙松濤 ASP動態(tài)網(wǎng)站開發(fā)實錄 []. 電子工業(yè)出版社 [12] 叢書編委會 ASP 動態(tài)網(wǎng)頁編程 []. 清華大學(xué)出版社 [13] 郭瑞軍 李杰 初曉 ASP 數(shù)據(jù)庫開發(fā)實例精粹 []. 電子工業(yè)出版社 [14] 薛小龍 ASP 典型系統(tǒng)實戰(zhàn)與解析 []. 電子工業(yè)出版社 [15] 張海蕃軟件工程導(dǎo)論 []. 清華大學(xué)出版社 I 新聞發(fā)布及管理系統(tǒng) 新聞類別管理 新聞發(fā)布及管理 新聞查 看瀏覽 新聞查詢模塊 網(wǎng)友評論模塊 系統(tǒng)用戶管理 發(fā)表網(wǎng)友評論 新聞查詢管理 新聞信息修改 基本信息發(fā)布 數(shù)據(jù)庫 新聞類別管理 后臺系統(tǒng) 前臺系統(tǒng) 普通用戶 Admin 用戶 修改自身信息 創(chuàng)建、修改、刪除普通用戶信息 修改 Admin 用戶密碼碼 系統(tǒng)用戶信息管理 普通用戶 Admin 管理自己的信息 新聞發(fā)布，自己發(fā)布的新聞的管理 管理所有用戶的信息 管理新聞類別，發(fā)布信息，所有新聞信息的管理 失敗重試 用戶登錄 開始 。在這次中讓我看到了現(xiàn)代科技在生活中的重要地位，技術(shù)在不斷的日新月異。學(xué)習(xí)并實踐了網(wǎng)頁制作、 Web 服務(wù)器安裝、網(wǎng)絡(luò)數(shù)據(jù)庫操作、程序設(shè)計等多種實用技術(shù)，成功設(shè)計出一個功能基本齊全的系統(tǒng)。 總 結(jié)經(jīng) 過三個多月的努力，畢業(yè)設(shè)計和論文終于做完了，在此期間有過很多失敗和快樂的心情，學(xué)習(xí)到了許多以前沒有學(xué)好的知識。 等等。只要將此服務(wù)器復(fù)制到源代碼目錄下，運行就可以了，默認(rèn)主頁： 。 圖 詳細配置 使用 軟件 AWS 即 Asp Web Server 的縮寫，是一款功能極為強大卻僅有 數(shù)百 KB 大小的純綠色軟件，同時也是一款基于 box 開發(fā)的 asp web 服務(wù)器，其功能強大，基本上能夠取代 IIS 成為廣大 Asp 程序員和網(wǎng)站開發(fā)者的利器和必備武器之一。名稱與Web 根目錄同名。 創(chuàng)建 ASP 應(yīng)用程序的具體步驟為： 打開 IIS 服務(wù)器，進入 Web 根目錄。 一個 ASP 應(yīng)用程序必須使用一個公用的目錄結(jié)構(gòu)，該目錄包含了網(wǎng)站使用的所有頁面。 圖 IIS 配置 因為在線新聞發(fā)布系統(tǒng)的各個系統(tǒng)模塊里都使用的 ASP 的 Session（會話）對象和 Application（應(yīng)用程序）對象。本系統(tǒng)使用了 Microsoft 的 IIS 作為系統(tǒng)服務(wù)器。 Trim UserId Set rsUser sql If NOT Then GetUserName rsUser Ename Else GetUserName 無名 End If End Function % 這里使用 GetuserName 函數(shù)的作用是取得新聞提交人的姓名，并在查詢結(jié)果中顯示。根據(jù)用戶名讀取用戶姓名 Function GetUserName UserId Dim RsUser,sql Set RsUser sql SELECT * FROM Users WHERE UserName 39。它的主要功能是根據(jù)用戶提交的查詢條件生成 SELECT語句，并以表格的形式顯示 查詢結(jié)果。 這段程序?qū)⑴袛嘤脩糨斎氲牟樵儣l件是否為空，并使用自定義函數(shù) IsDate 驗證日期是否有效。 fs 。 return false 。 // 檢查日期格式是否正確 if 0 if !isDate fe alert 開始日期 格式不正確，請重新輸入！ 。 。amp。amp。 在 中，定義“開始”按鈕的代碼如下： input type submit value 開始 language javascript name tijiao onclick return button2_onclick 當(dāng)用戶單擊“開始”按鈕時，將觸發(fā) onclick 事件，并執(zhí)行。 else return true 。 else Days 29。amp。 else if m 2 if y % 4 0 Days 28。 else if !isBetween m, 1, 12 return false 。 if isInt m false || isInt d false || isInt y false return false 。 var d the2nd+1, 。 else var y 0,the1st 。 。 var the2nd 39。39。程序?qū)?val 與 lo、 hi 進行比較 ，如果 val 的值不在它們之間，則返回 false，否則返回 true。 else return true 。如果上述情況都沒有返回 false，則返回true。 參數(shù) theStr 表示要判斷的字符串。 break。 i 。 if isEmpty theStr flag false。 /^表示正則表達式的開始， $/表示正則表達式的結(jié)束， [0． 9]表示以 0～ 9的數(shù)字為開始和結(jié)束， 1,20 表示長度為 1～ 20。正則表達式作為一個模板，將某個字符模式與所搜索的字符串進行匹配。變量 patrn 是一個正則表達式，正則表達式是由普通字符以及特殊字符組成的文 字模式。 2． IsDigital 函數(shù) IsDigital 函數(shù)的功能是判斷字符串是否是數(shù)字類型，代碼如下： function isDigit s var patrn /^[09] 1,20 $/。 else return false 。為了驗證用戶錄入數(shù)據(jù)的有效性，在 中定義了一些函數(shù)，下面介紹這些函內(nèi)容。為了方便使用，本站中設(shè)計了新聞管理功能。 在 DELETE 語句中使用 WHERE? in?字句的功能是刪除新聞編號列表 IDS 中出現(xiàn)的所有的新聞。 sql % script language JavaScript alert 成功刪除！ 。 的主要代碼如下： % Dim ids ids id sql DELETE FROM News WHERE id in amp。這與刪除新聞類別時的操作相似，所以在 中，也定義了操作復(fù)選框的函數(shù)，包括選擇全部復(fù)選框的sltAll 和清除全部選擇的 sltNull 和生成并提交刪除編號列表的 SelectChk 等。 的顯示界面與 相似，處理過程也有相同之處。 WHERE Id amp。 rqtContent amp。 Content 39。 CInt Request Cate amp。 39。 amp。 attpic amp。39。 amp。設(shè)置附圖標(biāo)記 If attpic Then attpic 1 Else attpic 0 End If 39。替換新聞標(biāo)題中的半角單引號 Dim title title title title replace title,39。替換函數(shù) rqtContent Replace rqtContent,39。 數(shù)據(jù)提交后，將由 進行處理，它的主要代碼如下： % 39。 在 中，定義了一個隱藏域，代碼 如下： input type hidden name id value % rsNews id % 它的作用是記錄當(dāng)前編輯新聞的編號。 替換數(shù)據(jù)的目的是使它能夠在表單的滾動文本域 txtcontent 中正確顯示。39。 id 因為新聞?wù)臄?shù)據(jù)在存儲前進行過替換處理，所以這里需要將數(shù)據(jù)還原，代碼如下： If Not Then 39。 !include file !include file !include file 在 中程序?qū)⑹紫雀鶕?jù)參數(shù) ?ID 的值讀取新聞數(shù)據(jù)，代碼如下 : Set rsNews Set rsCate 39。 本節(jié)將介紹如何使用 修改新聞內(nèi)容。單擊此鏈接，將打開 ，對指定新聞進行編輯。這里使用一種新方法，在記錄集中使用 插入新記錄，然后依次對 rs 中各字段賦值，最后使用 方法保存記錄。使用 AddNew 和 Update 插入新 記錄 rs CateId CInt Request Cate rs Title title rs Content rqtContent rs Posttime now rs Poster Session UserName rs ReadCount 0 If attpic Then rs attpic attpic End If 39。 接下來程序?qū)⒈４嫘侣剶?shù)據(jù)，代碼如下： Set rs 39。,‘ 因為在 sql 語句中，單引號 39。,‘ attpic Request attpic rqtContent ChangeChr request txtcontent 39。sql 語句字符串 Dim rs 39。新聞內(nèi)容 Dim category 39。 下面程序?qū)⒔邮諒? 傳遞來的數(shù)據(jù)，并將它們轉(zhuǎn)換為能夠保存到數(shù)據(jù) 庫中的格式，代碼如下： Dim title 39。 函數(shù) ChangeStr 的代碼如下： Function ChangeChr str Chan