【正文】 發(fā)達(dá)的今天，人們對(duì)最新信息的需求和發(fā)布迫切的需要及時(shí)性。 跨平臺(tái)性 JavaScript 是依賴 于瀏覽器本身，與操作環(huán)境無(wú)關(guān)，只要能運(yùn)行瀏覽器的計(jì)算機(jī)，并支持 JavaScript 的瀏覽器就可正確執(zhí)行。其次它的變量類型是采用弱類型，并未使用嚴(yán)格的數(shù)據(jù)類型。像其它腳本語(yǔ)言一樣 ,JavaScript 同樣已是一種解釋性語(yǔ)言，它提供了一個(gè)易的開(kāi)發(fā)過(guò)程。它是眾多腳本語(yǔ)言中較為優(yōu)秀的一種，它與 WWW 的結(jié)合有效地實(shí)現(xiàn)了網(wǎng)絡(luò)計(jì)算和網(wǎng)絡(luò)計(jì)算機(jī)的藍(lán)圖。 然而采用這種超鏈技術(shù)存在有一定的缺陷，那就是它只能提供一種靜態(tài)的信息資源，缺少動(dòng)態(tài)的客戶端與服務(wù)器端的交互。無(wú)論從管理方面，還是從商業(yè)角度來(lái)看，Inter 都可以帶來(lái)無(wú)限生機(jī)。 ASP 的運(yùn)行環(huán)境 ASP 程序運(yùn)行在支持 ASP 的 Web 服務(wù)器上，由于 ASP 與 Windows 操作系統(tǒng)都是微軟的產(chǎn)品，所以安裝 Windows操作系統(tǒng)的 Web服務(wù)器對(duì) ASP的支持是最好的，這種優(yōu)良的支持表現(xiàn)在兼容性、穩(wěn)定性、功能擴(kuò)展、速度等方面。 ▲ ASP 的源程序由于只在服務(wù)器上運(yùn)行，不會(huì)被傳到客戶端瀏覽器，因而可以避免所寫的源程序被他人剽竊，也提高了程序的安全性。 ASP 的特點(diǎn) ASP 主要特點(diǎn)表現(xiàn)如下： ▲ 使用 VBScript 、 JavaScript 等簡(jiǎn)單易懂的腳本語(yǔ)言，結(jié)合 HTML 代碼，即可快速地開(kāi)發(fā)網(wǎng)站的應(yīng)用程序。當(dāng)用戶從瀏覽器向 Web 服務(wù)器提出請(qǐng)求時(shí)， Web服務(wù)器會(huì)自動(dòng)將 ASP 的程序解釋為標(biāo)準(zhǔn)的 HTML 格式的主頁(yè)內(nèi)容，用戶端只要使用常規(guī)可執(zhí)行 HTML 程序的瀏覽器，就可瀏覽 ASP 所設(shè)計(jì)的主頁(yè)內(nèi)容，因此與瀏覽器無(wú)關(guān)，并且保證了 ASP 的源程序代碼不會(huì)外漏。我們也可以將 ASP 理解為一種特殊的 CGI。 隨著 Inter 的 進(jìn)一步 發(fā)展 ,靜態(tài) Web 站點(diǎn)的開(kāi)發(fā)與維護(hù)變得越來(lái)越困難 ,一方面信息的不斷增加和變化 ,使站點(diǎn)維護(hù)人員不得不經(jīng)常修改他們的網(wǎng)頁(yè) ,特別是基于數(shù)據(jù)庫(kù)驅(qū)動(dòng)的 Web 站點(diǎn)更是如此 ，隨著 Inter 上信息量的增多和交互性的加強(qiáng)使 HTML 顯得越來(lái)越難以勝任。 【 關(guān)鍵字 】 新聞 發(fā)布 管理 Abstract:Nowdays reading news online has been part of everyday famous websites such as Sohu set up news column,They publish a great deal of news every they have to publish news everyday,the frequency was high and the amount was they use static page to make news,there were many trifles in defending managerial personnal of the system have to spend a lot of time and energy in making news and management system can help them reduce workload,issue news dynamicly and simplify news publish and mannagement to improve work efficiency. The design and development of news publishing and management system covers the following aspects: News category management,including recording inquiry,modification and caceling of news category. News publishing management,including recording,modification and canceling of news. Picture disposing,including sending,storing modifying,canceling and browsing of photographs and documents. News inquiry can be divided into two submodels。網(wǎng)易、搜狐等著名網(wǎng)站都開(kāi)設(shè)有新聞專欄，每天發(fā)布大量新聞信息。 它 打破了地域限制，真正使信息 得以 共享 ， 改變 了 人們的工作和生活 方式 。所謂動(dòng)態(tài)內(nèi)容是由每一個(gè)用戶按照自己的需求發(fā)出請(qǐng)求而特殊制作的 Web 網(wǎng)頁(yè) 。盡管 ASP 在工作效率方面較之一些新技術(shù)要差，但勝在簡(jiǎn)單、直觀、易學(xué)，是涉足網(wǎng)絡(luò)編程的一條捷徑。在站點(diǎn)發(fā)布數(shù)據(jù)庫(kù)將使用這個(gè)組件及其中包含的對(duì)象，以完成對(duì) ODBC 數(shù)據(jù)源的讀寫。 ▲ 使用普通的文本編輯器，如 Windows 的記事本，即可進(jìn)行編輯設(shè)計(jì)。 ASP可以方便地實(shí)現(xiàn)諸如用戶信息 收集、計(jì)數(shù)器、留言板、論壇、聊天室和電子商務(wù)功能。通常單位要建立自己的 Web服務(wù)器一般選擇的操作系統(tǒng)是易上手易管理的 Windows 2020 Server，或是微軟最近推出的Windows 2020 Server。采用超鏈技術(shù)（超文本和超媒體技術(shù)）是實(shí)現(xiàn)這個(gè)目標(biāo)最簡(jiǎn)單的、最快速的手段和途徑。可以這樣說(shuō) ,JavaScript 的出現(xiàn)是時(shí)代的需求 ,是當(dāng)今的信息時(shí)代造就了 JavaScript。 JavaScript 是一種基于對(duì)象 (Object)和事件驅(qū)動(dòng) (Event Driven)并具有安全性能的腳本語(yǔ)言。它與 HTML 標(biāo) 識(shí)結(jié)合在一起，從而方便用戶的使用操作。 動(dòng)態(tài)性 JavaScript 是動(dòng)態(tài)的，它可以直接對(duì)用戶或客戶輸入做出響應(yīng)，無(wú)須經(jīng)過(guò)Web 服務(wù)程序。無(wú)須有高性能的電腦，軟件僅需一個(gè)字處理軟件及一瀏覽器，無(wú)須 WEB服務(wù)器通道，通過(guò)自己的電腦即可完成所有的事情。 、開(kāi)發(fā)環(huán)境 1. 硬件條件 服務(wù) 器兩臺(tái)，一臺(tái)為數(shù)據(jù)庫(kù)服務(wù)器，一臺(tái)為 Web 服務(wù)器；客戶端計(jì)算機(jī)若干；網(wǎng)絡(luò) 通 訊設(shè)備，主要包括交換機(jī)、網(wǎng)卡、集線器、 MODEM 等。在系統(tǒng)系統(tǒng)初始化時(shí)，有一個(gè)默認(rèn)的系統(tǒng)管理員用戶 Admin，系統(tǒng)管理員除了可以修改 Admin 用戶的密碼，還可以創(chuàng)建、修改和刪除普通用戶，普通用戶只能修改自己的用戶名和密碼。 后臺(tái)系統(tǒng) 新聞發(fā)布管理 發(fā)布文字信息 發(fā) 布新聞圖片 數(shù)據(jù)庫(kù) 前臺(tái)系統(tǒng) 新 發(fā) 聞 布 查 網(wǎng) 詢 友 管 評(píng) 理 論 創(chuàng)建和修改普通用戶信息 修改自身的用戶名和密碼 新聞?lì)悇e管理 系統(tǒng)用戶信息管理 修改 Admin 用戶的密碼 重試 圖 4 后臺(tái)系統(tǒng)流程分析圖 第五章 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)與實(shí)現(xiàn) 創(chuàng)建數(shù)據(jù)庫(kù) 本系統(tǒng)使用的是 SQL Server2020 作為系統(tǒng)數(shù)據(jù)庫(kù)。 表 3 Discuss 表 字段名 字段類型 字段長(zhǎng) 說(shuō)明 Id int 4 評(píng)論文章編號(hào)，系統(tǒng)自 動(dòng)生成 UserId varchar 20 評(píng)論人 Posttime smaaldatetime 4 提交時(shí)間 content varchar 4000 評(píng)論內(nèi)容 NewsId Int 4 新聞編號(hào) 在 Discuss 表中使用了 Smalldatetime 數(shù)據(jù)類型存儲(chǔ)日期時(shí)間數(shù)據(jù)，該類型可以存儲(chǔ)從 1900年 1月 1日到 2079年 6月 6日的日期和時(shí)間數(shù)據(jù)，精確到分鐘；datetime 類型可以存儲(chǔ)從 1753 年 1 月 1 日到 9999 年 12月 31 日的日期和時(shí)間數(shù)據(jù)，精確到 。 文件 ，其內(nèi)容如下： dim Conn dim ConnStr set Conn=() ConnStr=DRIVER={SQL Server}。 完成該功能。 文件的界面如圖 5 所示。+ge().text+39。} name=font style=39。 在添加、修改新聞內(nèi)容 的網(wǎng)頁(yè)中，必須將表單定義為 myform，新聞內(nèi)容的多行文本框必須定義為 txtcontent。如果字節(jié)數(shù)小于 1，則退出 if 1 then Exit Sub 39。如果是文件 if InStr (45,sInfo,filename=,1) 0 then set theFile=new FileInfo 39。 charset=gb2312 link href= rel=stylesheet script language=JavaScript function newwin(url) { var wth=。 lefth =35。 ()。TEXTDECORATION: none。依次顯示每個(gè)新聞?lì)悇e中最新的 10 條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。顯示新聞?lì)悇e標(biāo)題 stitle + ==/td/tr 39。只顯示 5條新聞 If t 6 Then Dim ndate ndate = DateAdd(d,3,date()) 39。 + rs(Title) + 39。20%39。釋放資源 Set rs = nothing Set rsCate = nothing % p align=centera href=javascript:close()[關(guān)閉 ]/a /body /html 下面介紹 文件的主要功能 顯示新聞?lì)悇e鏈接 系統(tǒng)能將新聞分類顯示，每個(gè)新聞?lì)悇e顯示最新的 5條新聞。使用 Do while 語(yǔ)句依次處理每個(gè)新聞?lì)悇e，讀取該類別中所有新聞信 息到記錄集 rs 中，并顯示新聞標(biāo)題。在管理界面中可以添加、刪除新聞?lì)悇e和新聞內(nèi)容。 if(wth==1024) { hth=600。 } else { hth=600。 //用來(lái)記錄是否存在被選中的復(fù)選框 var Newsid, n=0。 //轉(zhuǎn)換為字符串 //生成要?jiǎng)h除新聞編號(hào)的列表 if(n==1) { strid = Newsid。 for(j=0。FONTSIZE:12pt39。39。TEXTDECORATION: none。39。 End If % a href=39。 iflag amp。設(shè)置分頁(yè)顯示，每頁(yè)顯示 20 條新聞?dòng)涗? = 20 39。 sql_where amp。 tr td width=56% align=center bgcolor=FEEC85strong 題 目/strong/td td width=24% align=center bgcolor=FEEC85strong 時(shí) 間/strong/td td width=10% align=center bgcolor=FEEC85strong 修 改/strong/td td width=10% align=center bgcolor=FEEC85strong選擇 /td /tr % 39。如果不 是系統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設(shè)置 WHERE 子句的條件 sql_where = Poster=39。font color=red新聞查詢 /font/a a href=39。設(shè)置 SQL語(yǔ)句，讀取所有的新聞?lì)悇e到 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。100%39。 for(j=0。 return false。 j。 var newwin=(url,newwin,oth)。 } else if(wth==800) { hth=500。 charset=gb2312 title新聞管理 /title meta name=GENERATOR content=Microsoft FrontPage link rel=stylesheet href