【正文】 模擬真實環(huán)境測試：有些軟件，特別是面向大眾的商品化軟件，在測試時常常需要考察在真實環(huán)境中的表現(xiàn)。問題在于如何去避免錯誤的產(chǎn) 生和消除已經(jīng)產(chǎn)生的錯誤，使程序中的錯誤密度達到盡可能低 42 的程度?，F(xiàn)在人們已經(jīng)逐步認識到所謂的軟件危機實際上僅是一種狀況，那就是軟件中有錯誤，正是這些錯誤導致了軟件開發(fā)在成本、進度和質(zhì)量上的失控。 軟件危機曾經(jīng)是軟件界甚至整個計算機界最熱門的話題。質(zhì)量不佳的軟件產(chǎn)品不僅會使開發(fā)商的維護費用和用戶的使用成本大幅增加，還可能產(chǎn)生其他的責任風險，造成公司信譽下降，繼而沖擊股票市場。不論軟件的生產(chǎn)者還是軟件的使用者，均生存在競爭的環(huán)境中，軟件開發(fā)商為了占有市場，必須把產(chǎn)品質(zhì)量作為企業(yè)的重要目標之一，以免在激烈的競爭中被淘汰出局。使用 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 h2添加成功！ /h2 41 第六章 系統(tǒng)的調(diào)試與測試 測試環(huán)境 該系統(tǒng)測試使用的硬件平臺： CPU： INTELCoreI5 ； 內(nèi)存： 8GB； 軟件平臺： 操作系統(tǒng)： Windows7； 數(shù)據(jù)庫： Mysql2020； 開發(fā)工具包： JDK ； Web 服務器： ； 瀏覽器： McroSoft ； 分辨 率： LCD， 1024*768 像素。接下來程序?qū)⒈４嫘侣剶?shù)據(jù) Set rs = () 39。替換函數(shù) rqtContent = Replace(rqtContent,39。記錄集變量 title = Request(title) title = Replace(title,39。新聞類別 Dim sql 39。新聞標題 40 Dim content 39。nbsp；”； chr(13) 回車符將被替換為 BR。 } } [upload] “ div[space]align=centerimg[space]src=images/”，其中 [space]是空格標記，需要在顯示新聞正文時轉(zhuǎn)換： [/upload] 與 [upload]匹配使用，標記上傳新聞圖片的結(jié)束。 ValidationPassed = false。 return ValidationPassed。 } 39 if( == ) { alert(請?zhí)顚懶侣剺祟} )。 if( 0) { alert(請選擇新聞類別 ) ValidationPassed = false。將新聞類別裝入下拉菜單中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) % option value=%=cid%%=stitle%/option % LOOP % 下拉菜單名為 Cate，值為新聞類別編號，顯示的內(nèi)容是新聞類別名稱。讀取所有的新聞類別數(shù)據(jù)到記錄集 rs 中 sql = SELECT * FROM Category ORDER BY CateId sql, conn, 1, 1 If Then If Soperate = update Then sTitle = (name) % form name=UFrom method=post action=?cid=%=Operid%amp。center39。 i amp。 39。page= amp。 iflag amp。trtdb分頁： /b/td For i = 1 To tda href=39。顯示分頁頁碼 If 1 then table border=39。循環(huán)顯示當前頁的記錄 For i = 1 to 39。處理不合法的頁碼 If Page 1 Then Page = 1 If Page Then Page = 39。設置分頁顯示，每頁顯示 20 條新聞記錄 = 20 39。如果記錄集 rs 為空，則顯示“目錄還沒有記錄” If Then trtd colspan=4 align=center 目 前 還 沒 有 記 錄 。 sql_where amp。 iflag amp。 iflag amp。 sql_where amp。 34 下面將根據(jù)指定的新聞類別和頁碼顯示新聞標題列表，代碼如下： % 39。 End If % Session( ” UserName ” ) 中保存著當前登錄用戶的用戶名。 Session(UserName) amp。如果不是系統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設置WHERE 子句的條件 sql_where = Poster=39。39。39。顯示管理鏈接的代碼如下： % 39。如果 flag=0，則顯示全部新聞，否則顯示指定類別的新聞。color:black39。font style=39。顯示新聞類別鏈接，注意根據(jù)類別編號設置參數(shù) flag DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 33 %| a href=39。參數(shù) flag 表示指定的新聞類別 iflag = (flag) 39。顯示新聞類別的代碼如下： % Dim rs,rsCate Set rs = () set rsCate = () 39。更多新聞 .../a/p /td/tr/table/td/table loop % 在 的開始部分添加下面的代碼，這樣在打開網(wǎng)頁時，程序會自動連接到數(shù)據(jù)庫，并進行身份驗證。 href=39。生成“更多新聞”鏈接，查看指定類別所有新聞的腳本為 32 a target=39。( + CStr(rs(Posttime)) + )/td/tr End If Loop /table 39。顯示新聞提交的時間 td width=39。 最 新 的 新 聞 ！ 39。pic/39。如果新聞中有圖片，則在標題中顯示（附圖） If rs(Attpic) Then (附圖 ) End If /a 39。?id= + cstr(rs(id)) + 39。39。a onClick=39。顯示新 聞標題及鏈接，查看新聞的腳本文件為 trtd width=39。計數(shù) t = t + 1 39。 cid amp。 border=0 cellspacing=0 cellpadding=0 39。生成另一個表格，用于顯示新聞標題 table width=39。/a == 39。顯示新聞類別，并設置書簽 td bgcolor=ceceffa name=aamp。100%39。變量 t 用來記錄 t = 0 39。將指針移至開始位置，分別顯示每個分類中的新聞 If = False Then End If 39。TEXTDECORATION: none39。39。color:black39。每個新聞類別標題被定義為一個書簽，名為 a 類別編號 % a href=a%=cid%font style=39。按順序讀取所有新聞類別，保存在記錄集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。 這部分代碼如下 : % 39。新聞管理/font/a 顯示各新聞類別中的最新新聞 的主要內(nèi)容是顯示新聞類別中的最新 10 條新聞，并將 3 天內(nèi)的新聞使用 new 圖片標記。在本例中，因為書 29 簽位置是動態(tài)變化的，所 以需要使用代碼定義，方法如下： a name=書簽名 /a “新聞管理”鏈接 系統(tǒng)管理員 Admin 或其他用戶可以通過“新聞管理”鏈接進入新聞管理頁面 a href=font color=red style=39。書簽是網(wǎng)頁中被標記的位置或被標記的選中文本。color:black39。每個新聞類別標題被定義為一個書簽，名為 a 類別編號 % a href=a%=cid%font style=39。按順序讀取所有新聞類別，保存在記錄集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。 % 39。下面的代碼將在網(wǎng)頁中生成所有新聞類別的鏈接，每個鏈接都指相應新聞類別的書簽。為了解決這個問題，本實例使用書簽來定義新聞類別的位置，書簽格式為 a類別編號 。 顯示新聞類別鏈接 將新聞按照分類顯示，每個新聞類別只顯示最新的 10 條新聞。 Trim(NewsId) set rsNews=(sql) Set Rs=(sql) If Then 指定新聞不存在 Else 39。 可以實現(xiàn)此功能，代碼如下： % If Session(UserName) Admin Then NewsId = Request(Id) 39。 的代碼如下： % If Session(UserName) Admin Then (不是 Admin 用戶，沒有此權(quán)限 ) End If 27 % 在文件中引用此文件作為頭文件，代碼如下 : !include File= 在修改和刪除新聞時，除了 Admin 用戶擁有所有權(quán)限外，其他用戶只能修改自己創(chuàng)建的新聞。Database=news ConnStr % 在文件中引用此文件作為頭文件就可以訪問數(shù)據(jù)庫，代碼如下： !include File= 因為本實例中有些功能只有 Admin 用戶才有權(quán)限使用，所以在進入 這些網(wǎng)頁之前，需要判斷用戶是否是 Admin。UID=sa。 的代碼如下： % dim Conn dim ConnStr set Conn=()ConnStr=driver={SQL Server}。 圖 46 的運行界面 新聞查詢管理頁面的腳本是 ，運行界面如圖所示 圖 47 新聞查詢界面 26 第五章 系統(tǒng)實現(xiàn) 本實例中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件中使用 include 語句包含這些模塊，使用其中定義的功能。 圖 44 新聞管理界面 打開新聞類別管理界面，如圖 45 所示。 23 圖 42 的界面 3 登陸界面設計 在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身份認證。 2 主界面設計 本主界面為 ，它的功能是顯示新聞類別和每個類別中的 10 條新聞，并提供進入管理界面 ()的鏈接。 的設計界面如圖 41 所示。在添加和修改新聞內(nèi)容時，需要對字體、字號、顏色和排列位置等屬性進行設置。 后臺系統(tǒng)的 各功能 流程分析如圖所示。 本系統(tǒng)分為前臺系統(tǒng)和后臺系統(tǒng)兩個部分。 1．新聞類別表 Category 表 新聞類別表 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 CateId int 新聞類別編號 2 CateName varchar (50) 新聞類別名稱 2．基本新聞表 News 用來保存網(wǎng)上新聞的基本信息