【正文】 必須通過系統(tǒng)身份驗證，才能對系統(tǒng)進行管理。 } else if(wth==800) { hth=500。 j。 for(j=0。設(shè)置 SQL語句，讀取所有的新聞類別到 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。如果不 是系統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設(shè)置 WHERE 子句的條件 sql_where = Poster=39。 sql_where amp。 iflag amp。39。39。 for(j=0。 //用來記錄是否存在被選中的復選框 var Newsid, n=0。 if(wth==1024) { hth=600。使用 Do while 語句依次處理每個新聞類別，讀取該類別中所有新聞信 息到記錄集 rs 中，并顯示新聞標題。20%39。只顯示 5條新聞 If t 6 Then Dim ndate ndate = DateAdd(d,3,date()) 39。依次顯示每個新聞類別中最新的 10 條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。 ()。 charset=gb2312 link href= rel=stylesheet script language=JavaScript function newwin(url) { var wth=。如果字節(jié)數(shù)小于 1，則退出 if 1 then Exit Sub 39。} name=font style=39。 文件的界面如圖 5 所示。 文件 ，其內(nèi)容如下： dim Conn dim ConnStr set Conn=() ConnStr=DRIVER={SQL Server}。 后臺系統(tǒng) 新聞發(fā)布管理 發(fā)布文字信息 發(fā) 布新聞圖片 數(shù)據(jù)庫 前臺系統(tǒng) 新 發(fā) 聞 布 查 網(wǎng) 詢 友 管 評 理 論 創(chuàng)建和修改普通用戶信息 修改自身的用戶名和密碼 新聞類別管理 系統(tǒng)用戶信息管理 修改 Admin 用戶的密碼 重試 圖 4 后臺系統(tǒng)流程分析圖 第五章 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計與實現(xiàn) 創(chuàng)建數(shù)據(jù)庫 本系統(tǒng)使用的是 SQL Server2020 作為系統(tǒng)數(shù)據(jù)庫。 、開發(fā)環(huán)境 1. 硬件條件 服務(wù) 器兩臺，一臺為數(shù)據(jù)庫服務(wù)器，一臺為 Web 服務(wù)器；客戶端計算機若干；網(wǎng)絡(luò) 通 訊設(shè)備，主要包括交換機、網(wǎng)卡、集線器、 MODEM 等。 動態(tài)性 JavaScript 是動態(tài)的，它可以直接對用戶或客戶輸入做出響應(yīng)，無須經(jīng)過Web 服務(wù)程序。 JavaScript 是一種基于對象 (Object)和事件驅(qū)動 (Event Driven)并具有安全性能的腳本語言。采用超鏈技術(shù)（超文本和超媒體技術(shù)）是實現(xiàn)這個目標最簡單的、最快速的手段和途徑。 ASP可以方便地實現(xiàn)諸如用戶信息 收集、計數(shù)器、留言板、論壇、聊天室和電子商務(wù)功能。在站點發(fā)布數(shù)據(jù)庫將使用這個組件及其中包含的對象，以完成對 ODBC 數(shù)據(jù)源的讀寫。所謂動態(tài)內(nèi)容是由每一個用戶按照自己的需求發(fā)出請求而特殊制作的 Web 網(wǎng)頁 。網(wǎng)易、搜狐等著名網(wǎng)站都開設(shè)有新聞專欄，每天發(fā)布大量新聞信息。 隨著 Inter 的 進一步 發(fā)展 ,靜態(tài) Web 站點的開發(fā)與維護變得越來越困難 ,一方面信息的不斷增加和變化 ,使站點維護人員不得不經(jīng)常修改他們的網(wǎng)頁 ,特別是基于數(shù)據(jù)庫驅(qū)動的 Web 站點更是如此 ，隨著 Inter 上信息量的增多和交互性的加強使 HTML 顯得越來越難以勝任。當用戶從瀏覽器向 Web 服務(wù)器提出請求時， Web服務(wù)器會自動將 ASP 的程序解釋為標準的 HTML 格式的主頁內(nèi)容，用戶端只要使用常規(guī)可執(zhí)行 HTML 程序的瀏覽器，就可瀏覽 ASP 所設(shè)計的主頁內(nèi)容，因此與瀏覽器無關(guān)，并且保證了 ASP 的源程序代碼不會外漏。 ▲ ASP 的源程序由于只在服務(wù)器上運行，不會被傳到客戶端瀏覽器，因而可以避免所寫的源程序被他人剽竊，也提高了程序的安全性。無論從管理方面，還是從商業(yè)角度來看，Inter 都可以帶來無限生機。它是眾多腳本語言中較為優(yōu)秀的一種，它與 WWW 的結(jié)合有效地實現(xiàn)了網(wǎng)絡(luò)計算和網(wǎng)絡(luò)計算機的藍圖。其次它的變量類型是采用弱類型，并未使用嚴格的數(shù)據(jù)類型。 第三章 開發(fā)環(huán)境及需求分析 、開發(fā)目 的 隨著計算機技術(shù)的發(fā)展，網(wǎng)絡(luò)技術(shù)對我們生活和工作顯得月來越重要，特別是現(xiàn)在信息高度發(fā)達的今天，人們對最新信息的需求和發(fā)布迫切的需要及時性。 本系統(tǒng)的前臺部分不需要進行身份驗證 ，任何人都可以游覽已發(fā)布的新聞并發(fā)表評論。 ? 存儲網(wǎng)頁中的圖片文件。根據(jù)新聞編號讀取新聞信息 set rsNews = () sql = SELECT * FROM News WHERE Id= amp。39。類 FileInfo 的主要功能是取得文件信息。sFormValue else sFormName,sFormValue end if end if iFormStart=iFormStart+iStart+1 wend RequestData= set tStream =nothing End Sub Private Sub Class_Terminate if 0 then set objForm=nothing set objFile=nothing set Data_5xsoft =nothing end if End Sub Private function GetFilePath(FullPath) If FullPath Then GetFilePath = left(FullPath,InStrRev(FullPath, \)) Else GetFilePath = End If End function Private function GetFileName(FullPath) If FullPath Then GetFileName = mid(FullPath,InStrRev(FullPath, \)+1) Else GetFileName = End If End function End Class Class FileInfo dim FormName,FileName,FilePath,FileSize,FileType,FileStart Private Sub Class_Initialize FileName = FilePath = FileSize = 0 FileStart= 0 FormName = FileType = End Sub Public function SaveAs(FullPath) dim dr,ErrorChar,i SaveAs=true if trim(fullpath)= or FileStart=0 or FileName= or right(fullpath,1)=/ then exit function set dr=CreateObject() =3 =1 =FileStart dr,FileSize FullPath,2 set dr=nothing SaveAs=false end function End Class /SCRIPT 第七章 系統(tǒng)程序設(shè)計 與實現(xiàn) 設(shè)計主界面 本系統(tǒng)的主界面為 ，顯示新聞類別和每個類別中的前 5條新聞，并提供進入管理界面的“新聞管理”鏈接和查詢界面的“新聞查詢”鏈接。 } var oth=toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=+lefth+,top=+topth。TEXTDECORATION: none39。 cid amp。 最新的新聞！ 39。 顯示最新新聞 這是系統(tǒng)首頁的最主要功能，即顯示每個類別的中最新的 5 條新聞，并將 3天內(nèi)的新聞用 new 圖片標記。 var hth=。 ()。 } if (confirm(你確定要刪除這些新聞嗎？ )) { = strurl。 trtd align=39。39。根據(jù)參數(shù) iflag和 sql_where變量設(shè)置 SQL語句，讀取新聞數(shù)據(jù) If iflag = Then If sql_where = Then sql = SELECT * FROM News ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE amp。/td/tr/table Else 39。 39。font style=39。 } } /script /head body link=000080 vlink=080080 form id=form1 name=form1 method=POST p align=centerfont style=39。 Newsid = (News,j).id+。 topth=10。 圖 8 用戶登錄界面 設(shè)計管理界面 用戶通過身份驗證后可以進入管理界面，管理界面的文件是 。更多新聞 .../a/p /td/tr/table/td/table loop % /td/table % 39。?id= + cstr(rs(id)) + 39。/a == 39。每個新聞類別標題被定義為一個書簽，名為 a類別編號 % a href=a%=cid%font style=39。 } else if(wth==800) { hth=500。取得表單項目名稱 iFormStart = InStrB(iInfoEnd,RequestData,sStart) iFindStart = InStr(22,sInfo,name=,1)+6 iFindEnd = InStr(iFindStart,sInfo,1) sFormName = lcase(Mid (sinfo,iFindStart,iFindEndiFindStart)) 39。如果不為空，則在兩側(cè)添加字體標示 font和 /font。39。 代碼如下： % If Session(UserName) Admin Then (不是 Admin用戶，沒有此權(quán)限 ) End If % 文件 在修改、刪除新聞時，要判斷當前用戶是否為 Admin 用戶或者發(fā)表新聞的作者。 表 2 News 表 字段名 字段類型 字段長 說明 Id int 4 新聞編號，系統(tǒng)自動編號 Title varchar 100 新聞標題 Content Text 16 新聞內(nèi)容 PostTime Datetime 8 提交時間 Poster Varchar 50 提交人 CateId Int 4 新聞類別編號 Attpic Bit 4 是否有圖片： 0：沒有； 1：有 Readcount int 4 閱讀次數(shù) 網(wǎng)友評論表 Discuss 該表用來保存網(wǎng)友對新聞發(fā)表的評論， Discuss 表的結(jié)構(gòu)如表 3所示。 各模塊的功能如下圖 1 所示：