【正文】 的 HTML 標(biāo)記：所有的 HTML 標(biāo)記均可使用。 ASP 的運(yùn)行環(huán)境 目前 ASP 可運(yùn)行在三種環(huán)境下。 其中以 NT server 上的 IIS 功能最強(qiáng)，提供了對(duì) ASP 的全面支持，是創(chuàng)建高速、穩(wěn)定的 ASP 主頁(yè)的最佳選擇。 3 Request 對(duì)象： 從用戶端取得信息傳遞給服務(wù)器，是 ASP 讀取用戶輸入的主要方法。此項(xiàng)功能需得到 MTS Microsoft Transcation Server 管理的支持。 4 File Access 組件：提供對(duì)服務(wù)器端文件的讀寫功能。 ADO 組件主要提供了以下七個(gè)對(duì)象和四個(gè)集合來訪問數(shù)據(jù)庫(kù)。 4 RecordSet 對(duì)象：存放訪問數(shù)據(jù)庫(kù)后的數(shù)據(jù)信息，是最經(jīng)常使用的對(duì)象。 圖 1 新聞發(fā)布及管理系統(tǒng)功能模塊示意圖 新聞發(fā)布及管理系統(tǒng)的功能模塊之間的關(guān)系如圖 2 所示。 用戶管理功能模塊的關(guān)系如圖 3 所示。 2 確定用戶的類型。前臺(tái)系統(tǒng)不需要進(jìn)行身份認(rèn)證，任何人都可以通過瀏覽器閱讀已經(jīng)發(fā)布的新聞、發(fā)表網(wǎng)友評(píng)論。 第一節(jié) 創(chuàng)建數(shù)據(jù)庫(kù) 首先創(chuàng)建一個(gè)數(shù)據(jù)庫(kù) news，用來保存本系統(tǒng)的所有數(shù)據(jù)。 1．新聞?lì)悇e表 Category 新聞?lì)悇e表 Category 用來保存新聞?lì)悇e數(shù)據(jù)，結(jié)構(gòu)如表 1 所示。有的程序設(shè)計(jì)人員習(xí)慣于直接使用名稱字段作為標(biāo)識(shí)列，例如表 Category 中的 CateName 字段。 表 2 表 News 的結(jié)構(gòu) 編號(hào) ?字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 ? Id int 新聞編號(hào) 2 Title varchar 100 新聞標(biāo)題 3 Content text 新聞內(nèi)容 4 ?PostTime datetime 提交時(shí)間 5 Poster varchar 50 提交人 6 CateId int 新聞?lì)悇e編號(hào) 7 Attpic bit 是否有圖片標(biāo)記 0 沒有； 1 有 8 Readcount int 閱讀次數(shù) 在SQL?Server?2020 中，可以使用 char、 varchar 和 text 等 3 種數(shù)據(jù)類型存儲(chǔ)非Unicode 字符數(shù)據(jù)。 3．網(wǎng)友評(píng)論信息表 Discuss 網(wǎng)友評(píng)論信息表 Discuss用來保存網(wǎng)友對(duì)新聞的評(píng)論信息，結(jié)構(gòu)如表 3所示。 4．．用戶信息表 Users 用戶信息表 Users 用來保存用戶的基本信息 ，結(jié)構(gòu)如表 8． 4 所示。表中每一行的主鍵都有惟一值，可以使用主鍵惟一地標(biāo)識(shí)一行數(shù)據(jù)。 在使用 CREATE TABLE 指令創(chuàng)建表時(shí)，使用 DEFAULT 關(guān)鍵字可以字義字段的默認(rèn)值，例如表 News 中， Attpic 和 ReadCount 字段的默認(rèn)值為 0。 4．創(chuàng)建表 Users 創(chuàng)建表 Users 的腳本文件為 ，它的代碼如下： USE news GO CREATE TABLE Users UserId Int Primary Key IDENTITY, UserName Varchar 50 NOT NULL, UserPwd Varchar 50 NOT NULL, Ename Varchar 50 , Email Varchar 50 GO INSERT INTO Users UserName, UserPwd, Ename, Email VALUES 39。, 39。 GO 在創(chuàng)建表 users 的同時(shí)，將默認(rèn)的用戶 Admin 插入到表中，默認(rèn)的密碼為“ llllll”。 第二節(jié) 通用模塊 本實(shí)例中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件中使用 include 語(yǔ)句包含這些模塊，使用其中定義的功能。UID sa。 的代碼如下： % If Session UserName Admin Then 不是 Admin 用戶，沒有此權(quán)限 End If % 在文件中引用此文件作為頭文件，代碼如下 : !include File 3． 在修改和刪除新聞時(shí)，除了 Admin 用戶擁有所有權(quán)限外，其他用戶只能修改自己創(chuàng)建的新聞。 Trim NewsId set rsNews sql Set Rs sql If Then 指定新聞不存在 Else 39。 在文件中引用此文件作為頭文件，代碼如下： !include File 4． 在添加和修改新聞內(nèi)容時(shí)，需要對(duì)字體、字號(hào)、顏色和排列位置等屬性進(jìn)行設(shè)置。例如，選中正文 abc，然后選擇“楷體”、“ 1 號(hào)字”，將生成如下代碼： font[space]face 楷體 _GB2312 font[space]size 1 abc [space]是自定義的符號(hào)，因?yàn)榭崭裨谵D(zhuǎn)換成 HTML 格式時(shí)，將被替換為“ amp。相關(guān)代碼如下： 字體 SELECT onChange var c [].value。 font[space]face 39。 39。 39。FONTSIZE: 9pt39。 表示當(dāng)前選擇字符的內(nèi)容，如果它不為空，則將其替換為如下代碼： .text 39。+ .text+39。 font[space]face 39。 在添加和修改新聞內(nèi)容的網(wǎng)頁(yè)中，必須將表單定義為 myform，輸入新聞內(nèi)容的滾動(dòng)文本框定義為 txtcontent，否則此功能將無法實(shí)現(xiàn)。 1．顯示新聞?lì)悇e鏈接 將新聞按照分類顯示，每個(gè)新聞?lì)悇e只顯示最新的 10 條新聞。下面的代碼將在網(wǎng)頁(yè)中生成所有新聞?lì)悇e的鏈接，每個(gè)鏈接都指相應(yīng)新聞?lì)悇e的書簽。按順序讀取所有新聞?lì)悇e，保存在記錄集 rsCate 中 sql SELECT * FROM Category ORDER BY CateId Set rsCate sql 39。color:black39。在本例中，因?yàn)闀炍恢檬莿?dòng)態(tài)變化的，所以需要使用代碼定義，方法如 下： a name 書簽名 2．“新聞管理”鏈接 系統(tǒng)管理員 Admin 或其他用戶可以通過“新聞管理”鏈接進(jìn)入新聞管理頁(yè)面 a href font color red style 39。 這 部分代碼如下 : % 39。每個(gè)新聞?lì)悇e標(biāo)題被定義為一個(gè)書簽，名為 a 類別編號(hào) % a href a % cid% font style 39。39。將指針移至開始位置，分別顯示每個(gè)分類中的新聞 If False Then End If 39。100%39。 39。 border 0 cellspacing 0 cellpadding 0 39。計(jì)數(shù) t t + 1 39。 a onClick 39。?id + cstr rs id + 39。pic/39。顯示新聞提交的時(shí)間 td width 39。生成“更多新聞”鏈接，查看指定類別所有新聞的腳本為 a target 39。 更多新聞 ... loop % 因?yàn)樵诘?l 步中已經(jīng)將各新聞?lì)悇e的標(biāo)題讀取到記錄集 rsCate 中，所以只需要使用執(zhí)行 語(yǔ)句將指針復(fù)位就可以了。本站中使用 進(jìn)行身份驗(yàn)證。 下面介紹 的主要代碼。定義變量 Dim iflag,sql_where 39。?flag % cid% 39。 % stitle% % Loop % 在調(diào)用 時(shí)，參數(shù) flag 表示新聞?lì)悇e。如果為管理員則顯示類別管理和用戶管理 If Session UserName Admin Then a href 39。 font color red 用戶管理 sql_where Else 39。 39。 變量 sql_where 用來記錄查詢條件。 4 分頁(yè)顯示新聞信息 下面將根據(jù)指定的新聞?lì)悇e和頁(yè)碼顯示新聞標(biāo)題列表，代碼如下： % 39。 iflag amp。 sql_where amp。設(shè)置分頁(yè)顯示，每頁(yè)顯示 20 條新聞?dòng)涗? 20 39。循環(huán)顯示當(dāng)前頁(yè)的記錄 For i 1 to 39。 分頁(yè)： For i 1 To a href 39。page amp。 i amp。 只有 Admin 用戶才有權(quán)限進(jìn)入新聞?lì)悇e管理模塊，在 中，單擊“類別管理”超級(jí)鏈接，可以打開類別管理頁(yè)面 。center39。COLOR:Red39。cid % rs CateId % amp。 通常刪除功能也可以通過超級(jí)超級(jí)鏈接來實(shí)現(xiàn)，就像本例中的‘‘修改’’ 超級(jí)鏈接。如果記錄數(shù)大于 0，則顯示全選、清空和刪除等按鈕 If 0 then % input type button value 全 選 onclick sltAll input type button value 清 空 onclick sltNull input type submit value 刪 除 name tijiao onclick SelectChk %End If% 返回當(dāng)前記錄集的記錄數(shù)量。Oper edit div align center input type hidden name sOrgTitle value % sTitle% font color FFFFFF font color 000000 類別名稱 input type text name txttitle size 20 value % sTitle% input type submit name Submit value 修 改 %Else% form name AForm method post action ?Oper add div align center font color FFFFFF font color 000000 類別名稱 input type text name txttitle size 20 input type submit name Submit value 添 加 %End If% 添加和修改新聞?lì)悇e的腳本都是 ，只是參數(shù)不同。 下面將介紹相關(guān)的代碼。 CStr Operid amp。添加 ElseIf Soperate add then CateName Request txttitle 39。 39。 CateName amp。 amp。 Operid Set rs sql If Then 39。 CateName amp。 amp。 Operid 新聞?lì)悇e已經(jīng)成功修改！ Else 已經(jīng)存在此類別名稱 End if End If End If % 注意，在插入新聞?lì)悇e之前，應(yīng) 該判斷此新聞?lì)悇e是否已經(jīng)存在。在文本域 txttitle 中輸入新聞?lì)悇e的名稱，然后單擊“修改”按鈕，將調(diào)用，參數(shù) Oper 等于 edit，表示修改記錄。這樣可以避免出現(xiàn)重復(fù)的新聞?lì)悇e。 for j 0。程序通過 for 循環(huán)語(yǔ)句將所有的 Cate 復(fù)選框值設(shè)置為 true。j++ .item Cate,j .checked false。 var nn .item Cate 。 s true。 strurl ?Oper deleteamp。 if confirm 你確定要?jiǎng)h除這些新聞?lì)悇e嗎？ strurl。以 strid 的值為參數(shù)執(zhí)行 ，參數(shù) Oper 等于 delete，就可以刪除選中記錄了。39。 的運(yùn)行界面如圖 710 所示。 在提交表單數(shù)據(jù)之前，程序?qū)?duì) ValidationPassed 變量進(jìn)行判斷，只有當(dāng)ValidationPa