【正文】 e 數(shù)據(jù)類型用于存儲從 1900 年 1 月 1 日到 2079 年6 月 6 日的日期和時間數(shù)據(jù)，精確到分鐘。2 UserName varchar(50) 用戶名3 UserPwd varcahr(50) 密碼4 Ename varchar(50) 用戶姓名5 Email varchar(50) 電子郵箱第三節(jié) 創(chuàng)建表的腳本文件本節(jié)將介紹創(chuàng)建表的腳本文件，可以在“查詢分析器”中執(zhí)行這些腳本，在數(shù)據(jù)庫news 中創(chuàng)建表。使用 NOT NULL 定義的字段將不允許為空，這樣就可以避免表中出現(xiàn)無效的數(shù)據(jù)，影響系統(tǒng)運行。每次增加新記錄時，標識字段自動遞增。, 39。, 39。如果要創(chuàng)建的表已經(jīng)存在，則需要先將表刪除。 的代碼如下：%dim Conndim ConnStrset Conn=()ConnStr=driver={SQL Server}。Database=news ConnStr%在文件中引用此文件作為頭文件就可以訪問數(shù)據(jù)庫，代碼如下：!include File=2．因為本實例中有些功能只有 Admin 用戶才有權(quán)限使用，所以在進入這些網(wǎng)頁之前，需要判斷用戶是否是 Admin。 可以實現(xiàn)此功能，代碼如下：% If Session(UserName) Admin Then NewsId = Request(Id) 39。在兩種情況下， 將阻止程序繼續(xù)執(zhí)行：(1)指定新聞不存在；(2)當(dāng)前用戶不是指定新聞的作者。 的設(shè)計界面如圖 5 所示。在顯示新聞內(nèi)容時，程序?qū)詣訉space]轉(zhuǎn)換為空格。39。39。font[space]face=39。/font39。當(dāng)下拉菜單的選擇發(fā)生變化時，將觸發(fā) onChange 事件，程序中直接定義了對應(yīng)的JavaScript 代碼。+c+39。也就是在它的兩側(cè)添加字體標識font和/font。39。錄入新聞類別和新聞內(nèi)容后， 的界面如圖 56 所示。為了解決這個問題，本實例使用書簽來定義新聞類別的位置，書簽格式為a類別編號。% 39。每個新聞類別標題被定義為一個書簽，名為 a 類別編號% a href=a%=cid%font style=39。書簽是網(wǎng)頁中被標記的位置或被標記的選中文本。新聞管理/font/a 3．顯示各新聞類別中的最新新聞 的主要內(nèi)容是顯示新聞類別中的最新 10 條新聞，并將 3 天內(nèi)的新聞使用new 圖片標記。按順序讀取所有新聞類別，保存在記錄集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。color:black39。TEXTDECORATION: none39。變量 t 用來記錄 t = 0 39。顯示新聞類別，并設(shè)置書簽 td bgcolor=ceceffa name=aamp。生成另一個表格，用于顯示新聞標題table width=39。 cid amp。顯示新聞標題及鏈接，查看新聞的腳本文件為 trtd width=39。39。如果新聞中有圖片，則在標題中顯示（附圖）If rs(Attpic) Then (附圖) End If /a 39。最新的新聞！39。( + CStr(rs(Posttime)) + )/td/trEnd If Loop /table 39。 href=39。請參照注釋理解。本節(jié)將介紹管理界面 的實現(xiàn)方法。!include file=!include file= (2)顯示新聞類別鏈接 將新聞按照分類顯示，每個新聞類別只顯示最新的 20 條新聞。設(shè)置 SQL 語句，讀取所有的新聞類別到 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。TEXTDECORATION: none。(3)顯示管理鏈接在 中，將根據(jù)用戶類型顯示管理鏈接，包括“更改密碼” 、 “類別管理” 、 “用戶管理”和“退出登錄” ，只有 Admin 用戶才能看到“類別管理”和“用戶管理”鏈接。font color=red類別管理/font/a a href=39。 amp。當(dāng) Session(”UserName”)=”Admin”時，才能顯示 “類別管理”和“用戶管理”超級鏈接。Session(“UserName”)amp。 sql_where amp。 iflag amp。如果記錄集 rs 為空，則顯示“目錄還沒有記錄” If Then trtd colspan=4 align=center目前還沒有記錄。處理不合法的頁碼 If Page 1 Then Page = 1 If Page Then Page = 39。顯示分頁頁碼 If 1 then table border=39。 iflag amp。 39。在調(diào)試程序時，可以使用下面的語句顯示 sELECT 語句的內(nèi)容。圖 69 新聞類別管理界面下面將介紹 中與界面顯示相關(guān)的部分代碼。讀取所有的新聞類別數(shù)據(jù)到記錄集 rs 中 sql = SELECT * FROM Category ORDER BY CateId sql, conn, 1, 1 If Then 39。/font/td/tr/table Else 39。參數(shù) Oper 的值為 update，表示當(dāng)前操作為修改新聞類別；參數(shù) cid 表示要修改的新聞類別編號；參數(shù) name 表示要修改的新聞類別名稱。本實例介紹一種更方便的方法，即通過復(fù)選框選擇要刪除的記錄，然后單擊 cc 刪除， ，按鈕，這樣可以同時刪除多條記錄。當(dāng) flag=update時，將顯示修改新聞類別的表單；否則顯示添加新聞類別的表單，代碼如下：% 39。第二節(jié) 添加新聞類別 在執(zhí)行 Cate_Admin．a(chǎn)sp 時，如果參數(shù) Oper 不等于 update，頁面的下方將顯示添加數(shù)據(jù)的表單 Aform。處理添加、修改和刪除操作 dim Soperate Soperate = (oper) Operid = (cid) 39。 CStr(Operid) amp。 CStr(Operid) amp。下面將介紹相關(guān)的代碼。Oper=edit div align=centerinput type=hidden name=sOrgTitle value=%=sTitle%font color=FFFFFFbfont color=000000類別名稱/font/b/font input type=text name=txttitle size=20 value=%=sTitle%input type=submit name=Submit value= 修 改 /div/form%Else%form name=AForm method=post action=?Oper=add div align=centerfont color=FFFFFFbfont color=000000類別名稱/font/b/font input type=text name=txttitle size=20input type=submit name=Submit value= 添 加 /div/form%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。trtdb分頁： /b/td For i = 1 To tda href=39。循環(huán)顯示當(dāng)前頁的記錄 For i = 1 to 39。設(shè)置分頁顯示，每頁顯示 20 條新聞記錄 = 2039。 sql_where amp。 iflag amp。(4)分頁顯示新聞信息下面將根據(jù)指定的新聞類別和頁碼顯示新聞標題列表，代碼如下：% 39。變量 sql_where 用來記錄查詢條件。 39。font color=red用戶管理/font/a sql_where = Else 39。如果為管理員則顯示類別管理和用戶管理 If Session(UserName) = Admin Then a href=39。%=stitle%/font/a % Loop%在調(diào)用 時，參數(shù) flag 表示新聞類別。?flag=%=cid%39。定義變量 Dim iflag,sql_where 39。 下面介紹 的主要代碼。本站中使用 進行身份驗證。更多新聞.../a/p /td/tr/table/td/table loop % 因為在第 l 步中已經(jīng)將各新聞類別的標題讀取到記錄集 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=039。/a == 39。100%39。將指針移至開始位置，分別顯示每個分類中的新聞 If = False Then End If 39。39。每個新聞類別標題被定義為一個書簽，名為 a 類別編號% a href=a%=cid%font style=39。這部分代碼如下:% 39。在本例中，因為書簽位置是動態(tài)變化的，所以需要使用代碼定義，方法如下：a name=書簽名 /a 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 條新聞。/font在添加和修改新聞內(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。/font39。font[space]face=39。相關(guān)代碼如下：字體 SELECT onChange=var c=[].value。例如，選中正文 abc，然后選擇“楷體”、“1 號字”，將生成如下代碼：font[space]face=楷體_GB2312font[space]size=1abc/font/font [space]是自定義的符號，因為空格在轉(zhuǎn)換成 HTML 格式時，將被替換為 “amp。在文件中引用此文件作為頭文件，代碼如下：!include File= 4．在添加和修改新聞內(nèi)容時，需要對字體、字號、顏色和排列位置等屬性進行設(shè)置。 Trim(NewsId) set rsNews=(sql) Set Rs=(