畢業(yè)設(shè)計(jì)---校園新聞管理系統(tǒng)的設(shè)計(jì)

1、<p><b>　　第一章 緒論</b></p><p>　　1.1 設(shè)計(jì)背景與目的</p><p>　　隨著信息時(shí)代的高速發(fā)展，傳統(tǒng)的報(bào)紙雜志已經(jīng)遠(yuǎn)遠(yuǎn)滿足不了人們的需求，人們更加希望于能夠在網(wǎng)上了解更多的新聞和信息，于是我們就很有必要在網(wǎng)上創(chuàng)建一個(gè)新聞發(fā)布管理信息系統(tǒng)了。針對(duì)現(xiàn)在我們的上網(wǎng)環(huán)境，在線發(fā)布新聞、動(dòng)態(tài)生成新聞網(wǎng)頁(yè)、為新聞添加搜索查找功能是必不可

2、少的。本系統(tǒng)制作過(guò)程中基于windows server2000平臺(tái)，采用SQL SERVER 2000編寫(xiě)數(shù)據(jù)庫(kù)，使用網(wǎng)頁(yè)制作工具dreamweaver8.0制作動(dòng)態(tài)網(wǎng)頁(yè)（ASP）文件，利用ＡＳＰ與數(shù)據(jù)庫(kù)結(jié)合的技術(shù)建立數(shù)據(jù)庫(kù)管理系統(tǒng)，生成交互式的動(dòng)態(tài)的web頁(yè)面，完成新聞管理系統(tǒng)。 </p><p><b>　　1.2 功能需求</b></p><p>　　本系統(tǒng)給用

3、戶提供了一個(gè)合理管理WEB新聞的平臺(tái)。也提供了快速瀏覽新聞的平臺(tái)。</p><p>　　系統(tǒng)管理員的主要功能要求：</p><p>　　用戶管理模塊，包括用戶刪除，修改，添加。</p><p><b>　　新聞錄入模塊。</b></p><p>　　新聞管理模塊，包括新聞刪除，新聞修改。</p><

4、p>　　新聞瀏覽的主要功能要求：</p><p>　　新聞列表模塊，包括按時(shí)間顯示列表，按類別顯示列表。</p><p><b>　　新聞瀏覽模塊。</b></p><p>　　新聞搜索和查找模塊，包括按作者查詢、按標(biāo)題查詢等。</p><p><b>　　1.3 性能需求</b></p

5、><p>　　為適應(yīng)大眾瀏覽速度和管理員方便管理，本系統(tǒng)的界面要求簡(jiǎn)單、明朗。</p><p>　　系統(tǒng)涉及到用戶信息，因此對(duì)安全性要求高一些。系統(tǒng)采用權(quán)限技術(shù)，保證系統(tǒng)安全可靠。</p><p><b>　　1.4運(yùn)行環(huán)境</b></p><p><b>　　硬件環(huán)境</b></p>&

6、lt;p><b>　　服務(wù)器端</b></p><p>　　服務(wù)器端的最低配置是由建立站點(diǎn)所需的軟件來(lái)決定的，在最低配置的情況下，服務(wù)器的性能往往不盡如人意，現(xiàn)在的硬件性能已經(jīng)相當(dāng)出色，而且價(jià)格也很便宜，因此我們通常在服務(wù)器端配置高性能硬件。</p><p>　　本新聞管理系統(tǒng)服務(wù)器端的配置如表1.1所示：</p><p><b&g

7、t;　　（表1.1）</b></p><p><b>　　軟件環(huán)境</b></p><p><b>　　服務(wù)器端</b></p><p>　　操作系統(tǒng)：Windows xp</p><p>　　網(wǎng)絡(luò)協(xié)議：TCP/IP</p><p>　　WEB服務(wù)器：IIS 5.

8、1</p><p>　　數(shù)據(jù)庫(kù)：Microsoft SQL 2000</p><p>　　瀏覽器：Internet Explore 6.0</p><p>　　第二章 開(kāi)發(fā)工具介紹</p><p>　　2.1 ASP簡(jiǎn)介</p><p>　　Active Server Pages：“動(dòng)態(tài)服務(wù)器網(wǎng)頁(yè)”，一般簡(jiǎn)稱為“A

9、SP”， 是1996年由Microsoft推出的運(yùn)行于服務(wù)器端的WEB應(yīng)用程序開(kāi)發(fā)技術(shù)，ASP之所以能受到大家的重視與使用的原因，主要在于所產(chǎn)生的執(zhí)行結(jié)果都是標(biāo)準(zhǔn)的HTML格式，而且這些程序是在網(wǎng)絡(luò)服務(wù)端中執(zhí)行，使用一般的瀏覽器（如IE 或Netscape）都可以正確地獲得ASP的“執(zhí)行”結(jié)果，并且將這ASP執(zhí)行的結(jié)果直接在瀏覽器中“瀏覽”，不像VBScript或 JavaScript是在客戶端（Client）的瀏覽器上執(zhí)行，若使用VB

10、Script來(lái)設(shè)計(jì)程序，客戶端（client）在ＩＥ瀏覽器中可以顯示程序執(zhí)行的結(jié)果，可是，客戶端（client）若使用Netscape瀏覽器就無(wú)法顯示VBScript的執(zhí)行結(jié)果。</p><p>　　ASP動(dòng)態(tài)網(wǎng)頁(yè)處理過(guò)程概述：</p><p>　?。?）用戶向Web服務(wù)器傳送一個(gè).asp頁(yè)面請(qǐng)求。</p><p>　?。?）服務(wù)器接到請(qǐng)求后根據(jù).asp擴(kuò)展名判斷用

11、戶要瀏覽的是一個(gè)ASP文件。</p><p>　　（3）服務(wù)器從內(nèi)存或硬盤(pán)中讀取相應(yīng)的ASP文件。</p><p>　?。?）ASP程序被傳送給服務(wù)器上的asp.dll并編譯運(yùn)行，產(chǎn)生標(biāo)準(zhǔn)的HTML文件。</p><p>　?。?）產(chǎn)生的HTML文件作為用戶請(qǐng)求的響應(yīng)傳回給用戶端瀏覽器，用戶端瀏覽器進(jìn)行解釋運(yùn)行。</p><p>　　根據(jù)以上

12、步驟不難看出，Web父親處理ASP頁(yè)面比處理靜態(tài)HTML頁(yè)面多了一個(gè)程序編譯步驟，而對(duì)于用戶端來(lái)說(shuō)，瀏覽HTML頁(yè)面和瀏覽ASP頁(yè)面幾乎沒(méi)有任何區(qū)別。因?yàn)閭骰乜蛻舳说某绦蚨际菢?biāo)準(zhǔn)的HTML文件，因而完全沒(méi)有必要擔(dān)心用戶的瀏覽器是否支持所編寫(xiě)的ASP程序，并且ASP適用于任何瀏覽器。</p><p>　　值得一提的，以上的ASP處理流程也是經(jīng)過(guò)簡(jiǎn)化的，實(shí)際應(yīng)用中可能還會(huì)涉及到諸如FORM消息提交、ASP頁(yè)面的動(dòng)態(tài)產(chǎn)

13、生、數(shù)據(jù)庫(kù)操作等一系列復(fù)雜的問(wèn)題。此外Web服務(wù)器并不是在接到每一個(gè)ASP頁(yè)面請(qǐng)求后都會(huì)重新編譯，如果某個(gè)頁(yè)面再次接收到和前面完全相同的請(qǐng)求是，服務(wù)器會(huì)直接去緩沖區(qū)中讀取編譯的結(jié)果，而不會(huì)重新運(yùn)行。</p><p>　　本系統(tǒng)是在Windows XP系統(tǒng)上開(kāi)發(fā)的，使用的是Micorosoft IIS 5.1</p><p>　　2.2 Dreamweaver 8介紹</p>

14、<p>　　Macromedia Dreamweaver 8 是一款專業(yè)的 HTML 編輯器，用于對(duì) Web 站點(diǎn)、Web 頁(yè)和 Web 應(yīng)用程序進(jìn)行設(shè)計(jì)、編碼和開(kāi)發(fā)。利用 Dreamweaver 中的可視化編輯功能，可以快速創(chuàng)建 Web 頁(yè)面而無(wú)需編寫(xiě)任何代碼?？梢圆榭此姓军c(diǎn)元素或資源并將它們從易于使用的面板直接拖到文檔中?？梢栽?Macromedia Fireworks 或其它圖形應(yīng)用程序中創(chuàng)建和編輯圖像，然后將它們直

15、接導(dǎo)入 Dreamweaver，從而優(yōu)化開(kāi)發(fā)工作流程。Dreamweaver 還提供了其它工具，可以簡(jiǎn)化向 Web 頁(yè)中添加 Flash 資源的過(guò)程。</p><p>　　Dreamweaver 還提供了功能全面的編碼環(huán)境，其中包括代碼編輯工具（例如代碼顏色、標(biāo)簽完成、“編碼”工具欄和代碼折疊）；有關(guān)層疊樣式表 (CSS)、JavaScript、ColdFusion 標(biāo)記語(yǔ)言 (CFML) 和其它語(yǔ)言的語(yǔ)言參考資

16、料</p><p>　　Dreamweaver 還可以使用服務(wù)器技術(shù)（如 CFML、ASP.NET、ASP、JSP 和 PHP）生成動(dòng)態(tài)的、數(shù)據(jù)庫(kù)驅(qū)動(dòng)的 Web 應(yīng)用程序。</p><p>　　Dreamweaver 8 包括許多新增功能，使我們只需花費(fèi)最少的時(shí)間和精力便可生成 Web 站點(diǎn)和應(yīng)用程序。Dreamweaver 使復(fù)雜的技術(shù)變得簡(jiǎn)單而方便，以幫助我們達(dá)到事半功倍的效果。<

17、;/p><p>　　下面是 Dreamweaver 8 中的一些主要新增功能：</p><p>　　“縮放”工具和輔助線 </p><p>　　可視化 XML 數(shù)據(jù)綁定 </p><p>　　新的 CSS 樣式面板 </p><p>　　CSS 布局的可視化 </p><p><b>　　

18、代碼折疊 </b></p><p><b>　　“編碼”工具欄 </b></p><p><b>　　后臺(tái)文件傳輸 </b></p><p>　　“插入 Flash 視頻”命令</p><p>　　2.3 SQL2000介紹</p><p>　　Microsoft

19、 SQL Server 2000是美國(guó)微軟公司推出的使用相當(dāng)廣泛的數(shù)據(jù)庫(kù)管理系統(tǒng)，包含一套圖形工具，如服務(wù)器管理（用于啟動(dòng)和關(guān)閉數(shù)據(jù)庫(kù)服務(wù)）、企業(yè)管理器（用于創(chuàng)建和修改數(shù)據(jù)庫(kù)及備份數(shù)據(jù)庫(kù)等）和查詢分析器（用于交互執(zhí)行Transact-SQL 語(yǔ)句和過(guò)程并提供圖形查詢分析功能）等。</p><p>　　SQL Server 2000是為迅速提供可伸縮性電子商務(wù)、企業(yè)及數(shù)據(jù)倉(cāng)庫(kù)解決方案而開(kāi)發(fā)的完整數(shù)據(jù)庫(kù)與分析軟件產(chǎn)品

20、。SQL SERVER 2000定位于Internet背景下的數(shù)據(jù)庫(kù)應(yīng)用，它為用戶的Web應(yīng)用提供了一款完善的數(shù)據(jù)管理和數(shù)據(jù)分析解決方案。同時(shí)SQL SERVER 2000還是Windows DNA（Distributed Internet Architecture）架構(gòu)的一個(gè)核心組件。它極大地縮短了用戶開(kāi)發(fā)電子商務(wù)、數(shù)據(jù)倉(cāng)庫(kù)應(yīng)用的時(shí)間。SQL SERVER 2000還提供對(duì)XML(Extensible Markup Language擴(kuò)

21、展標(biāo)示語(yǔ)言支持)和HTTP的全方位支持。</p><p>　　在高性能和企業(yè)級(jí)可伸縮性領(lǐng)域，SQL Server 2000 設(shè)計(jì)成利用 Windows xp 對(duì)更多處理器、更大的系統(tǒng)內(nèi)存的支持，最終達(dá)到支持 64 位硬件平臺(tái)。在不斷提升可用性的努力過(guò)程中，SQL Server 2000 采用 Windows xp 四路群集，提供了大大改進(jìn)的群集支持。SQL Server 7.0 已經(jīng)在可管理性和易用性方面在行業(yè)內(nèi)

22、領(lǐng)先，SQL Server 2000 通過(guò)與 Windows xp 活動(dòng)目錄緊密結(jié)合進(jìn)一步改進(jìn)了這些功能。而且，SQL Server 2000 還包含對(duì)現(xiàn)有管理工具和實(shí)用程序的重大改進(jìn)，并引入更具自我調(diào)節(jié)和自我管理的引擎功能。</p><p>　　SQL Server 2000 按照設(shè)計(jì)可以為部署和維護(hù)強(qiáng)大的、易于管理、支持商務(wù)活動(dòng)的 Web 站點(diǎn)提供最好的性能，這些站點(diǎn)可以從事商家和商家之間或商家與客戶之間的交

23、易。在尋求一個(gè)支持您的電子商務(wù)解決方案的數(shù)據(jù)庫(kù)時(shí)，需要考慮的項(xiàng)目包括：可用性、性能、可管理性和價(jià)格。</p><p>　　如上所述，SQL2000 作為數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，所以本系統(tǒng)所采用的數(shù)據(jù)庫(kù)開(kāi)發(fā)工具為SQL2000。</p><p><b>　　2.4開(kāi)發(fā)語(yǔ)言</b></p><p><b>　　(1)HTML</b

24、></p><p>　　HTML(超文本標(biāo)記語(yǔ)言)是制作網(wǎng)頁(yè)的最基本語(yǔ)言，隨著技術(shù)的發(fā)展，不斷推出各種新技術(shù)產(chǎn)品，例如JavaScript、VBScript、ASP等，但它們依然是基于HTML之上的，并沒(méi)有舍棄現(xiàn)有的HTML，它是踏入網(wǎng)頁(yè)制作領(lǐng)域所必需的。HTML編輯工具現(xiàn)在很普遍，要建立一個(gè)擴(kuò)展名為.html的網(wǎng)頁(yè)文件，可以使用Frontpage、Dreamweaver進(jìn)行編輯。</p>&

25、lt;p>　　(2)VBScript語(yǔ)言</p><p>　　VBScript是Visual Basic的簡(jiǎn)化版，它也是ASP的默認(rèn)腳本語(yǔ)言。VBScript是通過(guò)變量、操作符、循環(huán)語(yǔ)句、分支語(yǔ)句、函數(shù)和小程序段，擴(kuò)展了HTML的功能，在HTML網(wǎng)頁(yè)中簡(jiǎn)單地插入VBScript腳本語(yǔ)言，可使靜態(tài)的HTML網(wǎng)頁(yè)成為動(dòng)態(tài)交互式網(wǎng)頁(yè)。</p><p>　　(3)JavaScript語(yǔ)言&l

26、t;/p><p>　　JavaScript是一種解釋的、基于對(duì)象的腳本語(yǔ)言，同C++和Java相比，水染它只具有很少的完全相對(duì)的語(yǔ)言能力，但就其應(yīng)用目的來(lái)講，JavaScript有足夠強(qiáng)大的能力。JavaScript不是任何其他語(yǔ)言的簡(jiǎn)化版，同VBScript一樣，它也是一種寬松型的語(yǔ)言，不必要明確地聲明變量的數(shù)據(jù)類型。</p><p><b>　　(4)SQL語(yǔ)言</b>

27、;</p><p>　　SQL是Structured Language的縮寫(xiě)，它的中文意思是結(jié)構(gòu)化查詢語(yǔ)言。它是定義和訪問(wèn)關(guān)系數(shù)據(jù)庫(kù)的國(guó)際化標(biāo)準(zhǔn)。SQL是用戶與Oracle或其他類型數(shù)據(jù)庫(kù)傳遞信息的語(yǔ)言，即是用戶存取數(shù)據(jù)庫(kù)的命令集。</p><p><b>　　2.5開(kāi)發(fā)環(huán)境配置</b></p><p>　　2.5.1SQL服務(wù)器安裝、配置與

28、管理：</p><p>　　安裝SQL服務(wù)器時(shí)，安裝程序要求你自己分配數(shù)據(jù)庫(kù)所在位置，建議安裝文件和數(shù)據(jù)庫(kù)放在兩個(gè)不同位置，這樣有利于數(shù)據(jù)庫(kù)的安全。在安裝SQL時(shí)，要輸入服務(wù)器的名稱，名稱必須與conn.asp中的名稱一致，要輸入密碼時(shí)，最好是比較復(fù)雜一些，這樣提高系統(tǒng)的安全。</p><p>　　配置SQL服務(wù)器，添加網(wǎng)站數(shù)據(jù)庫(kù)。依次單擊“開(kāi)始”按鈕，指向“設(shè)置”選項(xiàng)，選擇“控制面板”

29、中的“管理工具”，在打開(kāi)的窗口中雙擊“Microsoft SQL Servers”，再雙擊“D00\WSL”，選中“數(shù)據(jù)庫(kù)”單擊右鍵，選擇“所有任務(wù)”，下的“附加數(shù)據(jù)庫(kù)”，如圖2.1所示。</p><p><b>　　(圖2.1)</b></p><p>　　打開(kāi)附加數(shù)據(jù)庫(kù)窗口，指定網(wǎng)站數(shù)據(jù)庫(kù)文件存放路徑，單擊確定，添加完成，如圖2.2</p><

30、p><b>　?。▓D2.2）</b></p><p>　　2.5.2IIS安裝、配置與管理：</p><p>　　本系統(tǒng)使用了Microsoft的IIS 5.1作為系統(tǒng)服務(wù)器。使用的是Windows2000 Server版本的操作系統(tǒng)，那么添加IIS5.0服務(wù)器非常簡(jiǎn)單，只需要打開(kāi)“控制面板”里面的“添加/刪除程序”選項(xiàng)，然后選擇“添加/刪除Windows組件

31、”，最后選中彈出對(duì)話框的“Internet信息服務(wù)（IIS）選項(xiàng)”，如圖2.3所示，按照系統(tǒng)提示進(jìn)行安裝即可。</p><p><b>　?。▓D2.3）</b></p><p><b>　　設(shè)置IIS的服務(wù)</b></p><p>　　IIS正確安裝后，系統(tǒng)默認(rèn)的工作目錄為系統(tǒng)盤(pán)下的Inetpub文件夾下的wwwroot。

32、依次單擊“開(kāi)始”按鈕，指向“設(shè)置”選項(xiàng)，選擇“控制面板”中的“管理工具”，在打開(kāi)的窗口中雙擊“Internet信息服務(wù)”，在“默認(rèn)網(wǎng)站”上單擊鼠標(biāo)右鍵，選擇“屬性”，如圖2.4所示。</p><p><b>　?。▓D2.4）</b></p><p>　　在打開(kāi)的“默認(rèn)網(wǎng)站屬性”對(duì)話框圖2.5中，單擊“網(wǎng)站”選項(xiàng)卡，在“IP地址”中選擇本機(jī)IP。</p>

33、<p><b>　?。▓D2.5）</b></p><p>　　單擊“主目錄”選項(xiàng)卡，將“本地路徑”指向網(wǎng)頁(yè)存放的文件夾（E:\WSL\王勝利畢業(yè)設(shè)計(jì)\wwwroot），如圖2.5所示，單擊“確定”按鈕。</p><p><b>　　圖2.6</b></p><p>　　打開(kāi)瀏覽器，并在地址欄中輸入本機(jī)IP地址并

34、敲擊回車鍵就可以訪問(wèn)本機(jī)上的頁(yè)面。</p><p>　　第3章 系統(tǒng)總體設(shè)計(jì)</p><p>　　3.1系統(tǒng)層次概框圖</p><p>　　校園新聞管理系統(tǒng)有個(gè)模塊組成，其功能模塊劃分如圖3.1所示。</p><p><b>　?。▓D3.1）</b></p><p>　　3.2流程圖規(guī)劃設(shè)計(jì)<

35、;/p><p>　　圖3.2表示總的系統(tǒng)流程圖。通過(guò)進(jìn)入系統(tǒng)主頁(yè)可以進(jìn)行瀏覽新聞，用戶注冊(cè)，用戶登錄，執(zhí)行管理員職責(zé)等工作。</p><p><b>　?。▓D3.2）</b></p><p>　　圖3.3系統(tǒng)管理員模塊流程圖。當(dāng)管理員登錄成功后，可以進(jìn)入新聞管理模塊、欄目管理模塊、用戶管理模塊、新聞錄入模塊、管理員手冊(cè)模塊。</p>

36、<p><b>　　（圖3.3）</b></p><p>　　3.3 系統(tǒng)模塊設(shè)計(jì)</p><p><b>　　新聞顯示模塊</b></p><p>　　新聞瀏覽模塊：包括新聞標(biāo)題、新聞作者、新聞內(nèi)容、新聞錄入時(shí)間、新聞點(diǎn)擊次數(shù)。</p><p>　　新聞搜索模塊：包括按照時(shí)間、作者、標(biāo)題

37、、內(nèi)容搜索。</p><p>　　新聞列表模塊：包括按照新聞欄目列表、新聞按時(shí)間分類列表、按點(diǎn)擊次數(shù)多少列表。</p><p><b>　　管理模塊</b></p><p>　　(1)用戶管理模塊：包括用戶登錄、用戶刪除、用戶添加。</p><p>　　(2)新聞管理模塊：新聞修改、新聞刪除。</p>&l

38、t;p>　　(3)新聞錄入模塊：新聞添加，可添加表、圖象，字體顏色等。</p><p>　　第4章 數(shù)據(jù)庫(kù)設(shè)計(jì)及主界面設(shè)計(jì)</p><p><b>　　4.1數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　根據(jù)系統(tǒng)功能設(shè)計(jì)的要求以及功能模塊的劃分，對(duì)于系統(tǒng)擁護(hù)信息數(shù)據(jù)庫(kù)，可以列出以下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：</p><p>　　

39、用戶信息表(regedit)：存儲(chǔ)用戶基本信息。表1所示：</p><p><b>　　（表1）</b></p><p>　　注意：以上都不能設(shè)置為NULL。</p><p>　　新聞信息表(news)：存儲(chǔ)新聞基本信息。表2所示：</p><p><b>　　（表2）</b></p>

40、<p>　　注意：news_id 為主鍵</p><p>　　新聞欄目表(type)：存儲(chǔ)新聞欄目的基本信息。表3所示：</p><p><b>　　(表3)</b></p><p>　　訪問(wèn)次數(shù)表(no)：存儲(chǔ)訪問(wèn)者次數(shù)。表4所示</p><p><b>　　(表4)</b></

41、p><p>　　4.2連接數(shù)據(jù)庫(kù)文件</p><p>　　1、每個(gè)獨(dú)立功能模塊的配置自己的獨(dú)立的數(shù)據(jù)庫(kù)。原則上，一個(gè)獨(dú)立模塊一個(gè)獨(dú)立的數(shù)據(jù)庫(kù)（可以多個(gè)表）。數(shù)據(jù)庫(kù)文件保存在該獨(dú)立功能模塊根目錄下的/data/子目錄下。</p><p>　　2、統(tǒng)一格式的數(shù)據(jù)庫(kù)連接文件（conn.asp）存在該獨(dú)立功能模塊根目錄下的/ CONNECTIONS/子目錄下。</p>

42、;<p>　　3、數(shù)據(jù)庫(kù)連接文件格式如下：</p><p><b>　　Conn.asp</b></p><p><b>　　<% </b></p><p>　　dim conn,strcon</p><p>　　set conn=server.createobject(&quo

43、t;ADODB.connection") </p><p>　　strcon="PROVIDER=SQLOLEDB;DATA SOURCE=wsl;UID=sa;PWD=sa;DATABASE=web"</p><p>　　conn.open strcon</p><p><b>　　%></b></p

44、><p>　　4、在需要進(jìn)行數(shù)據(jù)庫(kù)連接頁(yè)面用下面的語(yǔ)句將conn.asp嵌入你的程序。</p><p>　　<!--#include file="connection/conn.asp"--></p><p>　　5、注意：在數(shù)據(jù)庫(kù)操作完畢后及時(shí)調(diào)用關(guān)閉連接函數(shù)，及時(shí)釋放數(shù)據(jù)庫(kù)資源。</p><p><b&g

45、t;　　4.3頁(yè)面設(shè)計(jì)</b></p><p>　　4.3.1主頁(yè)框架設(shè)計(jì)</p><p>　　由于校園新聞管理系統(tǒng)是面向廣大學(xué)生，所以網(wǎng)頁(yè)框架力求簡(jiǎn)單明了，色彩明亮鮮艷。本主頁(yè)主要包括以下幾個(gè)接口：普通用戶登錄接口、新用戶注冊(cè)接口、用戶注銷接口、系統(tǒng)管理員登錄接口、搜索接口、校內(nèi)公告、新聞瀏覽等。為了合理構(gòu)架頁(yè)面，使得頁(yè)面爽新悅目。對(duì)系統(tǒng)作出如下考慮。最后結(jié)果如圖4.1所示。

46、</p><p><b>　　(圖4.1)</b></p><p>　　4.3.2后臺(tái)管理員框架設(shè)計(jì)和樣式設(shè)計(jì)</p><p><b>　　如圖4.2所示：</b></p><p><b>　　(圖4.2)</b></p><p>　　4.3.3前臺(tái)樣式

47、設(shè)計(jì)</p><p><b>　?。▓D4.3）</b></p><p><b>　　4.4程序描述</b></p><p>　　4.4.1新聞查看shownews.asp</p><p><b>　?。▓D4.4）</b></p><p>　　<!-

48、-#include file="../connections/conn.asp"--></p><p><b>　　<html></b></p><p><b>　　<head></b></p><p>　　<title>新聞專題</title>&l

49、t;/p><p>　　<meta HTTP-EQUIV="Content-Type" content="text/html;</p><p>　　charset=gb2312"></p><p>　　<link rel="stylesheet" href="../css/ii.css

50、"></p><p>　　<TABLE width=756 height=107 border=0 align=center</p><p>　　cellPadding=0 cellSpacing=0 bordercolor="#0099FF"</p><p>　　bgColor=#FFFFFF></p>

51、<p><b>　　<TBODY></b></p><p><b>　　<TR></b></p><p>　　<TD width=756 height="107"><TABLE width=756 height=107</p><p>　　borde

52、r=0 align=center cellPadding=0 cellSpacing=0</p><p>　　bordercolor="#0099FF" bgColor=#FFFFFF></p><p><b>　　<TBODY></b></p><p><b>　　<TR><

53、/b></p><p>　　<TD width=756 height="107"><TABLE width="100%" height=109 border=0 cellPadding=0 cellSpacing=0 borderColor=#6595d6</p><p>　　id=AutoNumber1 style=&quo

54、t;BORDER-COLLAPSE: collapse"></p><p><b>　　<TBODY></b></p><p><b>　　<TR></b></p><p>　　<TD colSpan=8 height=90</p><p>　　styl

55、e="BORDER-BOTTOM: 1px solid;</p><p>　　BORDER-LEFT: #111111 1px solid; </p><p>　　BORDER-RIGHT: #111111 1px solid; BORDER-TOP: 1px solid"></p><p>　　<table border=1 bor

56、dercolor=#FFFFFF cellpadding=0 cellspacing=0 height=78 id=AutoNumber5 style="BORDER-BOTTOM-WIDTH: 0px; </p><p>　　BORDER-COLLAPSE: collapse; BORDER-LEFT-WIDTH: 0px;</p><p>　　BORDER-RIGHT-WID

57、TH: 0px; BORDER-TOP-WIDTH: 0px"</p><p>　　width="100%"></p><p><b>　　<tbody></b></p><p>　　<tr bordercolor="#FFFFFF"></p><

58、;p>　　<td width="38%" height=76 bgcolor="#FFFFFF"</p><p>　　style="BORDER-BOTTOM: medium none; </p><p>　　BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-

59、TOP: medium none"></p><p>　　<img src="../IMAGES/index/Back407.gif" width="131" height="65" border="0" align="top"></td></p><p&

60、gt;　　<td width="62%" height=76</p><p>　　style="BORDER-BOTTOM: medium none; </p><p>　　BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none"><i

61、mg src="../IMAGES/index/banner.gif" width="468" height="60" align="right"></td></p><p><b>　　</tr></b></p><p><b>　　</tb

62、ody></b></p><p>　　</table></TD></p><p><b>　　</TR></b></p><p>　　<TR bordercolor="#0066CC" bgcolor="#0066CC"></p>

63、;<p>　　<TD width="17" height=19</p><p>　　style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: medium none"></p><p>　　<

64、;P align=left><img src="../IMAGES/index/TOPL.gif" width="15" </p><p>　　height="15"></P></TD></p><p>　　<TD width="373"</p>&

65、lt;p>　　style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: medium none"><a href="index.asp">首頁(yè)</a></TD></p><p>　　<TD w

66、idth="68" height=19</p><p>　　style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: medium none"><div align="left"><font color

67、="#FFFFFF">|</p><p>　　<a href="denglu.asp" target="_blank">會(huì)員登陸</a></font></p><p><b>　　</div></b></p><p><b&g

68、t;　　</TD></b></p><p>　　<TD width="68" height=19</p><p>　　style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: medium none&q

69、uot;><div align="left"><font color="#FFFFFF">|</p><p>　　<a href="loginout.asp">會(huì)員注銷</a></font></div></TD></p><p><b&

70、gt;　　<TD</b></p><p>　　width="68" height=19</p><p>　　style="BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: medium none"><

71、;/p><p>　　<P align=left><font color="#FFFFFF">| <a href="regedit.asp" </p><p>　　target="_blank">會(huì)員注冊(cè)</a></font></p><p><b

72、>　　</P></b></p><p><b>　　</TD></b></p><p><b>　　<TD</b></p><p>　　width="77" height=19</p><p>　　style="BORDE

73、R-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: medium none"></p><p>　　<font color="#FFFFFF">| <a href="../WEBADMIN/Login.asp" target=&q

74、uot;_blank">系統(tǒng)維護(hù)</a></p><p>　　|</font></TD></p><p><b>　　<TD</b></p><p>　　width="17"</p><p>　　style="BORDER-BOTTO

75、M: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: medium none"><img src="../IMAGES/index/TOPR.gif" width="15" height="15" </p><p>　　align=&qu

76、ot;right"></p><p><b>　　</TD></b></p><p><b>　　</TR></b></p><p><b>　　</TBODY></b></p><p>　　</TABLE><

77、;/TD></p><p><b>　　</TR></b></p><p><b>　　</TBODY></b></p><p>　　</TABLE></TD></p><p><b>　　</TR></b>&l

78、t;/p><p><b>　　</TBODY></b></p><p><b>　　</TABLE></b></p><p>　　<% dim rs, sql</p><p>　　set rs = server.createobject("adodb.record

79、set")</p><p><b>　　%></b></p><p>　　<div align="center"></p><p>　　<script type="" language="JavaScript"></p><p

80、>　　function closewindow()</p><p><b>　　{</b></p><p>　　window.close()</p><p><b>　　}</b></p><p>　　</script></head></p><p&

81、gt;　　<body bgcolor=<%=BGCOLOR%>></p><p><b>　　<%</b></p><p><b>　　dim curid</b></p><p>　　curid = request("show")</p><p>　

82、　sql = "UPDATE news SET news_hits = news_hits + 1 WHERE news_id = " + cstr(curid)</p><p>　　conn.execute sql</p><p>　　sql = "SELECT * FROM news WHERE news_id = " + cstr(curid)

83、</p><p>　　rs.open sql, conn, 1, 1</p><p><b>　　%></b></p><p>　　<table width="752" border="1"></p><p><b>　　<tr></b

84、></p><p>　　<td width="201"><div align="center">新聞標(biāo)題</div></td></p><p>　　<td width="93"><div align="center">作者</d

85、iv></td></p><p>　　<td width="179"><div align="center">發(fā)稿時(shí)間</div></td></p><p>　　<td width="251"><div align="center&quo

86、t;>點(diǎn)擊次數(shù)</div></td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td><div align="center"><%= rs(&qu

87、ot;news_title") %></div></td></p><p>　　<td><div align="center"><%= rs("news_author") %></div></td></p><p>　　<td><di

88、v align="center"><%= rs("news_time") %></div></td></p><p>　　<td><div align="center"><%= rs("news_hits") %></div></td>

89、;</p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td colspan="4"><div align="center"><%= rs("news_co

90、ntent") %> </div></td></p><p><b>　　</tr></b></p><p><b>　　</table></b></p><p><b>　　</div></b></p><

91、;p>　　<p align="center"><br></p><p><b>　　<%</b></p><p>　　response.write "<tr><td align=center colspan=4 bgcolor=" + </p><p>

92、;　　TDCOLORD + "><input type='Button' name='btnclose' value='關(guān)閉窗口' onclick='javascript:window.close()'></p><p><b>　　</td></b></p><p&g

93、t;<b>　　</tr></b></p><p>　　set rs = nothing</p><p>　　'call endconnection()</p><p><b>　　%></b></p><p><b>　　</p></b>

94、</p><p>　　<!-- #include file="foot.htm"--></body></p><p><b>　　</html></b></p><p>　　4.4.2搜索新聞searchresult.asp：</p><p>　　<!--#i

95、nclude file="../connections/conn.asp"--></p><p>　　<!--#include file="const.asp"--></p><p>　　<!--#include file="char.asp"--></p><p>　　<

96、;%Akeyword=trim(request("keyword"))</p><p>　　Adatesearch=trim(cstr(request("datesearch")))</p><p>　　Aareasearch=trim(request("areasearch"))</p><p><

97、b>　　%></b></p><p>　　<td><table width="100%" border="0"></p><p>　　<tr> </tr></p><p><b>　　</table></b></p&

98、gt;<p>　　<%if request("keyword")="" then%></p><p>　　<script language=javascript></p><p>　　alert( "錯(cuò)誤：請(qǐng)輸入關(guān)鍵字！" );</p><p>　　location.

99、href = "javascript:history.back()"</p><p><b>　　</script></b></p><p><b>　　<%else%></b></p><p>　　<br> <table width="550&quo

100、t; border="0" cellpadding="0" cellspacing="0"></p><p><b>　　<tr></b></p><p>　　<td width="15" height="20"><img src=&

101、quot;image/a3.gif" width="9" height="9" hspace="10"></td></p><p>　　<td><div align="left"><strong>您搜索的關(guān)鍵字：</strong></p><

102、;p>　　<%=request("keyword")%></div></td></p><p><b>　　</tr></b></p><p>　　<tr bgcolor="#cccccc"></p><p>　　<td colspa

103、n="2" height=1></td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td colspan="2" height=1></td>&

104、lt;/p><p><b>　　</tr></b></p><p>　　<tr bgcolor="#cccccc"></p><p>　　<td colspan="2" height=1></td></p><p><b>　　

105、</tr></b></p><p><b>　　</table></b></p><p>　　<table width="550" border="0" cellpadding="0" cellspacing="0"></p>

106、<p><b>　　<tr></b></p><p>　　<td colspan="3" valign="top" bgcolor="#fafafa" class=c></p><p><b>　　<ul></b></p>&l

107、t;p>　　<div align="left"></p><p><b>　　<%</b></p><p>　　keyword=trim(request("keyword"))</p><p>　　dim searchday</p><p>　　if req

108、uest("DateSearch")="all" then</p><p>　　searchDay=""</p><p><b>　　else</b></p><p>　　searchDay=" DATEDIFF(day,news_time,getdate()) </p

109、><p>　　< "&request("DateSearch")&" and "</p><p><b>　　end if</b></p><p>　　dim pagecount,page,Spage,Epage,recordcount,i</p><p&g

110、t;　　page = request.querystring("page")</p><p>　　if page = "" or IsNull(page) then page = 1</p><p>　　if not IsNumeric(page) then page = 1</p><p>　　page = Cint(pag

111、e)</p><p>　　set rs = server.CreateObject ("Adodb.recordset")</p><p>　　if request("AreaSearch")=1 then</p><p>　　sql="select * from news where "& sea

112、rchday &" (" & </p><p>　　translate(keyword,"news_title") & ") order by news_time desc"</p><p>　　elseif request("AreaSearch")=2 then</p>

113、;<p>　　sql="select * from news where "& searchday &" (" & </p><p>　　translate(keyword,"news_content") & ") order by news_time desc"</p>&

114、lt;p>　　elseif request("AreaSearch")=3 then</p><p>　　sql="select * from news where "& searchday &" (" & </p><p>　　translate(keyword,"news_author&

115、quot;) & ") order by news_time desc"</p><p><b>　　end if</b></p><p>　　rs.open sql,conn,1,1</p><p>　　recordcount = RS.RecordCount</p><p>　　RS.Pa

116、geSize = PAGESIZE</p><p>　　pagecount = RS.PageCount</p><p>　　if page < 1 then</p><p><b>　　page = 1</b></p><p>　　elseif page > pagecount then</p>

117、<p>　　page = pagecount</p><p><b>　　end if</b></p><p>　　if RS.EOF then</p><p>　　Response.Write("<center><br><font color=red>沒(méi)有搜索到任何結(jié)果！</

118、font><br><br>")</p><p><b>　　else</b></p><p>　　if recordcount > 0 then RS.AbsolutePage = page</p><p>　　for i = 1 to PAGESIZE</p><p>　　

119、if RS.EOF then exit for</p><p><b>　　%></b></p><p><b>　　</div></b></p><p><b>　　<li></b></p><p>　　<div align="l

120、eft"></p><p>　　<a href=shownews.asp?show=<%= cstr(rs("news_id")) %> </p><p>　　target=_blank></p><p>　　<%=replace(HTMLencode(rs("news_title"

121、;)),""&keyword&"","<font color=red>"&keyword&"</font>")%></a><br></p><p><b>　　<%</b></p><p>　　RS

122、.MoveNext()</p><p><b>　　next</b></p><p><b>　　end if</b></p><p><b>　　%></b></p><p><b>　　</div></b></p>&l

123、t;p><b>　　</ul></b></p><p>　　<div align="left"></p><p><b>　　<%</b></p><p>　　if pagecount > 0 then</p><p>　　respons

124、e.write("<table width=""95%"" align=center cellspacing=3 </p><p>　　cellpadding=3><tr><td align=right>")</p><p>　　response.write("頁(yè)次：<font

125、color=red><b>" & page & "</font>/" & </p><p>　　pagecount & "</b>&nbsp;&nbsp;每頁(yè)<b>" & pagesize &"</b>&nbsp;&l

126、t;/p><p>　　&nbsp;共<b>" & recordcount & "</b>篇文章&nbsp;&nbsp;分頁(yè)：")</p><p>　　Spage = page mod PARTSIZE</p><p>　　if page > PARTSIZE then&l

127、t;/p><p>　　if Spage = 0 then Spage = PARTSIZE</p><p>　　Spage = page - Spage + 1</p><p><b>　　else</b></p><p><b>　　Spage = 1</b></p><p>

128、<b>　　end if</b></p><p>　　Epage = Spage + PARTSIZE - 1</p><p>　　if Epage > pagecount then Epage = pagecount</p><p>　　if page > PARTSIZE then</p><p>　　r

129、esponse.write("<a href=""searchresult.asp?keyword=" &Akeyword& </p><p>　　"&datesearch=" &Adatesearch& "&areasearch=" &Aareasearch&&l

130、t;/p><p>　　"&page="& Spage - 1 & """>[<<]</a>")</p><p><b>　　end if</b></p><p>　　for i = Spage to Epage</p>&

131、lt;p>　　if i = page then</p><p>　　response.write("[<font color=red><b>" & i & "</b></font>]")</p><p><b>　　else</b></p>&l

132、t;p>　　response.write("[<a href=""searchresult.asp?keyword=" &Akeyword& </p><p>　　"&datesearch=" &Adatesearch& "&areasearch=" &Aarease

133、arch& </p><p>　　"&page=" & i & """>" & i & "</a>]")</p><p><b>　　end if</b></p><p><b>　　nex

134、t</b></p><p>　　if Epage < pagecount then</p><p>　　response.write("<a href=""searchresult.asp?keyword=" &Akeyword& </p><p>　　"&datese

135、arch=" &Adatesearch& "&areasearch=" &Aareasearch&</p><p>　　"&page=" & Epage + 1 & """>[>>]</a>")</p><p&g

136、t;<b>　　end if</b></p><p>　　if Spage <> 1 then response.write("[<a href=""searchresult.asp?</p><p>　　keyword=" &Akeyword& "&datesearch=&q

137、uot; &Adatesearch& </p><p>　　"&areasearch=" &Aareasearch& "&page=1"">首頁(yè)</a>]")</p><p>　　if Epage <> pagecount then response.w

138、rite("[<a href=""searchresult.asp?</p><p>　　keyword=" &Akeyword& "&datesearch=" &Adatesearch& </p><p>　　"&areasearch=" &Aar

139、easearch& "&page=" & pagecount & """>尾頁(yè)</a>]")</p><p>　　response.write("</td></tr></table><br>")</p><p>&

140、lt;b>　　end if</b></p><p><b>　　rs.close</b></p><p>　　set rs=nothing</p><p><b>　　%></b></p><p>　　<%end if%></p><p>

141、　　</div></td></p><p><b>　　</tr></b></p><p>　　</table></td></p><p>　　4.4.3新聞刪除 delnews.asp</p><p>　　<!--#include file="

142、../connections/conn.asp"--></p><p><b>　　<%</b></p><p>　　IF not trim(Session("key"))="super" THEN</p><p>　　response.redirect "login.as

143、p"</p><p>　　response.end</p><p><b>　　END IF</b></p><p><b>　　%></b></p><p><b>　　<%</b></p><p>　　dim command1&