【正文】 TD vAlign=top align=left bgColor=bedbf8 colSpan=2 height=1/TD/TR/TBODY/TABLE/TD TD vAlign=top align=left width=1 rowSpan=2IMG height=30 src= width=1/TD/TR/TBODY/TABLE TABLE cellSpacing=0 cellPadding=0 width=522 border=0 TBODY TR TD width=10 bgColor=ffffff /TD TD bgColor=ffffff colSpan=2 height=24div align=leftfont color=000000新聞標(biāo)題 /font/div/TD TD width=94 height=24 bgColor=ffffffdiv align=center新聞作者 /div/TD TD width=220 height=24 bgColor=ffffffdiv align=center發(fā)布時(shí)間 /div/TD /TR TR/TR % do while not % TR TD bgColor=ffffff /TD TD bgColor=ffffff colSpan=2 height=25 div align=lefta href=?id=%=rs(id)%/aa href=?id=%=rs(id)%font face= 楷體_GB2312%=rs(xwbt)%/font/a/div/TD TD bgColor=ffffff height=25div align=center%=rs(xwzz)%/div/TD TD bgColor=ffffff height=25div align=center%=rs(fbshj)%/div/TD /TR % () loop % /TBODY/TABLE TABLE cellSpacing=0 cellPadding=0 width=522 border=0 TBODY TR TD vAlign=top align=left width=1 height=30 rowSpan=2IMG height=30 src= width=1/TD TD width=520 height=30 TABLE cellSpacing=0 cellPadding=0 width=520 border=0 TBODY TR TD width=260 align=left bgColor=edf5fd class=style4 style4 style=PADDINGLEFT: 9px。 PADDINGTOP: 8px國(guó)際新聞 /TD TD style=PADDINGRIGHT: 8px。) =2 % ‘連接數(shù)據(jù)庫(kù)建立記錄集 ‘查詢記錄 TBODY TR TD width=522 rowspan=3 align=left vAlign=topTABLE cellSpacing=0 cellPadding=0 width=522 border=0 TBODY TR TD vAlign=top align=left width=1 height=30 rowSpan=2IMG height=30 src= width=1/TD TD width=520 height=30 TABLE cellSpacing=0 cellPadding=0 width=520 border=0 TBODY TR TD width=260 align=left bgColor=edf5fd class=style4 style4 style=PADDINGLEFT: 9px。 () = SELECT * FROM news where lmbh in(select lmbh from fl where lmbh=39。() db % 建立數(shù)據(jù)庫(kù)的連接 主頁(yè)面設(shè)計(jì) 界面如圖 所示 : 圖 新聞主頁(yè) 代碼如下： % set rs=() = driver={microsoft access driver (*.mdb)}。列表以及推薦新聞信息列表 ,并能提供一些新聞檢索功來(lái)實(shí)現(xiàn)用戶根據(jù)個(gè)人喜好查看自己趕興趣的新聞 .同時(shí)還應(yīng)提供用戶評(píng)論功能 ,使得用戶可以對(duì)新聞信息發(fā)表自己的看法和意見 .另外 ,能統(tǒng)計(jì)用戶訪問(wèn)新聞的瀏覽次數(shù) ,以供后臺(tái)展示熱點(diǎn)新聞和統(tǒng)計(jì)新聞信息的受歡迎程度 . 后臺(tái)管理方面 ,必須由合法的管理者來(lái)管理新聞的的發(fā)布修改刪除等 ,那么系統(tǒng)就需要一個(gè)管理員登錄注銷的模塊 . 系統(tǒng)結(jié)構(gòu)設(shè)計(jì) 系統(tǒng)結(jié)構(gòu) 如圖 所示 圖 新聞發(fā)布系統(tǒng) 后臺(tái)管理 前臺(tái)閱讀 分類瀏覽 新聞詳情 發(fā)表評(píng)論 管理員登錄 新聞首頁(yè) 閱讀評(píng)論 評(píng)論管理 新聞管理 刪除評(píng)論 添加新聞 修改新聞 刪除新聞 系統(tǒng)流程 如圖 所示 圖 新聞發(fā)布管理系統(tǒng)流程圖 管理首頁(yè) 驗(yàn)證登錄 通過(guò)驗(yàn)證 維護(hù)新聞分類 進(jìn)入新聞列表 刪除新聞 修改新聞 添加新聞 選擇新聞分類 完成 不通過(guò) 主要頁(yè)面及其代碼 數(shù)據(jù)庫(kù)連接 代碼如下： % dim conn,db set conn=() db=driver={microsoft access driver (*.mdb)}。 rs,Close:關(guān)閉 Recordset 對(duì)象。 : 將指標(biāo)移到第一筆記錄。 :將指標(biāo)移到下一筆記錄。 :游標(biāo)中的數(shù)據(jù)記錄總數(shù)。 rs(i):讀取第 i個(gè)字段的數(shù)據(jù)， i 由 0 算起到 。下面列出了所要?jiǎng)?chuàng)建的 Recordset 對(duì)象即游標(biāo)的一些屬性及方法： : Recordset 對(duì)象的字段總數(shù)。 Recordset 的使用方法如下： Set rs =(” ” ) SQL 指令， Conn,1,1’ 讀取 或 SQL 指令， Conn,1,3’ 新增、修改或刪除； 第三步是：使用 Recordset 屬性和方法，并顯示執(zhí)行的結(jié)果。指針還用語(yǔ)檢索和檢查記錄，然后在這些記錄的基礎(chǔ)上執(zhí)行操作。根據(jù) Recordset 對(duì)象的指針類型屬性設(shè)置，可以滾動(dòng)和更新記錄。正如它的名稱所暗示的那樣， Recordset 對(duì)象有許多可以使用的特性 ，根據(jù)查詢限制，檢索并且顯示一組數(shù)據(jù)庫(kù)行，即記錄?！? % 在指定了想要連接的數(shù)據(jù)庫(kù)后 ,就可以通過(guò)以下方法連接并打開數(shù)據(jù)庫(kù) : %Set Conn=(” ” ) constr % 第二步是指定想要執(zhí)行的 SQL 指令 ,可以使用 RexordSet。Threads=3。PageTimeout=5。MaxBufferSize=512。FIL=MS Access。DRIVER={Microsoft Access Driver(*,mdb)}。 Add 添加一個(gè) DSN 入口，選擇 Microsoft Access Drive 并確認(rèn)； 在 Data Source Name 欄里輸入希望指定的 DSN，然后單擊 Select 選擇數(shù)據(jù)庫(kù)存放的位置，可以按 Browse 來(lái)選擇； 以上步驟完成后在 ASP程序中指定 DSN，如下列所示： %connstr=” DSN” % DSNless:是另一種通過(guò)在 ASP 文件里直接指定數(shù)據(jù)庫(kù)文件所在位置 ,而無(wú)需建立 DSN的方法 ,由于許多公司沒有自己的 WEB服務(wù)器 ,他們的網(wǎng)站往往是存放在遠(yuǎn)端的虛擬服務(wù)器上的 ,因此要建立和修改 DSN 的設(shè)置比較麻煩 ,而使用DSNLESS 方法直接指 定遠(yuǎn)端數(shù)據(jù)庫(kù)所在位置恰恰解決了這一個(gè)問(wèn)題 ,方法如下 : % connstr=” DBQ=” +(” database/” )+” 。 在本程序中我使用的是第二種方式，即 ADO 方式。 Web 瀏覽器用 HTTP 協(xié)議向 Inter 信息服務(wù)器（ IIS）遞交請(qǐng)求。 c. RDS（ Remote Data Service）方式 。 ASP 訪問(wèn)數(shù)據(jù)庫(kù)的幾種方式 ： 在 ASP 腳本中可以通過(guò)三種方式訪問(wèn)數(shù)據(jù)庫(kù)： a. IDC（ Inter Database Connector）方式 。 ODBC（ Open Database Connectivity 開放式數(shù)據(jù)庫(kù)互聯(lián)）是微軟推出的一種工業(yè)標(biāo)準(zhǔn)，一種開放的獨(dú)立于 廠 商的 API 應(yīng)用程序接口，可以跨平臺(tái)訪問(wèn)各種個(gè)人計(jì)算機(jī)、小型機(jī)以及主機(jī)系統(tǒng)。 Access是一個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng)，它之所以被集成到 Office中而不是 Visual Studio 中，是因?yàn)樗c其它的數(shù)據(jù)庫(kù)管理系統(tǒng)（如 Visual FoxPro）相比更加簡(jiǎn)單易學(xué)，一個(gè)普通的計(jì)算機(jī)用戶即可掌握并使用它。 d. 點(diǎn)擊 “ 完成 ” 按鈕，完成 IIS 的安裝。 “Windows 2020” 安裝盤放入光驅(qū)中，然后點(diǎn)擊 “ 下一步 ” 。 IIS 的安裝 ： a. 點(diǎn)擊：【開始】 【設(shè)置】 【控制面板】 【添加 /刪除程序】，打開 “ 添加 /刪除程序 ” 對(duì)話框。 IIS 版本以后引入了 ASP，可以很容易的張貼動(dòng)態(tài)內(nèi)容和開發(fā)基于 Web 的應(yīng)用程序。和 Execute 不同的是，執(zhí)行完畢后不返回原網(wǎng)頁(yè)，而是停止執(zhí)行過(guò)程 IIS 的 運(yùn)用 IIS 簡(jiǎn)介 IIS 是 Inter Information Server 的縮寫，它是微軟公司主推的 Web 服務(wù)器， 最新的版本是 Windows2020 里面包含的 IIS ， IIS 與 WindowNT Server 完全集成在一起， 因而用戶能夠利用 Windows NT Server 和 NTFS（ NT File System， NT的文件系統(tǒng)）內(nèi)置的安全特性， 建立強(qiáng)大、靈活而安全的Inter 和 Intra 站點(diǎn)。 屬性 說(shuō)明 ScriptTimeout 規(guī)定腳本文件最長(zhǎng)執(zhí)行時(shí)間，超過(guò)時(shí)間就停止執(zhí)行腳本，其 默認(rèn)值為 90 秒 Server 對(duì)象的方法如表 236所示。 Server Server 對(duì)象是專為處理服務(wù)器上的特定任務(wù)而設(shè)計(jì)的，特別是與服務(wù)器的環(huán)境和處理活動(dòng)有關(guān)的任務(wù)。 Application_OnEnd 事件當(dāng)應(yīng)用程序退出時(shí)發(fā)生，該事件發(fā)生在Session_OnEnd 事件之后。 例： Sub Application_OnStart Application(NumberofVisitors) = 0 End Sub 說(shuō)明：在 Application_OnStart 事件過(guò)程腳本中并不需要使用 和 方法，因?yàn)樵撌录H僅在第一個(gè)會(huì)話啟動(dòng)應(yīng)用程序時(shí)發(fā)生一次。語(yǔ)法格式如下： SCRIPT LANGUAGE = VBScript RUNAT = Server Sub Application_OnStart …… End Sub /SCRIPT 在 Application_OnStart 事件過(guò)程腳本中，只有 Application對(duì)象和 Server對(duì)象是可用 的。 (4) –––Application 對(duì)象的 Contents 集合中刪除所有項(xiàng)目 。 （ 2