【導(dǎo)讀】于單純的電視、報紙等大眾途徑。隨著Inter在中國的發(fā)展日新月異,人們在日。絡(luò)來獲取信息的需求越來越大?；诖朔N考慮,網(wǎng)絡(luò)開發(fā)者們提出了一種“基于。WEB的新聞發(fā)布系統(tǒng)”?；诖?，我們學(xué)校也開發(fā)了基于Web的學(xué)校新聞發(fā)布。戶無法訪問而使形象和服務(wù)大打折扣。網(wǎng)站信息管理系統(tǒng)的出現(xiàn)大大減輕了網(wǎng)站。本系統(tǒng)的信息管理系統(tǒng)主要是實現(xiàn)對信息內(nèi)容的瀏覽和添加管理?？焖偌皶r的新聞瀏覽，五彩。繽紛的網(wǎng)上信息，使網(wǎng)絡(luò)與人們的生活息息相關(guān)，而隨著Inter的進一步發(fā)展,另一方面靜態(tài)網(wǎng)頁由于不能與瀏覽者進行有效交互,使人們感到越

　　

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