【正文】 ROM News WHERE CateId= amp。 iflag amp。 And amp。 sql_where amp。 ORDER BY Posttime DESC End If End If sql,conn,1,1 39。如果記錄集 rs 為空，則顯示“目 錄還沒(méi)有記錄” If Then trtd colspan=4 align=center 目 前 還 沒(méi) 有 記 錄 。/td/tr/table Else 39。設(shè)置分頁(yè)顯示，每頁(yè)顯示 20 條新聞?dòng)涗? = 20 39。讀取參數(shù) page，表示當(dāng)前的頁(yè)碼，使用 CLng 將其轉(zhuǎn)換為長(zhǎng)整型 Page = CLng(Request(Page)) 35 39。處理不合法的頁(yè)碼 If Page 1 Then Page = 1 If Page Then Page = 39。設(shè)置當(dāng)前頁(yè)碼為 Page = Page 39。循環(huán)顯示當(dāng)前頁(yè)的記錄 For i = 1 to 39。如果到達(dá)記錄集結(jié)尾，則跳出循環(huán) if then Exit For % trtda href=?id=%=rs(id)% onClick=return newwin()%=rs(title)%/a %If rs(attpic)=true then (附圖 ) End If%/td td align=center%=rs(posttime)%/td td align=centera href=?id=%=rs(id)% onClick=return newwin()修 改 /a/td td align=centerinput type=checkbox name=News id=%=rs(id)% style=fontsize: 9pt value=ON/td /tr % () Next % /table % 39。顯示分頁(yè)頁(yè)碼 If 1 then table border=39。039。trtdb分頁(yè)： /b/td For i = 1 To tda href=39。?flag= amp。 iflag amp。 amp。page= amp。 i amp。 39。 36 [b amp。 i amp。 /b]/a/td Next /tr/table End If End If % 為了便于用戶管理新聞?lì)悇e， 以表格的形式顯示新聞?lì)悇e名稱(chēng)，并在后面顯示修改鏈接和刪除復(fù)選框，代碼如下： p align=39。center39。font style=FONTSIZE: 12ptb 新 聞 類(lèi) 別 管 理/b/font/p center table border=0 cellspacing=0 width=90% tr td align=right a href=font color=red新聞管理 /font/a a href=font color=red用戶管理 /font/a /td /tr /table table border=1 cellspacing=0 width=90% bgcolor=F0F8FF bordercolorlight=4DA6FF bordercolordark=ECF5FF tr td width=60% align=center bgcolor=FEEC85strong 類(lèi) 別/strong/td td width=20% align=center bgcolor=FEEC85strong 修 改/strong/td td width=20% align=center bgcolor=FEEC85strong 選 擇/strong/td /tr % 37 Set rs = () 39。讀取所有的新聞?lì)悇e數(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。Oper=edit div align=center input type=hidden name=sOrgTitle value=%=sTitle% font color=FFFFFFbfont color=000000 類(lèi)別名稱(chēng)/font/b/font input type=text name=txttitle size=20 value=%=sTitle% input type=submit name=Submit value= 修 改 /div /form %Else% form name=AForm method=post action=?Oper=add div align=center font color=FFFFFFbfont color=000000 類(lèi)別名稱(chēng)/font/b/font input type=text name=txttitle size=20 input type=submit name=Submit value= 添 加 /div /form %End If% 38 將新聞?lì)悇e添加到下拉菜單中，代碼如下： % Set rs = () 39。將新聞?lì)悇e裝入下 拉菜單中 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，值為新聞?lì)悇e編號(hào)，顯示的內(nèi)容是新聞?lì)悇e名稱(chēng)。編輯新聞內(nèi)容表單的定義代碼如下： form action= method=POST name=myform align=center onsubmit=return ValidationPassed 在單擊“確定”按鈕時(shí)，將執(zhí)行 form_onsubmit()，進(jìn)行數(shù)據(jù)有效性驗(yàn)證，代碼如下 : function form_onsubmit(obj) { ValidationPassed = true。 if( 0) { alert(請(qǐng)選擇新聞?lì)悇e ) ValidationPassed = false。 return ValidationPassed。 } 39 if( == ) { alert(請(qǐng)?zhí)顚?xiě)新聞標(biāo)題 )。 ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請(qǐng)?zhí)顚?xiě)新聞內(nèi)容！ )。 ValidationPassed = false。 return ValidationPassed。 } } [upload] “ div[space]align=centerimg[space]src=images/”，其中 [space]是空格標(biāo)記，需要在顯示新聞?wù)臅r(shí)轉(zhuǎn)換： [/upload] 與 [upload]匹配使用，標(biāo)記上傳新聞圖 片的結(jié)束。需要將其替換為 “ [space]border=0[space]width=300/img/div”；空格 (”” ) 空格將被替換為“ amp。nbsp；”； chr(13) 回車(chē)符將被替換為 BR。 函數(shù) ChangeStr()的代碼如下： Function ChangeChr(str) ChangeChr = Replace( str, [upload], div[space]align=centerimg[space]src=images/) ChangeChr=Replace( ChangeChr, [/upload], [space]border=0[space]width=300/img/div) ChangeChr = Replace( ChangeChr, , ) ChangeChr = Replace( ChangeChr, chr(13), br) End Function 下面程序?qū)⒔邮諒? 傳遞來(lái)的數(shù)據(jù)，并將它們轉(zhuǎn)換為能夠保存到數(shù)據(jù)庫(kù)中的格式，代碼如下： Dim title 39。新聞標(biāo)題 40 Dim content 39。新聞內(nèi)容 Dim category 39。新聞?lì)悇e Dim sql 39。sql語(yǔ)句字符串 Dim rs 39。記錄集變量 title = Request(title) title = Replace(title,39。,?) attpic = Request(attpic) rqtContent = ChangeChr(request(txtcontent)) 39。替換函數(shù) rqtContent = Replace(rqtContent,39。,?) 使用 ChangeChr()函數(shù)對(duì)新聞?wù)倪M(jìn)行轉(zhuǎn)換。接下來(lái)程序?qū)⒈４嫘侣剶?shù)據(jù) Set rs = () 39。定義 sql語(yǔ)句，為插入新聞?dòng)涗浂x記錄集 sql=SELECT * FROM News sql, Conn, 1, 3 39。使用 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)試與測(cè)試 測(cè)試環(huán)境 該系統(tǒng)測(cè)試使用的硬件平臺(tái)： CPU： INTELCoreI5 ； 內(nèi)存： 8GB； 軟件平臺(tái)： 操作系統(tǒng)： Windows7； 數(shù)據(jù)庫(kù)： Mysql2021； 開(kāi)發(fā)工具包： JDK ； Web 服務(wù)器： ； 瀏覽器： McroSoft ； 分辨率： LCD， 1024*768 像素。 測(cè)試內(nèi)容 信息技術(shù)的飛速發(fā)展，使軟件產(chǎn)品應(yīng)用到社會(huì)的各個(gè)領(lǐng)域，軟件產(chǎn)品的質(zhì)量自然成為人們共同關(guān)注的焦點(diǎn)。不論軟件的生產(chǎn)者還是軟件的使用者，均生存在競(jìng)爭(zhēng)的環(huán)境中，軟件開(kāi)發(fā)商為了占有市場(chǎng)，必須把產(chǎn)品質(zhì)量作為企業(yè)的重要目標(biāo)之一，以免在激烈的競(jìng)爭(zhēng)中被淘汰出局。用戶為了保證自 己業(yè)務(wù)的順利完成，當(dāng)然希望選用優(yōu)質(zhì)的軟件。質(zhì)量不佳的軟件產(chǎn)品不僅會(huì)使開(kāi)發(fā)商的維護(hù)費(fèi)用和用戶的使用成本大幅增加，還可能產(chǎn)生其他的責(zé)任風(fēng)險(xiǎn)，造成公司信譽(yù)下降，繼而沖擊股票市場(chǎng)。在一些關(guān)鍵應(yīng)用 (如民航訂票系統(tǒng)、銀行結(jié)算系統(tǒng)、證券交易系統(tǒng)、自動(dòng)飛行控制軟件、軍事防御和核電站安全控制系統(tǒng)等 ) 中使用質(zhì)量有問(wèn)題的軟件，還可能造成災(zāi)難性的后果 [12]。 軟件危機(jī)曾經(jīng)是軟件界甚至整個(gè)計(jì)算機(jī)界最熱門(mén)的話題。為了解決這場(chǎng)危機(jī)，軟件從業(yè)人員、專(zhuān)家和學(xué)者做出了大量的努力。現(xiàn)在人們已經(jīng)逐步認(rèn)識(shí)到所謂的軟件危機(jī)實(shí)際上僅是一種 狀況，那就是軟件中有錯(cuò)誤，正是這些錯(cuò)誤導(dǎo)致了軟件開(kāi)發(fā)在成本、進(jìn)度和質(zhì)量上的失控。有錯(cuò)是軟件的屬性，而且是無(wú)法改變的，因?yàn)檐浖怯扇藖?lái)完成的，所有由人做的工作都不會(huì)是完美無(wú)缺的。問(wèn)題在于如何去避免錯(cuò)誤的產(chǎn)生和消除已經(jīng)產(chǎn)生的錯(cuò)誤，使程序中的錯(cuò)誤密度達(dá)到盡可能低 42 的程度。 測(cè)試的方法很多，而一些 輔 助 測(cè)試環(huán)境常常用來(lái)滿足不同的測(cè)試需求或特殊 的 測(cè)試項(xiàng)目 ： 兼容性測(cè)試：在滿足軟件運(yùn)行要求的范圍內(nèi)，可選擇一些典型的操作系統(tǒng)和常用應(yīng)用軟件對(duì)其安裝卸載和主要功能進(jìn)行驗(yàn)證。 模擬真實(shí)環(huán)境測(cè)試：有些軟件，特別是面向大眾的商品 化軟件，在測(cè)試時(shí)常常需要考察在真實(shí)環(huán)境中的表現(xiàn)。如測(cè)試殺毒軟件的掃描速度時(shí)，硬盤(pán)上布置的不同類(lèi)型