【正文】 %在文件中引用此文件作為頭文件就可以訪問數(shù)據(jù)庫，代碼如下：!include File= 因為本實例中有些功能只有Admin用戶才有權(quán)限使用，所以在進入這些網(wǎng)頁之前，需要判斷用戶是否是Admin。：% If Session(UserName) Admin Then (不是Admin用戶，沒有此權(quán)限) End If%在文件中引用此文件作為頭文件，代碼如下:!include File= 在修改和刪除新聞時，除了Admin用戶擁有所有權(quán)限外，其他用戶只能修改自己創(chuàng)建的新聞。，代碼如下：% If Session(UserName) Admin Then NewsId = Request(Id) 39。 Trim(NewsId) set rsNews=(sql) Set Rs=(sql) If Then 指定新聞不存在 Else 39。顯示新聞類別鏈接 ，每個新聞類別只顯示最新的10條新聞。為了解決這個問題，本實例使用書簽來定義新聞類別的位置，書簽格式為a類別編號。下面的代碼將在網(wǎng)頁中生成所有新聞類別的鏈接，每個鏈接都指相應(yīng)新聞類別的書簽。% 39。按順序讀取所有新聞類別，保存在記錄集rsCate中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。每個新聞類別標題被定義為一個書簽，名為 a類別編號% a href=a%=cid%font style=39。color:black39。書簽是網(wǎng)頁中被標記的位置或被標記的選中文本。在本例中，因為書簽位置是動態(tài)變化的，所以需要使用代碼定義，方法如下：a name=書簽名/a“新聞管理”鏈接 系統(tǒng)管理員Admin或其他用戶可以通過“新聞管理”a href=font color=red style=39。新聞管理/font/a 顯示各新聞類別中的最新新聞 ，并將3天內(nèi)的新聞使用new圖片標記。這部分代碼如下:% 39。按順序讀取所有新聞類別，保存在記錄集rsCate中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。每個新聞類別標題被定義為一個書簽，名為 a類別編號% a href=a%=cid%font style=39。color:black39。39。nbsp。TEXTDECORATION: none39。將指針移至開始位置，分別顯示每個分類中的新聞 If = False Then End If 39。變量t用來記錄 t = 0 39。100%39。顯示新聞類別，并設(shè)置書簽 td bgcolor=ceceffa name=aamp。/aamp。==amp。 39。nbsp。生成另一個表格，用于顯示新聞標題 table width=39。 border=0 cellspacing=0 cellpadding=0 39。 cid amp。計數(shù) t = t + 1 39。顯示新聞標題及鏈接， trtd width=39。a onClick=39。39。?id= + cstr(rs(id)) + 39。如果新聞中有圖片，則在標題中顯示（附圖） If rs(Attpic) Then (附圖) End If /a 39。pic/39。最新的新聞！39。顯示新聞提交的時間 td width=39。( + CStr(rs(Posttime)) + )/td/tr End If Loop /table 39。nbsp。nbsp。nbsp。生成“更多新聞”鏈接， a target=39。 href=39。更多新聞.../a/p /td/tr/table/td/table loop %3. 管理界面的實現(xiàn) ，這樣在打開網(wǎng)頁時，程序會自動連接到數(shù)據(jù)庫，并進行身份驗證。顯示新聞類別的代碼如下：% Dim rs,rsCate Set rs = () set rsCate = () 39。參數(shù)flag表示指定的新聞類別 iflag = (flag) 39。顯示新聞類別鏈接，注意根據(jù)類別編號設(shè)置參數(shù)flag DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) %| a href=39。font style=39。color:black39。如果flag=0，則顯示全部新聞，否則顯示指定類別的新聞。顯示管理鏈接的代碼如下：% 39。nbsp。nbsp。39。nbsp。nbsp。nbsp。39。如果不是系統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設(shè)置WHERE子句的條件 sql_where = Poster=39。 Session(UserName) amp。 End If%Session(”UserName”)中保存著當(dāng)前登錄用戶的用戶名。 下面將根據(jù)指定的新聞類別和頁碼顯示新聞標題列表，代碼如下：% 39。 sql_where amp。 iflag amp。 iflag amp。 sql_where amp。如果記錄集rs為空，則顯示“目錄還沒有記錄” If Then trtd colspan=4 align=center目前還沒有記錄。設(shè)置分頁顯示，每頁顯示20條新聞記錄 = 20 39。處理不合法的頁碼 If Page 1 Then Page = 1 If Page Then Page = 39。循環(huán)顯示當(dāng)前頁的記錄 For i = 1 to 39。顯示分頁頁碼 If 1 then table border=39。trtdb分頁：/b/td For i = 1 To tda href=39。 iflag amp。page= amp。 39。 i amp。center39。讀取所有的新聞類別數(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。將新聞類別裝入下拉菜單中 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)容是新聞類別名稱。 if( 0) { alert(請選擇新聞類別) ValidationPassed = false。 } if( == ) { alert(請?zhí)顚懶侣剺祟})。 return ValidationPassed。 ValidationPassed = false。 }} [upload] “div[space]align=centerimg[space]src=images/”，其中[space]是空格標記，需要在顯示新聞?wù)臅r轉(zhuǎn)換： [/upload] 與[upload]匹配使用，標記上傳新聞圖片的結(jié)束。nbsp；”；chr(13) 回車符將被替換為BR。nbsp。新聞標題Dim content 39。新聞類別Dim sql 39。記錄集變量title = Request(title)title = Replace(title,39。替換函數(shù)rqtContent = Replace(rqtContent,39。接下來程序?qū)⒈４嫘侣剶?shù)據(jù)Set rs = ()39。使用AddNew和Update插入新記錄rs(CateId) = CInt(Request(Cate)) rs(Title) = titlers(Content) = rqtContentrs(Posttime) = now()rs(Poster) = Session(UserName)rs(ReadCount) = 0If attpic Then rs(attpic) = attpicEnd If h2添加成功！/h2第六章 系統(tǒng)的調(diào)試與測試 測試環(huán)境該系統(tǒng)測試使用的硬件平臺：CPU：INTELCoreI5 ；內(nèi)存：8GB；軟件平臺：操作系統(tǒng)：Windows7；數(shù)據(jù)庫：Mysql2000；開發(fā)工具包：JDK ；Web服務(wù)器：；瀏覽器：McroSoft ；分辨率：LCD，1024*768像素。不論軟件的生產(chǎn)者還是軟件的使用者，均生存在競爭的環(huán)境中，軟件開發(fā)商為了占有市場，必須把產(chǎn)品質(zhì)量作為企業(yè)的重要目標之一，以免在激烈的競爭中被淘汰出局。質(zhì)量不佳的軟件產(chǎn)品不僅會使開發(fā)商的維護費用和用戶的使用成本大幅增加，還可能產(chǎn)生其他的責(zé)任風(fēng)險，造成公司信譽下降，繼而沖擊股票市場。 軟件危機曾經(jīng)是軟件界甚至整個計算機界最熱門的話題?，F(xiàn)在人們已經(jīng)逐步認識到所謂的軟件危機實際上僅是一種狀況，那就是軟件中有錯誤，正是這些錯誤導(dǎo)致了軟件開發(fā)在成本、進度和質(zhì)量上的失控。問題在于如何去避免錯誤的產(chǎn)生和消除已經(jīng)產(chǎn)生的錯誤，使程序中的錯誤密度達到盡可能低的程度。 模擬真實環(huán)境測試：有些軟件，特別是面向大眾的商品化軟件，在測試時常常需要考察在真實環(huán)境中的表現(xiàn)。 橫向?qū)Ρ葴y試：利用輔測試環(huán)境“克隆”出完全一致的測試環(huán)境，從而保證各個被測軟件平等對比。 系統(tǒng)部分模塊測試（1） 系統(tǒng)前臺首頁測試讀者和管理員可登入系統(tǒng)首頁中，查看新聞，系統(tǒng)首頁顯示效果如圖51所示： 圖51 學(xué)校新聞發(fā)布系統(tǒng)首頁 （2） 管理員登錄測試 管理員進入前臺首頁后，可以點擊右上角的進入后臺按鈕，會打開后臺登錄頁面，如圖所示。輸入用戶名和密碼后，單擊“提交”按鈕，系統(tǒng)會判斷輸入的用戶信息。：圖52 后臺管理員登陸界面如果瀏覽者想查看類似的新聞，但又在該系統(tǒng)中未找到想看的新聞，就可以點擊友情鏈接中網(wǎng)站，進入其他新聞網(wǎng)站系統(tǒng)進行查找。課程設(shè)計心得體會經(jīng)過了近幾個多月的學(xué)習(xí)和工作，我終于完成了此篇論文。在這段時間里，我學(xué)到了很多知識也有很多感受，從對服務(wù)器知之甚少的狀態(tài)中，對JSP、JDO等相關(guān)技術(shù)很不了解的狀態(tài)，我開始了獨立的學(xué)習(xí)和試驗，查看相關(guān)的資料和書籍，讓自己頭腦中模糊的概念逐漸清晰，使自己非常稚嫩作品一步步完善起來，每一次改進都是我學(xué)習(xí)的收獲，每一次試驗的成功都會讓我興奮好一段時間。當(dāng)看著自己的程序，自己成天相伴的系統(tǒng)能夠健康的運行，真是莫大的幸福和欣慰。希望這次的經(jīng)歷能讓我在以后學(xué)習(xí)中激勵我繼續(xù)進步