【正文】 又出現(xiàn)了第三媒體—— Inter。167。 1 新聞發(fā)布系統(tǒng)概述 1. 1 基于 web的新聞發(fā)布系統(tǒng)設計的提出 伴隨著網(wǎng)絡的出現(xiàn)，網(wǎng)頁逐漸融入人們的生活。它打破了地域限制，真正使信息得以共享，改變了人們的工作和生活方式。尤其是在教育領域，在素質(zhì)教育與終身教育成為必然的今天，人們對信息的需求有了更新，更高的要求，而網(wǎng)頁由于本身所具有的信息量大，傳遞快速， 沒有時空限制等特點恰好滿足這種要求。也正是由于網(wǎng)絡實現(xiàn)網(wǎng)站的數(shù)據(jù)信息能夠進行實時交互，保證網(wǎng)站數(shù)據(jù)的實時性。另一方面靜態(tài)網(wǎng)頁由于不能與瀏覽者進行有效交互 ,使人們感到越來越乏味 ,而不愿意再一次地進入同一站點。所謂動態(tài)內(nèi)容是由每一個用戶按照自己的需求發(fā)出請求而特殊制作的 Web 網(wǎng)頁。站在網(wǎng)絡時代的前夜，我們清晰地聽到了網(wǎng)絡時代的宣言：誰掌握了網(wǎng)絡，誰就掌握了未來。而動態(tài)交互式網(wǎng)頁剛好提供了這些功能，本系統(tǒng)就是一個能夠在網(wǎng)上 實現(xiàn)新聞的網(wǎng)上多用戶發(fā)布，多欄目管理，實時的進行行為統(tǒng)計和記錄的網(wǎng)上交互系統(tǒng)。要運行基于 WEB 的校園新聞發(fā)布系統(tǒng)，當然是必須添加一些網(wǎng)絡及硬件設備，這也就必然比傳統(tǒng)信息傳播在物資設備方面要投入更多財力。綜合上面論述，在線新聞發(fā)布系統(tǒng)的開發(fā)與設計在經(jīng)濟角度來說是利 大于弊，是非常值得實施的。 HTML 作為一種樣式語言，隨著 Inter上信息量的增多和交互性的加強使 HTML顯得越來越難以勝任的情況之下，在 ASP編程語言高度發(fā)展的形式下，我們開始了對新聞發(fā)布系統(tǒng)的開發(fā)。 1. 3 新聞發(fā)布系統(tǒng)的開發(fā)環(huán)境 硬件條件 服務器兩臺，一臺為數(shù)據(jù)庫服務器，一臺為 Web 服務器；客戶端計算機若干；網(wǎng)絡通訊設備，主要包括網(wǎng)卡、集線器、 MODEM 等?？蛻舳塑浖?，包括單機操作系統(tǒng)和瀏覽器軟件，分別 選用 Windows 2020和 Inter Explorer，數(shù)據(jù)庫系統(tǒng)采用 Microsoft Access 有利于方便操作。我們采用了 DreamweaverMX 進行開發(fā)，它是用來快速創(chuàng)建數(shù)據(jù)驅(qū)動 Web 應用程序的基于團隊的開發(fā)環(huán)境，支持 ASP，以ODBC 連接數(shù)據(jù)庫，腳本語言為簡單易學的 javascript 或 VBScript。 167。例如： 一級欄目列表、二級欄目列表、欄目導航列表、某一欄目的最新新聞 (文章 )顯示條數(shù)、某一欄目的熱門文章可任意調(diào)整。 后臺管理 1. 新聞欄目管理：增加 ,修改 ,刪除一級 ,二級新聞文章欄目。 3．新聞文章刪除：刪除舊的文章。 5．管理員管理：新聞管理系統(tǒng)的管理員設置。數(shù)據(jù)的結(jié)構(gòu)將影響整個管理機制的應用，而且一但建立以后要修改常會出現(xiàn)麻煩。 Microsoft Access 數(shù)據(jù)庫相對其它的數(shù)據(jù)庫來說要簡單容易操作些，本新聞發(fā)布系統(tǒng)中的數(shù)據(jù)庫文件就是 Access 類型的數(shù)據(jù)庫，數(shù)據(jù)庫中共有五張表如下圖： 新聞發(fā)布系統(tǒng)數(shù)據(jù)庫的連接 以下是本系 統(tǒng)與數(shù)據(jù)庫建立連接的 ASP源代碼 % On Error Resume Next set rs=() set conn=() DBPath = () driver={Microsoft Access Driver (*.mdb)}。 DBPath % 數(shù)據(jù)類型 本系統(tǒng)的數(shù)據(jù)字典如下圖 表一： 字段 類型 含義 Id 數(shù)值型 序號 Admin 文本型 用戶名 Password 文本型 密碼 Aleave 邏輯型 權(quán)限 表二： 字段 類型 含義 Bigclassid 數(shù)值型 一級新聞序號 Bigclassname 文本型 一級新聞標題 Admin 文本型 發(fā)布者 表三： 字段 類型 含義 Id 數(shù)值型 新聞序號 title 文本型 新聞標題 Content 文本型 新聞內(nèi)容 User 文本型 發(fā)布者 Infotime 日期型 發(fā)布時間 表四： 字段 類型 含義 Pinglun Id 數(shù)值型 評論序號 pinglunname 文本型 評論標題 Pinglun data 日期型 評論發(fā)表日期 pingluncontent 文本型 評論內(nèi)容 表五： 字段 類型 含義 smalllclassid 數(shù)值型 二級新聞序號 smallclassname 文本型 二級新聞標題 Admin 文本型 發(fā)布者 2. 3 功能模塊圖 新聞發(fā)布系統(tǒng)前臺模塊設計圖 ： 前臺系統(tǒng) 新聞首頁 一級分類 管理員登陸 二級分類 評論管理 數(shù)據(jù)庫訪問層 數(shù)據(jù)庫 新聞發(fā)布系統(tǒng)后臺模塊設計圖： 后臺管理 文章管理 留言管理 欄目分類管理 一級欄分類管理 二級欄分類管理 添加 .刪除 .修改 文章刪除 文章修改 文章添加 評論修改 評論查看 數(shù)據(jù)庫訪問層 數(shù)據(jù)庫 167。例如： 一級欄目列表、二級欄目列表、欄目導航列表、某一欄目的最新新聞 (文章 )顯示條數(shù)、某一欄目的熱門文章可任意調(diào)整。 3. 2 后臺管理 1. 新聞欄目管理：增加 ,修改 ,刪除一級 ,二級新聞文章欄目。 3．新聞文章刪除：刪除舊的文章。 5．管理員管理：新聞管理系統(tǒng)的管理員設置。 3. 3 功能說明 前臺顯示說明如圖所示 1. 首頁的最頂部排列顯示大類新聞，用戶可以直接點擊查看各項大類新聞里面的各項小類新聞，直到閱讀每條詳細信息。 3. 專題顯示可以任意排序，而且可以直接點擊查看相關專題新聞。 5. 公告欄顯示最新發(fā)布的各項新聞信息，進入二級目錄還可以閱讀更多信息。 管理員的管理 管理員可以通過后臺登陸界面登陸到系統(tǒng)的后臺并進行管理，后臺登陸頁面為 打開頁面以后輸入用戶名和密碼通過驗證后即可進入系統(tǒng)，管理員進入系統(tǒng)后可以對已經(jīng)發(fā)表的新聞進行修改，刪除，和發(fā)表新的新聞等權(quán)利，除此之外管理員還可以修改管理員密碼和添加新管理員。 管理員可以任意的添加、修改、刪除一級新聞，可以對一 級新聞進行初始化上拉下拉等操作以及對新聞屬性的各種設置。 一級新聞管理界面 以下是一級新聞添加的部分源代碼 sql=select * from BigClass sql,conn,3,3 do while not if rs(BigClassname)=typename Set rs = () sql=select * from BigClass sql,conn,3,3 rs(BigClassname)=typename rs(BigClassType)=BigClassType if BigClassType=0 then rs(BigClassView)=0 else rs(BigClassView)=1 end if rs(BigClassID)=howmany+1 rs(BigClassmaster)=無 set rs=nothing set conn=nothing % 二級新聞管理 二級新聞管理也類似于一級新聞管理，從管理首頁的二級新聞管理進入，可以進入二級新聞的一級目錄管理界面。 通過對 二級新聞屬性的設置可以使新聞是否以列表的形式顯示在新 聞列表中。 二級新聞管理界面 用戶管理 以下是實現(xiàn)管理員添加的源代碼： form method=post action= //這個 form 對象是指當提交添加資料時就會調(diào)用 這個文件把信息添加到數(shù)據(jù)庫。 charset=gb2312 link rel=stylesheet href=../ type=text/css /head body text=000000 leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 table width=100% border=0 cellpadding=0 cellspacing=0 tr td height=50 valign=top table width=100% border=0 cellspacing=0 cellpadding=0 tr td /td /tr /table table width=90% border=0 align=center cellpadding=0 cellspacing=1 bgcolor=000000 tr align=center bgcolor=CCCCCC td width=15% height=24 ID/td td width=15%用戶 /td td width=20%密碼 (font color=666666加密 /font)/td td width=20%權(quán)限 /td td width=15%修改 /td td width=15%刪除 /td /tr % Set rs=() sql=select * from admin order by id sql,conn,1,1 while not if rs(aleave)=super then aleave=超級管理員 end if if rs(aleave)=check then aleave=普通管理員 end if % tr align=center bgcolor=FFFFFF td height=22%=rs(id)%/td td%=rs(admin)%/td td%=rs(password)%/td td%=aleave%/td tda href=?id=%=rs(id)% 修改/a/td tda href=?id=%=rs(id)% 刪除/a/td /tr % wend set rs=nothing % /table br table width=300 border=0 align=center cellpadding=4 cellspacing=1 bgcolor=000000 tr bgcolor=CCCCCC td colspan=2添加管理員： /td /tr form name=add method=post action= tr bgcolor=FFFFFF td align=right height=22管理帳號： /td td input type=text name=admin class=form /td /tr tr bgcolor=FFFFFF td align=right管理權(quán)限： /td td select name=aleave class=input option value=super selected超級管理員 /option option value=check普通管理員 /option /select /td /tr tr bgcolor=FFFFFF td align=right height=22管理密碼： /td td input type=password name=pas