【正文】 數(shù) Function ChangeChr(str) ChangeChr = Replace( str, [upload], div[space]align=centerimg[space]src=images/) ChangeChr=Replace( ChangeChr, [/upload], [space]border=0[space]width=300/img/div) ChangeChr = Replace( ChangeChr, , ) ChangeChr = Replace( ChangeChr, chr(13), br) End Function rqtContent = ChangeChr(request(txtcontent)) 39。 數(shù)據(jù)提交后，將由。 在 中，定義了一個(gè)隱藏域，代碼如下： input type=hidden name=id value=%=rsNews(id)% 它的作用是記錄當(dāng)前編輯新聞的編號(hào)。) 替換數(shù)據(jù)的目的是使它能夠在表單的滾動(dòng)文本域 txtcontent 中正確顯示。39。 (id)) 因?yàn)樾侣務(wù)臄?shù)據(jù)在存儲(chǔ)前進(jìn)行過(guò)替換處理，所以這里需要將數(shù)據(jù)還原，代碼如下： If Not Then 39。 !include file= !include file= 在 中程序?qū)⑹紫雀鶕?jù)參數(shù) ID 的值讀取新聞數(shù)據(jù)，代碼如下 : Set rsNews = () Set rsCate = () 39。 本節(jié)將介紹如何使用 修改新聞內(nèi)容。單擊此鏈接，東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 24 將打開(kāi) ，對(duì)指定新聞進(jìn)行編輯。 在 頁(yè)面的相關(guān)位置使用 include 命令包括 ，將可以顯示控制模板。程序?qū)⒎謩e對(duì)新聞?lì)悇e、新聞標(biāo)題和新聞內(nèi)容進(jìn)行判斷，這些信息是必須填寫(xiě)的。 return ValidationPassed。 } if( == ) { alert(請(qǐng)?zhí)顚?xiě)新聞內(nèi)容！ )。 ValidationPassed = false。 return ValidationPassed。在． 中，定義“確定”按鈕的代碼如下： input type=submit value= 確 定 name=B1 onclick=return form_onsubmit() 在單擊“確定”按鈕時(shí)，將執(zhí)行 form_onsubmit()，進(jìn)行數(shù)據(jù)有效性驗(yàn)證，代碼如下 : function form_onsubmit(obj) { ValidationPassed = true。在提交表單數(shù)據(jù)之前，程序?qū)?duì) ValidationPassed 變量進(jìn)行判斷，只有當(dāng)ValidationPassed=True 時(shí)，才 執(zhí)行提交操作。將新聞?lì)悇e裝入下拉菜單中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) % option value=%=cid%%=stitle%/option % LOOP % 下拉菜單名為 Cate，值為新聞?lì)悇e編號(hào)，顯示的內(nèi)容是新聞?lì)悇e名稱(chēng)。 的運(yùn)行界面如圖710 所示。39。39。 錄入新聞?lì)悇e和新聞內(nèi)容后， 的界面如圖 57 所示。對(duì)于需要登陸才能察看的網(wǎng)頁(yè)可以在網(wǎng)頁(yè)的最前端加上如下代碼： !include file=”” 這樣為登陸的用戶(hù)將看到如下界面： 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 20 設(shè)計(jì)管理界面 管理界面的功能是對(duì)新聞?lì)悇e和新聞提供管理界面，只有有權(quán)限的用戶(hù)才能進(jìn)入管理界面。 登錄程序設(shè)計(jì) 在對(duì)系統(tǒng)進(jìn)行管理之前，需要通過(guò)系統(tǒng)的身份認(rèn)證。使用 DO WHIIlE 循環(huán)語(yǔ)句依次處理每個(gè)新聞?lì)悇e，讀取此類(lèi)別中的所有新聞信息到記錄集 rs 中，并在表格中顯示新聞標(biāo)題。?flag= + CStr(cid) + 39。_self39。設(shè)置返回頂部鏈接，跳轉(zhuǎn)到書(shū)簽 top p align=righta href=top返回頂部 /a 39。20%39。 border=0/td End If 39。 ALT=39。3 天內(nèi)新聞標(biāo)記 new 圖片 If datediff(d, rs(Posttime), ndate+time()) = 0 Then img SRC=39。 + rs(Title) + 39。 href=39。return newwin()。50%39。只顯示 10 條新聞 If t 11 Then Dim ndate ndate = DateAdd(d,3,date()) 39。 ORDER BY Posttime DESC sql, conn, 1, 1 DO WHILE Not 39。按提交時(shí)間的降序顯示新聞標(biāo)題 sql = SELECT * FROM News WHERE CateId= amp。100%39。顯示新聞?lì)悇e標(biāo)題 stitle + ==/td/tr 39。cidamp。 cellspacing=1 cellpadding=2tr 39。生成表格 table width=39。依次顯示每個(gè)新聞?lì)悇e中最新的 10 條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。新聞管理 /font/a /div table align=center width=100% cellspacing=0 cellpadding=0 border=0 tr td width=* valign=TOP % 39。font color=red新聞查詢(xún) /font/a | a href=font color=red style=39。%=stitle%/font/a | % Loop % a href=39。TEXTDECORATION: none。顯示所有新聞?lì)悇e鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類(lèi)別顯示該類(lèi)別的新聞 ===== 39。當(dāng)然，如果新聞的內(nèi)容經(jīng)常更新，則可以將 3 天改為 1 天。TEXTDECORATION: none39。在 FrontPage中選擇“插入” /“書(shū)簽”菜單項(xiàng)，可以在指定位置插入書(shū)簽。%=stitle%/font/a | % Loop % 如果網(wǎng)頁(yè)中顯示的內(nèi)容較多 ，通常需要通過(guò)定義書(shū)簽的方法使用戶(hù)快速到達(dá)指定的位置。TEXTDECORATION: none。顯示所有新聞?lì)悇e鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類(lèi)別顯示該類(lèi)別的新聞 ===== 39。這樣，用戶(hù)就可以通過(guò)單擊鏈接?xùn)|華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 17 直達(dá)新聞?lì)悇e了。例如，類(lèi)別編號(hào)為 1 的新聞 類(lèi)別的書(shū)簽名稱(chēng)為 al。如果新聞?lì)悇e較多，則網(wǎng)頁(yè)會(huì)被拉長(zhǎng)，給用戶(hù)閱讀帶來(lái)不便。 圖 56 的界面 下面介紹 的主要代碼。 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 2 UserName varchar(50) 用戶(hù)名 3 UserPwd varcahr(50) 密碼 4 Ename varchar(50) 用戶(hù)姓名 5 Email varchar(50) 電子郵箱 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 16 五：系統(tǒng)主界面與登錄程序設(shè)計(jì) 此部分由吳春清設(shè)計(jì)與實(shí)現(xiàn) 設(shè)計(jì)主界面 本主界面為 ，它的功能是顯示新聞 類(lèi)別和每個(gè)類(lèi)別中的 10 條新聞，并提供進(jìn)入管理界面 ()的鏈接。 4．．用戶(hù)信息表 Users 用戶(hù)信息表 Users 用來(lái)保存用戶(hù)的基本信息，結(jié)構(gòu)如表 8． 4 所示。 datetime 數(shù)據(jù)類(lèi)型用于存儲(chǔ)從 1753 年 1 月 1 日到 9999 年 12月 31 日的日期和時(shí)間數(shù)據(jù)，精確到 3． 33ms； smalldatetime 數(shù)據(jù)類(lèi)型用于存儲(chǔ)從 1900 年 1 月 1 日到 2079 年 6 月 6 日的日期和時(shí)間數(shù)據(jù)，精確到分鐘。 3．網(wǎng)友評(píng)論信息表 Discuss 網(wǎng)友評(píng)論信息表 Discuss 用來(lái)保存網(wǎng)友對(duì)新聞的評(píng)論信息，結(jié)構(gòu)如表 3 所示。如果需要存儲(chǔ)的數(shù)據(jù)很大，則可以使用 text 數(shù)據(jù)類(lèi)型，例如表 News 中的 Content 字符，因?yàn)樾侣剝?nèi)容的數(shù)據(jù)量通常會(huì)超過(guò) 8000 個(gè)字符。 表 2 表 News 的結(jié)構(gòu) 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 編號(hào) 字段名稱(chēng) 數(shù)據(jù)結(jié)構(gòu) 說(shuō)明 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 沒(méi)有； 1 有 ) 8 Readcount int 閱讀次數(shù) 在 SQL Server 2020 中，可以使用 char、 varchar 和 text 等 3 種數(shù)據(jù)類(lèi)型存儲(chǔ)非 Unicode 字符數(shù)據(jù)。在系統(tǒng)中， CateId 字段對(duì)于用戶(hù)來(lái)說(shuō)是透明的，用戶(hù)感覺(jué)不到它的存在，也無(wú)法對(duì)其進(jìn)行修改 。有的程序設(shè)計(jì)人員習(xí)慣于直接使用名稱(chēng)字段作為標(biāo)識(shí)列，例如表 Category 中的 CateName字段。所謂標(biāo)識(shí)列，就是可以惟一標(biāo)識(shí)一行記錄的列，在表中不會(huì)存在兩條標(biāo)識(shí)列相同的記錄。 1．新聞?lì)悇e表 Category 新聞?lì)悇e表 Category 用來(lái)保存新聞?lì)悇e數(shù)據(jù)，結(jié)構(gòu)如表 1 所示。 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 本系統(tǒng)定義的數(shù)據(jù)庫(kù) 中包含以下 4 個(gè)表：新聞?lì)悇e表： Category、新聞基本信息表： News、網(wǎng)友評(píng)論信息表： Discuss 和用戶(hù)信息表： users。 OPTION selected value=宋體 宋體 /OPTION OPTION value=楷體 _GB2312楷體 /OPTION OPTION value=新宋體 新宋體 /OPTION OPTION value=黑體 黑體 /OPTION 東華理工大學(xué) 總體設(shè)計(jì) OPTION value=隸書(shū) 隸書(shū) /OPTION OPTION value=Andale MonoAndale Mono/OPTION OPTION value=ArialArial/OPTION OPTION value=Arial BlackArial Black/OPTION OPTION value=Book AntiquaBook Antiqua/OPTION OPTION value=Century GothicCentury Gothic/OPTION OPTION value=Comic Sans MSComic Sans MS/OPTION OPTION value=Courier NewCourier New/OPTION OPTION value=GeiaGeia/OPTION OPTION value=ImpactImpact/OPTION OPTION value=TahomaTahoma/OPTION OPTION v