畢業(yè)設計----基于web的學校新聞發(fā)布系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-02 格式：docx 頁數(shù)：38 大?。?28.07KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩37頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領

文檔簡介

1、　　§1 新聞發(fā)布系統(tǒng)概述　　1. 1 基于web的新聞發(fā)布系統(tǒng)設計的提出　　伴隨著網(wǎng)絡的出現(xiàn)，網(wǎng)頁逐漸融入人們的生活?？焖偌皶r的新聞瀏覽，五彩繽紛的網(wǎng)上信息，使網(wǎng)絡與人們的生活息息相關，于是世界上又出現(xiàn)了第三媒體——Internet。它打破了地域限制，真正使信息得以共享，改變了人們的工作和生活方式。制作網(wǎng)頁是企業(yè)和個人的

2、宣傳自己的重要手段，同時也是學習者獲取學習信息的重要手段。尤其是在教育領域，在素質(zhì)教育與終身教育成為必然的今天，人們對信息的需求有了更新，更高的要求，而網(wǎng)頁由于本身所具有的信息量大，傳遞快速，沒有時空限制等特點恰好滿足這種要求。所以網(wǎng)頁也逐漸成為一種新興的教育資源。也正是由于網(wǎng)絡實現(xiàn)網(wǎng)站的數(shù)據(jù)信息能夠進行實時交互，保證網(wǎng)站數(shù)據(jù)的實時性。　　隨著Internet的進一步發(fā)展,靜態(tài)Web站點的開發(fā)與

3、維護變得越來越困難,一方面信息的不斷增加和變化,使站點維護人員不得不經(jīng)常修改他們的網(wǎng)頁,特別是基于數(shù)據(jù)庫驅(qū)動的Web站點更是如此，隨著Internet上信息量的增多和交互性的加強使HTML顯得越來越難以勝任。另一方面靜態(tài)網(wǎng)頁由于不能與瀏覽者進行有效交互,使人們感到越來越乏味,而不愿意再一次地進入同一站點。所以開發(fā)動態(tài)網(wǎng)頁或動態(tài)內(nèi)容成了越來越多的站點所追求目標。所謂動態(tài)內(nèi)容是由每一個用戶按照自己的需求發(fā)出請求而特殊制作的Web網(wǎng)頁。<

4、;/p>　　網(wǎng)絡發(fā)展前景無限，及早與網(wǎng)絡結(jié)合，與信息時代同步，與高科技匯合，定會給社會各行各業(yè)的發(fā)展注入新鮮的活力。站在網(wǎng)絡時代的前夜，我們清晰地聽到了網(wǎng)絡時代的宣言：誰掌握了網(wǎng)絡，誰就掌握了未來。　　隨著計算機技術的發(fā)展，網(wǎng)絡技術對我們生活和工作顯得越來越重要，特別是現(xiàn)在信息高度發(fā)達的今天，人們對最新信息的需求和發(fā)布迫切的需要及時性。而動態(tài)交互式網(wǎng)頁剛好提供了這些功

5、能，本系統(tǒng)就是一個能夠在網(wǎng)上實現(xiàn)新聞的網(wǎng)上多用戶發(fā)布，多欄目管理，實時的進行行為統(tǒng)計和記錄的網(wǎng)上交互系統(tǒng)。　　1. 2 新聞發(fā)布系統(tǒng)的需求分析　　從經(jīng)濟可行性角度考慮，這時所說的經(jīng)濟，并不專指物質(zhì)經(jīng)濟，當然也包括效益經(jīng)濟。要運行基于WEB的校園新聞發(fā)布系統(tǒng)，當然是必須添加一些網(wǎng)絡及硬件設備，這也就必然比傳統(tǒng)信息傳播在物資設備方面要投入更多財力。從效益經(jīng)

6、濟來看，運行這套在線新聞發(fā)布系統(tǒng)，不光可以省去許多信息傳遞時間，甚至在信息化的今天為信息及時更新，信息及時傳達等帶來不小的便利。綜合上面論述，在線新聞發(fā)布系統(tǒng)的開發(fā)與設計在經(jīng)濟角度來說是利大于弊，是非常值得實施的。　　從技術可行性角度考慮，隨著網(wǎng)絡技術的深入發(fā)展，一些網(wǎng)絡辦公系統(tǒng)，政府服務軟件，在線聊天娛樂軟件等等網(wǎng)絡應用軟件也成功開發(fā)并投入運營了，在社會中產(chǎn)生了不小的社會與經(jīng)濟效益。HTML作

7、為一種樣式語言，隨著Internet上信息量的增多和交互性的加強使HTML顯得越來越難以勝任的情況之下，在ASP編程語言高度發(fā)展的形式下，我們開始了對新聞發(fā)布系統(tǒng)的開發(fā)。運用現(xiàn)在軟件業(yè)流行的技術成熟的ASP、JSP等開發(fā)語言，以及高效率，易操作Visual InterDev等開發(fā)工具，再借鑒別人成功開發(fā)的寶貴經(jīng)驗，在線新聞發(fā)布系統(tǒng)是完全可以開發(fā)出來的。　　1. 3 新聞發(fā)布系統(tǒng)的開發(fā)環(huán)境<

8、;/p>　　1.3.1 硬件條件　　服務器兩臺，一臺為數(shù)據(jù)庫服務器，一臺為Web服務器；客戶端計算機若干；網(wǎng)絡通訊設備，主要包括網(wǎng)卡、集線器、MODEM 等。　　1.3.2 系統(tǒng)平臺　　采用Browser/Server體系結(jié)構(gòu)，服務器端采用Microsoft Windows NT4.0

9、作為網(wǎng)絡操作系統(tǒng)，Web服務器軟件采用IIS3.0（Internet Information Server）?？蛻舳塑浖▎螜C操作系統(tǒng)和瀏覽器軟件，分別選用Windows 2000和Internet Explorer，數(shù)據(jù)庫系統(tǒng)采用Microsoft Access有利于方便操作。　　1.3.3 開發(fā)工具　　基于Web的系統(tǒng)開發(fā)工具應使開發(fā)者使用各種各

10、樣的技術來創(chuàng)建動態(tài)的Web應用程序，并且應是一個可視化的工具。我們采用了DreamweaverMX進行開發(fā)，它是用來快速創(chuàng)建數(shù)據(jù)驅(qū)動Web應用程序的基于團隊的開發(fā)環(huán)境，支持ASP，以ODBC連接數(shù)據(jù)庫，腳本語言為簡單易學的javascript或VBScript。　　1.3.4 運行需求　　正常使用時不應出錯，若運行時遇到不可恢復的系統(tǒng)錯誤，也必須保證數(shù)

11、據(jù)完好無損，對數(shù)據(jù)的精確度、時間特性、適應性等都有一定要求，要求系統(tǒng)運行時能夠保證正確性、可靠性、高效性、完整性、易使用性、可維護性、可測試性、復用性、安全保密性、可移植性、互聯(lián)性。　　§2 系統(tǒng)總體設計　　2. 1 新聞發(fā)布系統(tǒng)功能分析　　2.1.1 前臺新聞顯示

12、0; 可以根據(jù)網(wǎng)站的需要,進行各種方式的插入,自動更新.如顯示欄目導航,顯示某欄目的最新N條新聞等. 使用新聞文章管理系統(tǒng)制作動態(tài)網(wǎng)頁時,可在需要的地方插入相應的代碼,即可以多種形式顯示新聞文章的欄目或內(nèi)容。例如：一級欄目列表、二級欄目列表、欄目導航列表、某一欄目的最新新聞(文章)顯示條數(shù)、某一欄目的熱門文章可任意調(diào)整。該系統(tǒng)也可經(jīng)后繼開發(fā),使之生成JS代碼,在一個主機上維護新聞文章,在其他靜態(tài)網(wǎng)頁中插入代碼后顯示相應的新聞文章。

13、2.1.2 后臺管理1. 新聞欄目管理：增加,修改,刪除一級,二級新聞文章欄目。2．新聞文章添加：按不同欄目添加新聞文章、支持文本、HTM格式或源代碼顯示。　　3．新聞文章刪除：刪除舊的文章。4．新聞文章刪除：在后臺管理系統(tǒng)中上傳一些文章、。5．管理員管理：新聞管理系統(tǒng)的管理員設置。2. 2 新聞發(fā)布系統(tǒng)數(shù)據(jù)庫的設計　　2.2.1數(shù)據(jù)庫的搭建

14、　　數(shù)據(jù)只有用數(shù)據(jù)庫來管理才能有自動化管理的可能。數(shù)據(jù)的結(jié)構(gòu)將影響整個管理機制的應用，而且一但建立以后要修改常會出現(xiàn)麻煩。所以一開始就要仔細慎重地搭建一個完整而合理的結(jié)構(gòu)。Microsoft Access數(shù)據(jù)庫相對其它的數(shù)據(jù)庫來說要簡單容易操作些，本新聞發(fā)布系統(tǒng)中的數(shù)據(jù)庫文件就是Access類型的數(shù)據(jù)庫，數(shù)據(jù)庫中共有五張表如下圖：　　2.2.2新聞發(fā)布系

15、統(tǒng)數(shù)據(jù)庫的連接　　以下是本系統(tǒng)與數(shù)據(jù)庫建立連接的ASP源代碼　　<%　　On Error Resume Next　　set rs=server.createobject("adodb.recordset")&

16、lt;/p>　　set conn=server.createobject("adodb.connection")　　DBPath = Server.MapPath("nxnews.mdb")　　conn.Open "driver={Microsoft Access Driver

17、 (*.mdb)};dbq=" & DBPath %>　　2.2.3數(shù)據(jù)類型　　本系統(tǒng)的數(shù)據(jù)字典如下圖　　表一：　　表二：</

18、p>　　表三：　　表四：　　表五：　　2. 3功能模塊圖　　2.3.1 新聞發(fā)布系統(tǒng)前臺模塊

19、設計圖：　　2.3.2 新聞發(fā)布系統(tǒng)后臺模塊設計圖：　　§3 新聞發(fā)布系統(tǒng)各模塊功能設計　　3. 1前臺新聞顯示　　可以根據(jù)網(wǎng)站的需要,進行各種方式的插入,自動更新.如顯示欄目導航,顯示某欄目的最新N條新聞等. 使用新聞文章管理系統(tǒng)制作動態(tài)網(wǎng)頁時,可在需要的地方

20、插入相應的代碼,即可以多種形式顯示新聞文章的欄目或內(nèi)容。例如：　　一級欄目列表、二級欄目列表、欄目導航列表、某一欄目的最新新聞(文章)顯示條數(shù)、某一欄目的熱門文章可任意調(diào)整。該系統(tǒng)也可經(jīng)后繼開發(fā),使之生成JS代碼,在一個主機上維護新聞文章,在其他靜態(tài)網(wǎng)頁中插入代碼后顯示相應的新聞文章。　　3. 2后臺管理</

21、p>　　1. 新聞欄目管理：增加,修改,刪除一級,二級新聞文章欄目。　　2．新聞文章添加：按不同欄目添加新聞文章、支持文本、HTM格式或源代碼顯示、支持圖片上傳和附件上傳。　　3．新聞文章刪除：刪除舊的文章。　　4．新聞文章刪除：在后臺管理系統(tǒng)中上傳一些文章、上傳圖片等、在前臺查詢這些

22、文章。　　5．管理員管理：新聞管理系統(tǒng)的管理員設置。　　6. 基本項目管理：統(tǒng)計數(shù)據(jù)管理、系統(tǒng)初始化、網(wǎng)站資料管理、服務器信息等。　　3. 3 功能說明　　3.3.1前臺顯示說明如圖所示　　1. 首頁的最頂部排列顯示大類新聞，用

23、戶可以直接點擊查看各項大類新聞里面的各項小類新聞，直到閱讀每條詳細信息。　　2. 今日導讀，焦點新聞，推薦新聞，熱點新聞等各個欄目，后臺可以控制是否顯示，或顯示條數(shù)設置。　　3. 專題顯示可以任意排序，而且可以直接點擊查看相關專題新聞。　　4. 可以按不同條件進行新聞搜索。

24、;　　5. 公告欄顯示最新發(fā)布的各項新聞信息，進入二級目錄還可以閱讀更多信息。　　6. 具有新聞評論功能，從首頁、大小類、專題、到每條新聞，都可以有自己的評論。　　3.3.2管理員的管理　　管理員可以通過后臺登陸界面登陸到系統(tǒng)的后臺并進行管理，后臺登陸頁面為adminlogin.asp打開頁面以后輸入用戶名和密碼

25、通過驗證后即可進入系統(tǒng)，管理員進入系統(tǒng)后可以對已經(jīng)發(fā)表的新聞進行修改，刪除，和發(fā)表新的新聞等權(quán)利，除此之外管理員還可以修改管理員密碼和添加新管理員。　　管理界面如下圖：　　3.3.3 一級新聞管理　　3.3.3.1 從管理首頁的大類管理進入，可以進入大類的一級目錄管理界面。

26、　　3.3.3.2 管理員可以任意的添加、修改、刪除一級新聞，可以對一級新聞進行初始化上拉下拉等操作以及對新聞屬性的各種設置。　　3.3.3.3 通過對一級新聞屬性的設置可以使新聞在首頁顯示或不顯示，是否以列表的形式顯示在首頁等。　　3.3.3.4一級新聞管理界面　　以

27、下是一級新聞添加的部分源代碼　　sql="select * from BigClass"　　rs.open sql,conn,3,3　　do while not rs.eof　　if rs("BigClassname")=typen

28、ame 　　Set rs = Server.CreateObject("ADODB.Recordset")　　sql="select * from BigClass"　　rs.open sql,conn,3,3

29、rs.addnew　　rs("BigClassname")=typename　　rs("BigClassType")=BigClassType　　if BigClassType=0 then　　rs("

30、BigClassView")=0　　else　　rs("BigClassView")=1　　end if　　rs("BigClassID")=ho

31、wmany+1　　rs("BigClassmaster")="無"　　rs.update　　rs.close　　set rs=nothing</p&g

32、t;　　conn.close　　set conn=nothing　　response.redirect "admin_BigClassMana.asp"　　%>　　3.3.4 二級新聞管

33、理　　3.3.4.1 二級新聞管理也類似于一級新聞管理，從管理首頁的二級新聞管理進入，可以進入二級新聞的一級目錄管理界面。　　3.3.4.2 管理員可以任意的添加、修改、刪除小類新聞，可以對二級新聞進行初始化上拉下拉等操作以及對新聞屬性的各種設置。　　3.3.4.3 通過對二級新聞屬性的設置可以使新聞是否以列

34、表的形式顯示在新聞列表中。　　3.3.4.4 在添加二級新聞目錄時，必須選種一項一級新聞目錄下才能添加二級新聞目錄。 　　3.3.4.5二級新聞管理界面　　3.3.5 用戶管理　　以下是實現(xiàn)管理員添加的源代碼：　　<fo

35、rm method=post action="admin_AdminSave.asp"> 　　//這個form對象是指當提交添加資料時就會調(diào)用admin_AdminSave.asp這個文件把信息添加到數(shù)據(jù)庫。　　<

36、/p>　　<%　　if session("aleave")="" then　　response.redirect "adminlogin.asp"　　response.end<

37、/p>　　end if　　%>　　<html>　　<head>

38、　　<title>校園新聞發(fā)布管理系統(tǒng)</title>　　<meta http-equiv="Content-Type" content="text/html; charset=gb2312">　　<link rel="stylesheet" href=

39、"../css.css" type="text/css">　　</head>　　<body text="#000000" leftmargin="0" topmargin="0" marginw

40、idth="0" marginheight="0">　　<table width="100%" border="0" cellpadding="0" cellspacing="0">　　<tr&

41、gt;　　<td height="50" valign="top">　　<table width="100%" border="0" cellspacing="0" cellpadding="0"&

42、gt;　　<tr>　　<td> </td>　　</tr>　　</table>&l

43、t;/p>　　<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">　　<tr align=&q

44、uot;center" bgcolor="#CCCCCC"> 　　<td width="15%" height="24"> ID</td>　　<td width="15%">用戶</td>

45、　　<td width="20%">密碼(加密)</td>　　<td width="20%">權(quán)限</td>　　<td width="

46、;15%">修改</td>　　<td width="15%">刪除</td>　　</tr>　　<%　　Se

47、t rs=Server.CreateObject("ADODB.RecordSet") 　　sql="select * from admin order by id" 　　rs.Open sql,conn,1,1 　　while not rs.eof

48、　　if rs("aleave")="super" then aleave="超級管理員" end if　　if rs("aleave")="check" then aleave="普通管理員" end if<b

49、>　　%>　　<tr align="center" bgcolor="#FFFFFF"> 　　<td height="22"><%=rs("id")%></td><p

50、>　　<td><%=rs("admin")%></td>　　<td><%=rs("password")%></td>　　<td><%=aleave%></td>

51、　　<td><a href="admin_AdminModify.asp?id=<%=rs("id")%>">修改</a></td>　　<td><a href="admin_AdminDel.asp?id=<%=rs("id")%>&qu

52、ot;>刪除</a></td>　　</tr>　　<%　　rs.movenext　　wend

53、　　rs.close　　set rs=nothing　　%>　　</table> 　　<br&

54、gt;　　<table width="300" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">

55、<tr bgcolor="#CCCCCC"> 　　<td colspan="2">添加管理員：</td> 　　</tr>　　<form name="add" me

56、thod="post" action="admin_adminsave.asp">　　<tr bgcolor="#FFFFFF"> 　　<td align="right" height="22">管理帳號：</td>

57、;　　<td> 　　<input type="text" name="admin" class="form"> </td>　　</tr></b&

58、gt;　　<tr bgcolor="#FFFFFF"> 　　<td align="right">管理權(quán)限：</td> 　　<td> 　　<s

59、elect name="aleave" class="input">　　<option value=super selected>超級管理員</option> 　　<option value=check>普通管理員</option> &

60、lt;p>　　</select>　　</td>　　</tr>　　<tr bgcolor="#FFFFFF"> </p&g

61、t;　　<td align="right" height="22">管理密碼：</td>　　<td> 　　<input type="password" name="password&q

62、uot; class="form"> </td>　　</tr>　　<tr bgcolor="#CCCCCC"> 　　<td colspan="2" align=&quo

63、t;center"> 　　<input type="submit" name="Submit" value="確定"> 　　<input type="hidden" name="act" value="add&

64、quot;>　　</td>　　</tr>　　</form>　　</table><

65、/b>　　 　　</td>　　</tr>　　</table>

66、　　</body>　　</html>　　3.3.6新聞錄入管理　　點擊管理首頁的新聞添加進入新聞所屬大類欄目，和小類欄目的選擇，確定進入新聞內(nèi)容添加界面如下圖：</p

67、>　　1. 新聞添加界面設有一系列添加新聞時需要選擇和填寫的屬性：　　在界面的開頭顯示新聞添加的位置，主要是新聞所屬的大類和小類名稱。　　2. 添加的新聞可以選擇屬于哪個專題，也可不屬于任何專題。　　3. 可以注明所添加新聞的來源和作者。　　4

68、. 還設有新聞編輯框，可進行可視化新聞添加，可以粘貼網(wǎng)頁任意圖片、表格、文字，就象WORD一樣方便，可以選擇HTML語法書寫。　　5. 可以設定相關新聞，以及添加新聞的性質(zhì)，如可以選擇此新聞在焦點新聞、推薦新聞、熱點新聞等首頁欄目顯示，并且可以使此條新聞固定的顯示于最新新聞列表中。　　6. 添加新聞的同時可根據(jù)你的需要上傳你的一個或多個圖片，可以上傳新聞

69、附件。　　3.3.7 整體新聞管理　　此版快可以對所有發(fā)表過的文章進行編輯和刪除其中編輯的代碼為：　　<%　　if session("aleave")="" then

70、　　response.redirect "adminlogin.asp"　　response.end　　end if　　%>　　&l

71、t;%　　if request("no")="modi" then　　newsid=request("newsid")　　title=request("title")　　B

72、igClassName=request("BigClassName")　　SmallClassName=request("SmallClassName")　　mContent = trim(Request.form("cnWords")) 　　mCont

73、ent = Replace(mContent,"<script","<sscript") 　　mContent = Replace(mContent,"/script>","/scripts>")　　mContent = Replace(mConten

74、t,"/script >","/scripts>")　　mimageNum = Request.form("imageNum")　　firstImageName = trim(Request.form("editFirstImageName"))

75、;　　user=request("user")　　ok=request("ok")　　set rs=server.createobject("adodb.recordset")　　sql="select * from NE

76、WS where id="&newsid　　rs.open sql,conn,1,3　　rs("title")=title　　rs("content")=mcontent　　rs("user")

77、=user　　rs("BigClassName")=BigClassName　　rs("SmallClassName")=SmallClassName　　if ok<>"" then rs("ok") = ok</p

78、>　　if mimageNum<>"" then rs("imageNum") = mimageNum 　　if firstImageName<>"" then rs("firstImageName") = firstImageName<

79、;p>　　rs.update　　rs.close　　set rs=nothing　　response.write "<script language='javascript'>" &a

80、mp; chr(13)　　response.write "alert('新聞修改成功！');" & Chr(13)　　response.write "window.document.location.href='admin_info.asp';"&Chr(13)<

81、;/p>　　response.write "</script>" & Chr(13)　　Response.End　　end if%>　　<%

82、;　　dim rs　　dim sql　　dim count　　set rs=server.createobject("adodb.recordset")<

83、;/p>　　sql = "select * from SmallClass order by SmallClassID asc"　　rs.open sql,conn,1,1　　%>　　<script language

84、 = "JavaScript">　　var onecount;　　subcat = new Array();　　<%　　count = 0&

85、lt;p>　　do while not rs.eof 　　%>　　subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs(&

86、quot;BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");　　<%　　count = count + 1　　rs.movenext

87、　　loop　　rs.close　　%>　　onecount=<%=count%>;　　funct

88、ion changelocation(locationid)　　{　　document.addNEWS.SmallClassName.length = 1; 　　var locationid=locationid;

89、　var i;　　for (i=0;i < onecount; i++)　　{　　if (subcat[i][1] == locationid)　　{

90、;　　document.addNEWS.SmallClassName.options[document.addNEWS.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);　　} 　　}&

91、lt;/b>　　} 　　function CheckForm()　　{　　document.addNEWS.cnWords.value = document.frames.cnEdit

92、Box.getHTML(true); 　　document.addNEWS.imageNum.value = document.frames.cnEditBox.document.all("editImageNum").value;　　document.addNEWS.editFirstImageName.value = do

93、cument.frames.cnEditBox.document.all("editFirstImageName").value;　　if (document.addNEWS.title.value.length == 0) {　　alert("新聞標題沒有填寫.");

94、document.addNEWS.title.focus();　　return false;　　}　　if (document.addNEWS.user.value.length == 0) {　　alert("新聞發(fā)布人沒

95、有填寫");　　document.addNEWS.user.focus();　　return false;　　}　　return true;　　}

96、;　　</script>　　<html>　　<head>　　<meta http-equiv="Conte

97、nt-Type" content="text/html; charset=gb2312">　　<link href="../css.css" rel="stylesheet" type="text/css">　　<title>添加新聞&

98、lt;/title>　　</head>　　<body leftmargin="0" topmargin="0" bgcolor="#FFFFEE">　　<% &l

99、t;/b>　　newsid=request("id")　　Set rso=Server.CreateObject("ADODB.RecordSet") 　　sql="select * from NEWS where id="&newsid

100、　　rso.Open sql,conn,1,1　　if rso.eof and rso.bof then　　response.Write("沒有記錄")　　else<

101、b>　　%>　　<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2">　　<form name="

102、;addNEWS" method="post" action="admin_infomodi.asp?no=modi" onSubmit="return CheckForm();">　　<tr align="center" bgcolor="#FFFFEE"> <

103、/p>　　<td height="30" colspan="2">修改新聞</td>　　</tr>

104、;　　<tr> 　　<td width="20%" height="24" align="right" bgcolor="#FFFFEE">

105、;*新聞標題：</td>　　<td width="80%" valign="top" bgcolor="#FFFFEE">　 　　<input name="title" type="text" cla

106、ss="input" value="<%=rso("title")%>" size="30"></td>　　</tr>　　<tr> </p&

107、gt;　　<td height="24" align="right" bgcolor="#FFFFEE">*新聞類別：</td>　　<td valign="top"

108、 bgcolor="#FFFFEE">　　<%　　if session("aleave")="check" then　　response.write rso("BigClassName"

109、;) & "<input name='BigClassName' type='hidden' value='" & rso("BigClassName") & "'>>>"　　else

110、　　sql = "select * from BigClass"　　rs.open sql,conn,1,1　　if rs.eof and rs.bof then　　response.write "請先添加欄目。"

111、;　　else　　%>　　<select name="BigClassName" onChange="changelocation(document.addNEWS.BigClassName.options[docu

112、ment.addNEWS.BigClassName.selectedIndex].value)" size="1">　　<%　　do while not rs.eof　　%></p&g

113、t;　　<option <% if rs("BigClassName")=rso("BigClassName") then response.Write("selected") end if%> value="<%=trim(rs("BigClassName"))%>"><%

114、=trim(rs("BigClassName"))%></option>　　<%　　rs.movenext　　loop　　end if

115、　　rs.close　　%>　　</select> 　　<%<b&

116、gt;　　end if　　if session("aleave")="check" then　　response.write rso("SmallClassName") & "<input name='SmallClassName' t

117、ype='hidden' value='" & rso("SmallClassName") & "'>"　　else　　%>

118、<select name="SmallClassName">　　<option value="" <%if rso("SmallClassName")="" then response.write "selected"%>>不指定小類</option>

119、;　　<%　　sql="select * from SmallClass where BigClassName='" & rso("BigClassName") & "'"

120、rs.open sql,conn,1,1 　　if not(rs.eof and rs.bof) then 　　do while not rs.eof %> 　　<option <% if rs("SmallClassName")=rso("SmallClassN

121、ame") then response.Write("selected") end if%> value="<%=rs("SmallClassName")%>"><%=rs("SmallClassName")%></option>　　<

122、%　　rs.movenext　　loop　　end if　　rs.close

123、　%>　　</select> 　　<%　　end if　　%> </td><

124、b>　　</tr>　　<tr> 　　<td align="right" valign="top" bgcolor="#FFFFEE"><font color="#FF0000&qu

125、ot;>*新聞內(nèi)容：</td>　　<td valign="top" bgcolor="#FFFFEE"> 　　<IFRAME STYLE="border: none" NAME=cnEditBox src="EditBox.

126、asp?newsId=<%=newsId%>" WIDTH=100% HEIGHT=330></IFRAME></td>　　</tr>　　<tr> 　　<t

127、d height="24" align="right" bgcolor="#FFFFEE">*發(fā)布人：</td>　　<td valign="top" bgcolor="#FFFFEE

128、">　 　　<input name="user" type="text" class="input" size="30" value="<%=rso("user")%>"></td>&

129、lt;b>　　</tr>　　<tr> 　　<td height="24" align="right" bgcolor="#FFFFEE">是否設為首頁圖片新聞：</td></p&

130、gt;　　<td bgcolor="#FFFFEE">　 　　<input type="radio" value="True" <%if rso("ok")=True then Response.Write "checked"%> name=&

131、quot;ok">是 　　<input type="radio" value="False" <%if rso("ok")=False then Response.Write "checked"%> name="ok"><p&g

132、t;　　否　選擇此項時請注意文章中是否添加有圖片！</td>　　</tr>　　<tr align="center"> <p&g

133、t;　　<td height="35" colspan="2" bgcolor="#FFFFEE"> 　　<input type="submit" name="Submit" value="提交" class="input"><

134、/p>　　<input type="hidden" name="newsId" value="<%=newsId%>">　 　　<input type="reset" name="Submit2" value="重置"

135、class="input"> 　　　　<input name=cnWords type=hidden ID="cnWords" value=""> <input name=imageNum type=hidden ID=&

136、quot;imageNum" value="<%=mImageNum%>"> 　　<input name=editFirstImageName type=hidden ID="editFirstImageName" value=""> 　　<!--獲

137、取EditBox的內(nèi)容-->　　</td>　　</tr>　　</form>　　</table

138、>　　<% End If　　rso.close　　set rso=nothing　　%><

139、p>　　刪除使用的代碼為：　　<%　　set rs=server.CreateObject("ADODB.RecordSet")　　rs.open "delete * from NEWS wher

140、e id="&request.QueryString("id"),conn,1　　set rs=nothing　　response.write "<script language='javascript'>" & chr(13)<p

141、>　　response.write "alert('成功刪除！');" & Chr(13)　　response.write "window.document.location.href='admin_info.asp';"&Chr(13)　　response.w

142、rite "</script>" & Chr(13)　　Response.End　　%>　　3.3.8 發(fā)表評論　　用戶可以對新聞發(fā)表自己的評論：

143、　　實現(xiàn)此模塊的代碼為：　　<%dim id,action　　id=request.QueryString("id")　　action=request.QueryString("action")　　if action=&quo

144、t;save" then　　set rs=server.CreateObject("adodb.recordset")　　rs.open "select * from shop_pinglun",conn,1,3　　rs.addnew</b

145、>　　rs("id")=id　　rs("pinglunname")=HTMLEncode2(trim(request("pinglunname")))　　rs("pingluncontent")=HTMLEncode2(trim

146、(request("pingluncontent")))　　rs("pinglundate")=now()　　rs.update　　rs.close　　se

147、t rs=nothing　　response.write " <table width=96% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=86 bgcolor=#F5F5F5><div align=center>&

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

畢業(yè)設計----基于web的學校新聞發(fā)布系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載