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

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

畢業(yè)設(shè)計(jì)----基于web的學(xué)校新聞發(fā)布系統(tǒng)_第1頁

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

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

文檔簡介

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

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

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

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

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

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

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

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

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

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

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

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

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

14、　　數(shù)據(jù)只有用數(shù)據(jù)庫來管理才能有自動(dòng)化管理的可能。數(shù)據(jù)的結(jié)構(gòu)將影響整個(gè)管理機(jī)制的應(yīng)用，而且一但建立以后要修改常會(huì)出現(xiàn)麻煩。所以一開始就要仔細(xì)慎重地搭建一個(gè)完整而合理的結(jié)構(gòu)。Microsoft Access數(shù)據(jù)庫相對(duì)其它的數(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)前臺(tái)模塊

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

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

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

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

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

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

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

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

27、下是一級(jí)新聞添加的部分源代碼　　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 二級(jí)新聞管

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

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

35、rm method=post action="admin_AdminSave.asp"> 　　//這個(gè)form對(duì)象是指當(dāng)提交添加資料時(shí)就會(huì)調(diào)用admin_AdminSave.asp這個(gè)文件把信息添加到數(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="超級(jí)管理員" 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">管理帳號(hào)：</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>超級(jí)管理員</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新聞錄入管理　　點(diǎn)擊管理首頁的新聞添加進(jìn)入新聞所屬大類欄目，和小類欄目的選擇，確定進(jìn)入新聞內(nèi)容添加界面如下圖：</p

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

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

69、附件。　　3.3.7 整體新聞管理　　此版快可以對(duì)所有發(fā)表過的文章進(jìn)行編輯和刪除其中編輯的代碼為：　　<%　　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("新聞標(biāo)題沒有填寫.");

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、;*新聞標(biāo)題：</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">*新聞?lì)悇e：</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 "請(qǐng)先添加欄目。"

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">是否設(shè)為首頁圖片新聞：</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;　　否　選擇此項(xiàng)時(shí)請(qǐng)注意文章中是否添加有圖片！</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ā)表評(píng)論　　用戶可以對(duì)新聞發(fā)表自己的評(píng)論：

143、　　實(shí)現(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è)設(shè)計(jì)

溫馨提示

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

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

文檔簡介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載