基于ASP的新聞發(fā)布管理系統(tǒng)設計.doc

腳本語言與asp技術實訓南京xx職業(yè)技術學院 實訓/實習報告設計題目： 新聞發(fā)布 班級名稱： 學生姓名： 指導老師： 評閱老師： 同組人員： 2009年12月212009年12月254腳本語言與asp技術課程實訓任務書腳本語言與asp程序設計是我院計算機網絡專業(yè)集中實踐性環(huán)節(jié)之一，是學習完腳本語言與asp程序設計、網頁制作、網絡數(shù)據(jù)庫課程后進行的一次全面的綜合練習。其目的在于加深對網站開發(fā)的理解，掌握使用asp語言進行編程和用dreamweaver制作網頁的基本方法，提高開發(fā)網站實際操作的能力。一、基本要求 要求學生認真對待本次課程設計，積極利用機房、網絡資源，積極了解網頁設計的前景，學會用asp和html進行網絡編程以及dreamweaver中各種菜單的使用，具備一定的網站開發(fā)能力。聽從指導教師的安排，認真完成老師布置的各項任務，并以小組為單位，上交作品，同時交個人報告。二、實訓目的 熟悉網站開發(fā)步驟； 掌握動態(tài)網頁編程技術，綜合運用所學動態(tài)網頁知識； 掌握response、request和session等asp內置對象的綜合應用。 掌握connection、recordset等ado對象的綜合應用 掌握select、insert、update和delete等sql語句的綜合應用。三、任務和要求1、需求分析階段主要任務是明確任務，書寫需求分析報告，即告知你的系統(tǒng)是什么性質的系統(tǒng)，為誰服務的，使用對象是誰，需要具備那些功能模塊，現(xiàn)有的知識技能能否實現(xiàn)你的系統(tǒng)。2、設計階段包括界面設計，代碼實現(xiàn)，這一階段偏重于網頁制作工具和技巧的應用，是整個論壇各個功能模塊實現(xiàn)階段。制作過程參考：1.劃分模塊；2.設計各模塊的數(shù)據(jù)庫；3.設計界面；4.編寫代碼。在代碼編寫過程中肯定會碰到問題，建議花課余時間把第六章的對象再好好學一下，分頁顯示要自己補充加強，再結合第九、十一、十二、十三章實例和網上查找資料，完成實訓任務3、編寫實訓總結報告,提交任務要求的作品實訓總結報告。最后上交實訓總結報告和作品。目 錄腳本語言與asp技術課程實訓任務書21、需求分析階段22、設計階段23、編寫實訓總結報告,提交任務要求的作品2第一章系統(tǒng)分析與總體設計11.1系統(tǒng)功能描述11.2系統(tǒng)功能模塊劃分21.3系統(tǒng)流程分析3第二章系統(tǒng)分析與總體設計42.1 創(chuàng)建數(shù)據(jù)庫42.2數(shù)據(jù)庫邏輯結構設計4第三章 目錄結構與通用模塊53.1 目錄結構53.2 通用模塊63.3 登錄程序設計103.4 設計管理界面11第四章新聞查詢管理164.1 新聞查詢管理16總結29結束語29參 考 文 獻29第一章 系統(tǒng)分析與總體設計很多網站都提供新聞欄目，例如搜狐、新浪等著名網站的新聞專欄。許多企業(yè)和個人網站也需要定期發(fā)布一些關于企業(yè)或網站的新聞。因為網絡中新聞發(fā)布的頻率非常高，如果使用靜態(tài)網頁作為新聞頁面，則維護工作將非常繁瑣，管理員每天需要制作大量的網頁，從而浪費很多時間和精力。使用新聞發(fā)布及管理系統(tǒng)可以使新聞發(fā)布和管理變得很輕松，管理員只需設置標題、內容和圖片等新聞就可以了，系統(tǒng)將自動生成對應的網頁。本文將對新聞發(fā)布及管理系統(tǒng)進行系統(tǒng)分析與總體設計。1.1 系統(tǒng)功能描述新聞發(fā)布及管理系統(tǒng)包括新聞發(fā)布管理、圖片處理、新聞查詢和網友評論等模塊。具體描述如下：1新聞發(fā)布管理：(1)基本新聞信息的錄入，包括新聞標題、新聞內容和所屬類別等；(2)基本新聞信息的修改；(3)基本新聞信息的刪除；3圖片處理模塊：(1)選擇圖片文件；(2)上傳圖片文件；(3)存儲圖片新聞；(4)修改新聞圖片；(5)刪除新聞圖片；(6)在網頁中瀏覽新聞圖片。4新聞查詢模塊：(1)按照新聞類別分頁顯示新聞； -(2)按照日期分頁顯示新聞。5網友留言模塊：(1)網友對某條新聞發(fā)表評論；(2)管理員可以刪除新聞評論。1.2 系統(tǒng)功能模塊劃分從功能描述的內容可以看到，本實例可以實現(xiàn)4個完整的功能。我們根據(jù)這些功能，設計出系統(tǒng)的功能模塊，如圖1所示。新聞發(fā)布及管理系統(tǒng)新聞發(fā)布及管理圖片處理模塊新聞查詢模塊網友評論模塊圖1 新聞發(fā)布及管理系統(tǒng)功能模塊示意圖新聞發(fā)布及管理系統(tǒng)的功能模塊之間的關系如圖2所示。后臺系統(tǒng) 前臺系統(tǒng)數(shù)據(jù)庫基本信息發(fā)布新聞圖片發(fā)布新聞查詢管理發(fā)表網友評論圖2 新聞發(fā)布及管理系統(tǒng)的功能模塊關系圖在本系統(tǒng)中，用戶管理模塊的功能比較簡單。在系統(tǒng)初始化時，有一個默認的“系統(tǒng)管理員”用戶admin，由程序設計人員手動地添加到數(shù)據(jù)庫中。普通用戶則只能注冊和登錄。1.3 系統(tǒng)流程分析為了使讀者進一步了解本實例系統(tǒng)的設計，本小節(jié)將對系統(tǒng)進行流程分析。多用戶系統(tǒng)的工作流程都是從用戶登錄模塊開始，對用戶的身份進行認證。身份認證可以分為以下兩個過程：(1)確認用戶是否是有效的系統(tǒng)用戶。(2)確定用戶的類型。第1個過程決定用戶能否進入系統(tǒng)。第2個過程根據(jù)用戶的類型決定用戶的操作權限。本系統(tǒng)分為前臺系統(tǒng)和后臺系統(tǒng)兩個部分。前臺系統(tǒng)不需要進行身份認證，任何人都可以通過瀏覽器閱讀已經發(fā)布的新聞、發(fā)表網友評論。后臺系統(tǒng)的流程分析如圖3所示。admin用戶擁有所有的權限，普通用戶只能查詢新聞和查看新聞。開始用戶登錄失敗重試管理所有的信息管理發(fā)布信息，所有新聞信息的管理查詢新聞和查看新聞admin普通用戶圖3 后臺系統(tǒng)的流程分析command、recordset、field對象使用。第二章 系統(tǒng)分析與總體設計2.1 創(chuàng)建數(shù)據(jù)庫首先創(chuàng)建一個數(shù)據(jù)庫news，用來保存本系統(tǒng)的所有數(shù)據(jù)。創(chuàng)建數(shù)據(jù)庫的腳本代碼如下：create database news go可以在sql查詢分析器中執(zhí)行該語句，創(chuàng)建數(shù)據(jù)庫。2.2 數(shù)據(jù)庫邏輯結構設計 本系統(tǒng)定義的數(shù)據(jù)庫中包含以下4個表：新聞類別表：category、新聞基本信息表：news、網友評論信息表：discuss和用戶信息表：users。下面分別介紹這些表的結構。1新聞類別表category新聞類別表category用來保存新聞類別數(shù)據(jù)，結構如表1所示。表1表category的結構編號字段名稱數(shù)據(jù)結構說明1cateidint新聞類別編號2catenamevarchar (50)新聞類別名稱2基本新聞表news基本新聞表news用來保存網上新聞的基本信息，結構如表2所示。表2表news的結構編號字段名稱數(shù)據(jù)結構 說明1 idint新聞編號2titlevarchar(100)新聞標題3contenttext新聞內容4posttimevarchar(50)提交時間5postervarchar(50)提交人6cateidint新聞類別編號7attpicbit是否有圖片標記(0沒有；1有)8readcountint閱讀次數(shù)3網友評論信息表discuss網友評論信息表discuss用來保存網友對新聞的評論信息，結構如表3所示。表3表discuss的結構編號字段名稱數(shù)據(jù)結構說明1idint評論編號2useridvarchar(20)評論人名稱3posttimesinaildatetime提交時間4contentvarchar(4000)評論內容5newsldint新聞編號4用戶信息表users用戶信息表users用來保存用戶的基本信息，結構如表4所示。表4 表users的結構編號字段名稱數(shù)據(jù)結構說明1useridint用戶id號。2usernamevarchar(50)用戶名3userpwdvarcahr(50)密碼4enamevarchar(50)用戶姓名5emailvarchar(50)電子郵箱第三章 目錄結構與通用模塊3.1 目錄結構在運行實例時，需要將web目錄復制到iis/pws的根目錄下，例如目錄下包含下面兩個子目錄：images用于存儲上傳的新聞圖片；pic用于存儲網頁中的圖片文件；其他asp文件都保存在web目錄下。3.2 通用模塊本實例中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件中使用#include語句包含這些模塊，使用其中定義的功能。1conndb.aspconndb.asp的功能是實現(xiàn)到數(shù)據(jù)庫的連接，因為在很多網頁中都有連接數(shù)據(jù)庫的操作，所以把它保存在文件conndb.asp中，這樣可以避免重復編程。conndb.asp的代碼如下：在文件中引用此文件作為頭文件就可以訪問數(shù)據(jù)庫，代碼如下：2isadmin.asp因為本實例中有些功能只有admin用戶才有權限使用，所以在進入這些網頁之前，需要判斷用戶是否是admin。isadmin.asp的功能是判斷當前用戶是否是admin，如果不是，則中斷執(zhí)行；如果是，則不執(zhí)行任何操作，直接進入包含它的網頁。isadmin.asp的代碼如下：% if session(username) admin then response.write(不是admin用戶，沒有此權限) response.end end if%在文件中引用此文件作為頭文件，代碼如下:3isauthor.asp在修改和刪除新聞時，除了admin用戶擁有所有權限外，其他用戶只能查詢和查看新聞。所以在修改和刪除新聞時，需要判斷當前用戶是否是admin。isauthor.asp可以實現(xiàn)此功能，代碼如下：% if session(username) admin then newsid = request(id) set rsnews = server.createobject(adodb.recordset) sql = select * from news where id= & trim(newsid) set rsnews=conn.execute(sql) set rs=conn.execute(sql) if rsnews.eof then response.write 指定新聞不存在 response.end else if rsnews(poster) session(username) then response.write 不是admin，無權修改！ response.end end if end if end if%如果當前用戶是admin，則isauthor.asp不做任何操作；否則，程序將根據(jù)參數(shù)id讀取新聞信息，并將poster字段的值與當前用戶名進行比較。在兩種情況下，isauthor.asp將阻止程序繼續(xù)執(zhí)行：(1)指定新聞不存在；(2)當前用戶不是admin。使用response.end可以結束網頁的輸出。在文件中引用此文件作為頭文件，代碼如下：4template.asp在添加和修改新聞內容時，需要對字體、字號、顏色和排列位置等屬性進行設置。template.asp可以實現(xiàn)這些功能。template.asp的設計界面如圖5所示。圖5 template.asp的設計界面在使用template.asp時，設置指定的選項，將會在新聞內容中生成相應的html代碼。相關代碼如下：字體 select onchange=var c=this.optionsthis.selectedindex.value;if(selection.createrange().text!=)selection.createrange().text=+selection.createrange().text+elsemyform.txtcontent.value = +myform.txtcontent.value+ name=font style=font-size: 9pt宋體楷體新宋體黑體隸書andale monoarialarial blackbook antiquacentury gothiccomic sans mscourier newgeorgiaimpacttahomatimes new romantrebuchet msscript mt boldstencilverdanalucida console在下拉菜單中，定義了系統(tǒng)支持的字體名稱，下拉菜單的值與字體名稱相同。當下拉菜單的選擇發(fā)生變化時，將觸發(fā)onchange事件，程序中直接定義了對應的javascript代碼。this表示字體下拉菜單，thisselectedlndex表示當前選擇的菜單項目索引，this.optionsthis.selectedlndex.value則表示選擇下拉菜單的值，程序將其保存變量c中。selection.createrangeo.text表示當前選擇字符的內容，如果它不為空，則將其替換為如下代碼：selection.createrange().text=+selection.createrange().text+也就是在它的兩側添加字體標識和。如果沒有選擇字符，則在輸入新聞內容的文本域中直接加入字體標識，用戶可以在和之問添加相應的文字，代碼如下：myform.txtcontent.value=+myform.txtcontent.value+在添加和修改新聞內容的網頁中，必須將表單定義為myform，輸入新聞內容的滾動文本框定義為txtcontent，否則此功能將無法實現(xiàn)。3.3 登錄程序設計在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身份認證。本站中使用chkpwd.asp進行身份驗證。對于需要登陸才能察看的網頁可以在網頁的最前端加上如下代碼：這樣為登陸的用戶將看到如下界面：3.4 設計管理界面 管理界面的功能是對新聞類別和新聞提供管理界面，只有有權限的用戶才能進入管理界面。本節(jié)將介紹管理界面index.asp的實現(xiàn)方法。錄入新聞類別和新聞內容后，index.asp的界面如圖5-7所示。 下面介紹index.asp的主要代碼。(1)包含文件 在index.asp的開始部分添加下面的代碼，這樣在打開網頁時，程序會自動連接到數(shù)據(jù)庫，并進行身份驗證。 (2)顯示新聞類別鏈接index.asp將新聞按照分類顯示，每個新聞類別只顯示最新的20條新聞。顯示新聞類別的代碼如下：| a href=index.asp?flag= 在調用index.asp時，參數(shù)flag表示新聞類別。如果flag=0，則顯示全部新聞，否則顯示指定類別的新聞。(3)顯示管理鏈接在index.asp中，將根據(jù)用戶類型顯示管理鏈接，包括“用戶管理”和“退出登錄”，只有admin用戶才能看到“類別管理”和“用戶管理”鏈接。顯示管理鏈接的代碼如下：% if session(username) = admin then response.write   類別管理 response.write    用戶管理 sql_where = else sql_where = poster= & session(username) & end if%session(”username”)中保存著當前登錄用戶的用戶名。當session(”username”)=”admin”時，才能顯示“類別管理”和“用戶管理”超級鏈接。從程序中可以看到，各項管理功能對應的頁面如下：(1)更改密碼pwdchange.asp；(2)類別管理cateadmin.asp；(3)用戶管理userlist.asp；(4)退出登錄logout.asp。變量sql_where用來記錄查詢條件。如果當前用戶是admin，則sql_where=“”，即顯示所有新聞；否則設置查詢條件為“poster=“”&session(“username”)&“”，即只能管理自己創(chuàng)建的新聞。(4)分頁顯示新聞信息下面將根據(jù)指定的新聞類別和頁碼顯示新聞標題列表，代碼如下：% if iflag = then if sql_where = then sql = select * from news order by posttime desc else sql = select * from news where & sql_where & order by posttime desc end if else if sql_where = then sql = select * from news where cateid= & iflag & order by posttime desc else sql = select * from news where cateid= & iflag & and & sql_where & order by posttime desc end if end if rs.open sql,conn,1,1 if rs.eof then response.write 目前還沒有記錄。 elsers.pagesize = 20 page = clng(request(page) if page rs.pagecount then page = rs.pagecountrs.absolutepage = page for i = 1 to rs.pagesize if rs.eof then exit for% a href=newsview.asp?id= onclick=return newwin(this.href) a href=newsedit.asp?id= onclick=return newwin(this.href)修 改 input type=checkbox name=news id= style=font-size: 9pt value=on 1 then response.write 分頁： for i = 1 to rs.pagecount response.write response.write & i & next response.write end if end if%這部分代碼的關鍵部分是根據(jù)新聞類別和用戶類型生成select語句，查詢指定的新聞記錄。在調試程序時，可以使用下面的語句顯示select語句的內容。response.write sql29第四章 新聞查詢管理4.1 新聞查詢管理如果系統(tǒng)中新聞數(shù)量比較多，那么只按照分類察看新聞顯然是不夠的。為了方便網友使用，本站中設計了新聞管理功能。新聞查詢管理頁面的腳本是search.asp，運行界面如圖所示可以看到，新聞查詢可以分為下面幾種情況： (1)按發(fā)布日期查詢。 (2)查詢新聞標題和新聞內容中包括的文字。在search.asp中，用于編輯查詢條件的表單為form1，它的定義代碼如下：當表單數(shù)據(jù)提交時，將執(zhí)行searchresult.asp。為了驗證用戶錄入數(shù)據(jù)的有效性，在search.asp中定義了一些函數(shù)，下面介紹這些函內容。1isempty()函數(shù)isempty()函數(shù)的功能是判斷字符串是否為空，代碼如下：function isempty (str) if (str=null)|(str.length=0) return true;else return(false);參數(shù)str表示要判斷的字符串，如果它為空或長度為0則返回true，否則返回false。2isdigital()函數(shù)isdigital()函數(shù)的功能是判斷字符串是否是數(shù)字類型，代碼如下：function isdigit(s)var patrn=/0-91,20$/;if (!patrn.exec(s) return falsereturn true參數(shù)s表示要判斷的字符串。變量patrn是一個正則表達式，正則表達式是由普通字符以及特殊字符組成的文字模式。該模式描述在查找文字主體時待匹配的一個或多個字符串。正則表達式作為一個模板，將某個字符模式與所搜索的字符串進行匹配。正則表達式中的execute方法對指定的字符串執(zhí)行正則表達式搜索。/表示正則表達式的開始，$/表示正則表達式的結束，09表示以09的數(shù)字為開始和結束，1,20表示長度為120。3isint()函數(shù)isint()函數(shù)的功能是判斷指定的字符串是否是整型數(shù)據(jù)，代碼如下：function isint (thestr) var flag = true;if (isempty(thestr) flag=false; else for (var i=0; ithestr.length; i+) if (isdigit(thestr.substring(i,i+1) = false) flag = false; break;return(flag);參數(shù)thestr表示要判斷的字符串。如果thestr為空，則返回false；否則對thestr中的每個字符進行判斷，如果有一個字符不是數(shù)字類型(使用isdigital函數(shù)判斷)則返回false。如果上述情況都沒有返回false，則返回true。4.isbetween(、)函數(shù)isbetween()函數(shù)的功能是判斷指定數(shù)據(jù)是否在兩個數(shù)字之間，代碼如下：function isbetween (val, lo, hi) if (val hi) return(false); else return(true); 參數(shù)val表示要比較的數(shù)值，參數(shù)lo表示比較范圍的下限，參數(shù)hi表示比較范圍的上限。程序將val與lo、hi進行比較，如果val的值不在它們之間，則返回false，否則返回true。5isidate()函數(shù)isdate()函數(shù)的功能是判斷指定數(shù)據(jù)是否是日期型數(shù)據(jù)，代碼如下：function isdate (thestr) var the1st = thestr.indexof(-);var the2nd = thestr.lastindexof(-);if (the1st = the2nd) return(false); else var y = thestr.substring(0,the1st);var m = thestr.substring(the1st+1,the2nd);var d = thestr.substring(the2nd+1,thestr.length);var maxdays = 31;if (isint(m)=false | isint(d)=false | isint(y)=false) return(false);else if (y.length 0) maxdays = 28;else if (y % 100 = 0 & y % 400 0) maxdays = 28;else maxdays = 29;if (isbetween(d, 1, maxdays) = false) return(false); else return(true); 可以看到前面定義的函數(shù)都是為了實現(xiàn)isdate()函數(shù)的功能。在search.asp中，定義“開始”按鈕的代碼如下：當用戶單擊“開始”按鈕時，將觸發(fā)onclick事件，并執(zhí)行button2_onclick()函數(shù)，代碼如下：function button2_onclick() / 字段不能都為空，如果發(fā)布日期為空，則查詢條件不能空 if (form1.sdate.value= & form1.edate.value= & form1.searchcontent.value = ) alert(查詢條件不能都為空！); form1.searchcontent.focus(); return (false); / 檢查日期格式是否正確 if (form1.sdate.value.length0) if(!isdate(form1.sdate.value) alert(開始日期格式不正確，請重新輸入！);form1.sdate.focus();return (false); if (form1.edate.value.length0) if(!isdate(form1.edate.value) alert(截至日期格式不正確，請重新輸入！);form1.edate.focus();return (false);這段程序將判斷用戶輸入的查詢條件是否為空，并使用自定義函數(shù)isdate()驗證日期是否有效。下面介紹searchresult.asp的實現(xiàn)方法。它的主要功能是根據(jù)用戶提交的查詢條件生成select語句，并以表格的形式顯示查詢結果。在searchresuit.asp中，定義了一個函數(shù)getusername()，它的功能是根據(jù)用戶名返回用戶的真實姓名，代碼如下：這里使用getusername()函數(shù)的作用是取得新聞提交人的姓名，并在查詢結果中顯示。如果將本系統(tǒng)用于企業(yè)內部的新聞發(fā)布平臺，則通常需要顯示提交人姓名。如果不需要此功能，也可以將相關代碼去掉。searchresult.asp的最重要部分就是生成查詢新聞的select語句，代碼如下：0 and len(edate)0 thenstrsqlptime = where posttime= & sdate & strsqlptime = strsqlptime & and posttime0 and len(edate)=0 thenstrsqlptime = where posttime= & sdate & elseif len(sdate)=0 and len(edate)0 thenstrsqlptime = where posttime= & edate & end if 取得查詢模式（精確查詢或模糊查詢），參見search.asp中的定義 searchcontent1 = request(searchcontent) fanwei = request(fanwei) if fanwei =all then 精確查詢searchcontent = searchcontent1 else 模糊查詢searchcontent = % & searchcontent1 & % end if 取得查詢范圍值 searchfanwei = request(d1) if searchfanwei=title then 只在新聞標題中查詢response.write 按 信息標題 查詢的結果strsql = title like & searchcontent & order by posttime desc elseif searchfanwe=content then 只在新聞內容中查詢response.write 按 信息內容 查詢的結果strsql = content like & searchcontent1 & order by posttime desc end if 合并查詢條件 if len(strsqlptime)=0 then strsql = where & strsql elsestrsql = strsqlptime & and & strsql end if 記錄查找到的新聞序號 dim ncnt ncnt = 0 輸出表格 response.write response.write response.write 序號 response.write 信息標題 response.write 所屬類別 response.write 內容長度 response.write 提交人 response.write 提交時間 response.write dim rssearch,rscate set rssearch= server.createobject(adodb.recordset) set rscate = server.createobject(adodb.recordset) 生成查詢語句 strsql = select * from news & strsql response.write sql :& strsql rssearch.open strsql, conn, 1, 3以上代碼的工作過程如下：根據(jù)參數(shù)sdate和edate生成與日期相關的查詢條件；根據(jù)查詢模式(精確查詢或模糊查詢)生成相關的查詢條件。如果是精確查詢，則使用“=”；如果是模糊查詢，則使用like和通配符；根據(jù)查詢范圍生成相關的查詢