【正文】 = script language=javascript function newwin(url) { var wth=。 登錄程序設(shè)計(jì) 必須通過(guò)系統(tǒng)身份驗(yàn)證，才能對(duì)系統(tǒng)進(jìn)行管理。單擊每個(gè)新聞?lì)悇e右下方的“更多新聞”鏈接，可以閱讀該類別的所有新聞，如圖 7所示。_self39。 ALT=39。return newwin()。按提交時(shí)間的降序顯示新聞標(biāo)題 sql = SELECT * FROM News WHERE CateId= amp。 cellspacing=1 cellpadding=2tr 39。font color=red新聞查詢 /font/a | a href=font color=red style=39。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類別顯示該類別的新聞 ===== 39。 wth=500。 lefth =147。, amp。使用循環(huán)語(yǔ)句，依次讀取文件數(shù)據(jù) iFormStart = 1 iFormEnd = LenB(RequestData) vbCrlf = chrB(13) amp。在類 Upload_5xsoft 初始化時(shí)，程序從上傳表單中讀取文件信息，類Upload_5xsoft 中的 Class_initialize 方法用于實(shí)現(xiàn)這一功能。 This 表示下拉菜單， 表 示 當(dāng) 前 選 擇 的 菜 單 項(xiàng) 目 。+c+39。) {().text=39。 代碼如下： % If Session(UserName) Admin Then NewsId = Request(Id) 39。Database=news ConnStr % 文件 文件包含的功能是判斷用戶是否是 Admin 用戶。此外，在主目錄下還包含兩個(gè)子目錄 ： ? 存儲(chǔ)上傳的新聞圖片。本節(jié)將介紹這些表的結(jié)構(gòu)。 前一階段決定用戶能否進(jìn)入系統(tǒng)；后一階段根據(jù)用戶類型決定用戶的權(quán)限，以及用戶的工作界面。我們采用了 DreamweaverMX 進(jìn)行開(kāi)發(fā)，它是用來(lái)快速創(chuàng)建數(shù)據(jù)驅(qū)動(dòng) Web 應(yīng)用程序的基于團(tuán)隊(duì)的開(kāi)發(fā)環(huán)境，支持 ASP，以O(shè)DBC 連接數(shù)據(jù)庫(kù)，腳本語(yǔ)言為簡(jiǎn)單易學(xué)的 JavaScript。JavaScript 創(chuàng)作者可以不那麼注重程式技巧，所以許多 Java 的特性在 Java Script 中并不支援。當(dāng)事件發(fā)生后，可能會(huì)引起相應(yīng)的事件響應(yīng)。 簡(jiǎn)單性 JavaScript 的簡(jiǎn)單性主要體現(xiàn)在：首先它是一種基于 Java 基本語(yǔ)句和控制流之上的簡(jiǎn)單而緊湊的設(shè)計(jì) , 從而對(duì)于學(xué)習(xí) Java 是一種非常好的過(guò)渡。它的出現(xiàn)彌補(bǔ)了 HTML 語(yǔ)言的缺陷，它是 Java 與 HTML 折衷的選擇，具有以下幾個(gè)基本特點(diǎn)： 腳本編寫語(yǔ)言 JavaScript 是一種腳本語(yǔ)言，它采用小程序段的方式實(shí)現(xiàn)編程。它深受廣泛用戶的喜愛(ài)的歡迎。通過(guò) HTML 符號(hào)的描述就可以實(shí)現(xiàn)文字、表格、聲音、圖像、動(dòng)畫等多媒體信息的檢索。隨著 Inter 技術(shù)的突飛猛進(jìn)，各行各業(yè)都在加入 Inter 的行業(yè)中來(lái)。如果要運(yùn)行在非 Windows平臺(tái)，例如 Unix、 Linux 等，則要 安裝相應(yīng)的 ASP 腳本解釋引擎軟件。 ▲ ASP 以對(duì)象為基礎(chǔ)，可以使用 ActiveX 控件繼續(xù)擴(kuò)充其功能。集成與HTML 中，無(wú)需編譯鏈接可直接執(zhí)行 ，而且 使用文本編輯器即可設(shè)計(jì)。 ASP 文件可以用常規(guī)的文本編輯器編輯， ASP 使用VBScript、 JavaScript 等腳本語(yǔ)言作為開(kāi)發(fā)工具，鑲嵌于 HTML 文本中，使用%?% 將 ASP 的程序包含起來(lái)。其工作原理是當(dāng)瀏覽者發(fā)出瀏覽請(qǐng)求的時(shí)候，服務(wù)器會(huì)自動(dòng)將 ASP 的程序碼，解釋為標(biāo)準(zhǔn) HTML 格式的網(wǎng)頁(yè)內(nèi)容，再送到瀏覽者瀏覽器上顯示出來(lái)。 也正是由于網(wǎng)絡(luò)實(shí)現(xiàn)網(wǎng)站的數(shù)據(jù)信息能夠進(jìn)行實(shí)時(shí)交互，保證網(wǎng)站數(shù)據(jù)的實(shí)時(shí)性。 本 系統(tǒng)主要從以下幾個(gè)方面進(jìn)行設(shè)計(jì)和開(kāi)發(fā)：（ 1）新聞?lì)悇e管理，包括新聞?lì)悇e的錄入、查詢、修改和刪除等；（ 2）新聞發(fā)布管理，包括新聞信息 錄入、修改和刪除等；（ 3）圖片處理，包括圖片文件上傳、存儲(chǔ)、修改、刪除和瀏覽等；（ 4）新聞查詢，分為按照新聞?lì)悇e和新聞發(fā)布時(shí)間兩個(gè)查詢子模塊；（ 5）網(wǎng)友評(píng)論，包括評(píng)論發(fā)表和管理員刪除兩個(gè)子模塊；（ 6）系統(tǒng)用戶管理，包括添加用戶、刪除用戶和修改信息 3 個(gè)子模塊。因?yàn)槊刻彀l(fā)布的新聞的頻率和數(shù)量都很大，如果使用靜態(tài)頁(yè)面制作新聞，維護(hù)工作將十分繁瑣。 制作網(wǎng)頁(yè)是企業(yè)和個(gè)人的宣傳自己的重要手段，同時(shí)也是學(xué)習(xí)者獲取學(xué)習(xí)信息的重要手段 。 網(wǎng)絡(luò)發(fā)展前景無(wú)限，及早與網(wǎng)絡(luò)結(jié)合， 與 信息時(shí)代同步，與高科技匯合，定會(huì)給 社會(huì)各行各業(yè)的 發(fā)展注入新鮮的活力。它具備一個(gè)服務(wù)器端的腳本執(zhí)行環(huán)境，用它可產(chǎn)生和執(zhí)行動(dòng)態(tài)的、交互的、高性能的 Web服務(wù)器應(yīng)用程序 。 此外， ASP 技術(shù)的另一個(gè)重要特點(diǎn)是 ，程序員可以利用 Java、 Visual Basic、 Visual C++等語(yǔ)言制作適應(yīng)自己特殊需要的 ActiveX服務(wù)器組件來(lái)擴(kuò)充 ASP的功能，使自己的動(dòng)態(tài)網(wǎng)頁(yè)幾乎具有無(wú)限的擴(kuò)充能力，這是傳統(tǒng)的 CGI 程序所不及的。 ▲ ASP 程序運(yùn)行環(huán)境與瀏覽器無(wú)關(guān)。將 ASP 與數(shù)據(jù)庫(kù)集成可以開(kāi)發(fā)出功能強(qiáng)大的交互式動(dòng)態(tài)網(wǎng)站。 Server2020 簡(jiǎn)介 SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)它最初是由 Microsoft Sybase 和AshtonTate三家公司共同開(kāi)發(fā)的于 1988 年推出了第一個(gè) OS/2 版本在 Windows NT 推出后 Microsoft 與 Sybase 在 SQL Server 的開(kāi)發(fā)上就分道揚(yáng)鑣了Microsoft 將 SQL Server 移植到 Windows NT 系統(tǒng)上專注于開(kāi)發(fā)推廣 SQL Server 的 Windows NT 版本 Sybase 則較專注于 SQL Server 在 UNIX 操作系統(tǒng)上的應(yīng)用在本書中介紹的是 Microsoft SQL Server 以后簡(jiǎn)稱為 SQL Server 或 MS SQL Server。具體實(shí)現(xiàn)這種手段的支持環(huán)境，那就是 HTML 超文本標(biāo)識(shí)語(yǔ)言。 JavaScript 的出現(xiàn)，它可以使得信息和用戶之間不僅只是一種顯示和瀏覽的關(guān)系，而是實(shí)現(xiàn)了一種實(shí)時(shí)的、動(dòng)態(tài)的、可交式的表達(dá)能力。使用它的目的是與 HTML 超文本標(biāo)記語(yǔ)言、 Java 腳本語(yǔ)言（ Java 小程序）一起實(shí)現(xiàn)在一個(gè) Web 頁(yè)面中鏈接多個(gè)對(duì)象，與 Web 客戶交互作用。 基于對(duì)象的語(yǔ)言 JavaScript 是一種基于對(duì)象的語(yǔ)言，同時(shí)以可以看作一種面向?qū)ο蟮?。它?duì)用戶的反映響應(yīng)，是采用以事件驅(qū)動(dòng)的方式進(jìn)行的。 綜合所述 JavaScript 是一種新的描述語(yǔ)言，它可以被箝入到 HTML 的文件之中。 2. 系統(tǒng)平臺(tái) 采用 Browser/Server 體系結(jié)構(gòu)，服務(wù)器端采用 Microsoft Windows 作為網(wǎng)絡(luò)操作系統(tǒng)， Web 服務(wù)器軟件采用 （ Inter Information Server）。用戶管理功能模塊的關(guān)系，如圖 3 所示。首先用戶創(chuàng)建 一個(gè)名為news 的數(shù)據(jù)庫(kù)，保存新聞發(fā)布及管理系統(tǒng)的所有數(shù)據(jù)。在精確度要求不高的情況下使用 smalldatetime 數(shù)據(jù)類型就足夠了。Server=(local)。如果當(dāng)前用戶是 Admin，則不做任何操作。 文件的內(nèi)容如下： 字體 SELECT onChange=var c=[].value。/font39。FONTSIZE: 9pt39。在其他文件中需要顯示控制模板的位置使用include 引用此文件。定義 Stream對(duì)象 set tStream = () set Data_5xsoft = () 39。取得文件名 iFindStart = InStr(iFindEnd,sInfo,filename=,1)+10 iFindEnd = InStr(iFindStart,sInfo,1) sFileName = Mid (sinfo,iFindStart,iFindEndiFindStart) =getFileName(sFileName) =getFilePath(sFileName) 39。 var hth=。 wth=500。 return false。color:black39。變量 t用來(lái)記錄 t = 0 39。生成另一個(gè)表格，用于顯示新聞標(biāo)題 table width=39。顯示新聞標(biāo)題及鏈接，查看新聞的腳本文件為 trtd width=39。如果新聞中有圖片，則在標(biāo)題中顯示（附圖） If rs(Attpic) Then (附圖 ) End If /a 39。( + CStr(rs(Posttime)) + )/td/tr End If Loop /table 39。本系統(tǒng)使用格式為 a 類別編號(hào) 的書簽來(lái)定義新 聞?lì)悇e的位置。程序中的 nein（）函數(shù)可以根據(jù)屏幕的分辨率調(diào)整窗口大小。 Admin 用戶還可以管理其他用戶。 lefth =147。 wth=500。 var strid, strurl。 } else { strid = strid + , + Newsid。j。 color=redb 新 聞 管 理/b/font/p table align=center border=39。全部新聞 /a % Dim rs,rsCate Set rs = () set rsCate = () 39。color:black39。font color=red類別管理 /font/a a href=39。39。 ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE CateId= amp。讀取參數(shù) page，表示當(dāng)前的頁(yè)碼，使用 CLng將其轉(zhuǎn)換為長(zhǎng)整型 Page = CLng(Request(Page)) 39。 And amp。FONTSIZE: 9pt39。font color=red用戶管理 /font/a sql_where = Else 39。39。參數(shù) flag表示指定的新聞?lì)悇e iflag = (flag) 39。 width=39。 } } function sltNull() { var nn = (Cate)。 if(!s) { alert(請(qǐng)選擇要?jiǎng)h除的新聞 !)。 //返回復(fù)選框 Cate的數(shù)量 for (j=0。 oth = oth+,width=+wth+,height=+hth 。 topth=44。 圖 9 新聞管理界面 ： !include file= !include file= html head meta equiv=ContentType content=text/html。新聞管理的文件夾是 ，其具體作用將在后面介紹 。每個(gè)鏈接指向相應(yīng)新聞?lì)悇e的書簽。生成“更多新聞”鏈接，查看指定類別所有新聞的腳本為 a target=39。pic/39。a onClick=39。 border=0 cellspacing=0 cellpadding=0 39。100%39。39。定義 Recordset對(duì)象，用于保存新聞?lì)悇e記錄集 Set rs = () set rsCate = () % /head body bgcolor=ffffff div align=centerstrongfont color=blue size=3 新 聞 欄 目/font/strongbrbr % 39。 } else { hth=500。 if(wth==1024) { hth=500。如果是表單項(xiàng)目 =1 =3 = iInfoEnd tStream,iFormStartiInfoEnd3 = 0 = 2 =gb2312 sFormValue = if (sFormName) then objForm(sFormName)=objForm(sFormName)amp。讀取數(shù)據(jù) RequestData = 39