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

　　

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