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