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