【正文】 ag和sql_where變量設置SQL語句，讀取新聞數(shù)據(jù) If iflag = Then If sql_where = Then sql = SELECT * FROM News ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE amp?！啊薄?，即只能管理自己創(chuàng)建的新聞。如果當前用戶是Admin，則sql_where=“”，即顯示所有新聞；否則設置查詢條件為“Poster=“”amp。從程序中可以看到，各項管理功能對應的頁面如下：(1)；(2)類別管理Cate—；(3)；(4)。 End If%Session(”UserName”)中保存著當前登錄用戶的用戶名。 Session(UserName) amp。如果不是系統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設置WHERE子句的條件 sql_where = Poster=39。39。nbsp。nbsp。nbsp。39。nbsp。nbsp。顯示管理鏈接的代碼如下：% 39。如果flag=0，則顯示全部新聞，否則顯示指定類別的新聞。color:black39。font style=39。顯示新聞類別鏈接，注意根據(jù)類別編號設置參數(shù)flag DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) %| a href=39。參數(shù)flag表示指定的新聞類別 iflag = (flag) 39。顯示新聞類別的代碼如下：% Dim rs,rsCate Set rs = () set rsCate = () 39。(1)包含文件 ，這樣在打開網(wǎng)頁時，程序會自動連接到數(shù)據(jù)庫，并進行身份驗證。錄入新聞類別和新聞內(nèi)容后。第二節(jié) 登錄程序設計在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身份認證。使用DO WHIIlE循環(huán)語句依次處理每個新聞類別，讀取此類別中的所有新聞信息到記錄集rs中，并在表格中顯示新聞標題。?flag= + CStr(cid) + 39。_self39。 39。amp。amp。設置返回頂部鏈接，跳轉(zhuǎn)到書簽top p align=righta href=top返回頂部/aamp。20%39。 border=0/td End If 39。 ALT=39。3天內(nèi)新聞標記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。按提交時間的降序顯示新聞標題 sql = SELECT * FROM News WHERE CateId= amp。100%39。==/td/tr 39。顯示新聞類別標題 stitle + amp。nbsp。nbsp。cidamp。 cellspacing=1 cellpadding=2tr 39。生成表格 table width=39。依次顯示每個新聞類別中最新的10條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。新聞管理/font/a /divtable align=center width=100% cellspacing=0 cellpadding=0 border=0tr td width=* valign=TOP% 39。a href=font color=red style=39。font color=red新聞查詢/font/a |amp。%=stitle%/font/a | % Loop%a href=39。TEXTDECORATION: none。顯示所有新聞類別鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。=====顯示所有新聞類別供點擊，點擊不同類別顯示該類別的新聞===== 39。當然，如果新聞的內(nèi)容經(jīng)常更新，則可以將3天改為1天。TEXTDECORATION: none39。在FrontPage中選擇“插入”/“書簽”菜單項，可以在指定位置插入書簽。%=stitle%/font/a | % Loop% 如果網(wǎng)頁中顯示的內(nèi)容較多，通常需要通過定義書簽的方法使用戶快速到達指定的位置。TEXTDECORATION: none。顯示所有新聞類別鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。=====顯示所有新聞類別供點擊，點擊不同類別顯示該類別的新聞===== 39。這樣，用戶就可以通過單擊鏈接直達新聞類別了。例如，類別編號為1的新聞類別的書簽名稱為al。如果新聞類別較多，則網(wǎng)頁會被拉長，給用戶閱讀帶來不便。圖56 。第五章 系統(tǒng)主界面與登錄程序設計第一節(jié) 設計主界面，它的功能是顯示新聞類別和每個類別中的10條新聞，并提供進入管理界面()的鏈接。++39。+c+39。如果沒有選擇字符，則在輸入新聞內(nèi)容的文本域中直接加入字體標識，用戶可以在font和／font之問添加相應的文字，代碼如下：=39。/font39。39。font[space]face=39。This表示字體下拉菜單，this．selectedlndex表示當前選擇的菜單項目索引，[].value則表示選擇下拉菜單的值，程序?qū)⑵浔４孀兞緾中。 OPTION selected value=宋體宋體/OPTIONOPTION value=楷體_GB2312楷體/OPTIONOPTION value=新宋體新宋體/OPTIONOPTION value=黑體黑體/OPTIONOPTION value=隸書隸書/OPTIONOPTION value=Andale MonoAndale Mono/OPTIONOPTION value=ArialArial/OPTIONOPTION value=Arial BlackArial Black/OPTIONOPTION value=Book AntiquaBook Antiqua/OPTIONOPTION value=Century GothicCentury Gothic/OPTIONOPTION value=Comic Sans MSComic Sans MS/OPTIONOPTION value=Courier NewCourier New/OPTIONOPTION value=GeorgiaGeorgia/OPTIONOPTION value=ImpactImpact/OPTIONOPTION value=TahomaTahoma/OPTIONOPTION value=Times New RomanTimes New Roman/OPTIONOPTION value=Trebuchet MSTrebuchet MS/OPTIONOPTION value=Script MT BoldScript MT Bold/OPTIONOPTION value=StencilStencil/OPTIONOPTION value=VerdanaVerdana/OPTIONOPTION value=Lucida ConsoleLucida Console/OPTION/SELECT在下拉菜單中，定義了系統(tǒng)支持的字體名稱，下拉菜單的值與字體名稱相同。} name=font style=39。++39。+c+39。}else { = 39。+().text+39。+c+39。) {().text=39。 if(().text!=39。nbsp。，這里僅以字體控制的代碼為例說明。nbsp；”，所以這里使用[space]表示空格。圖5 ，設置指定的選項，將會在新聞內(nèi)容中生成相應的HTML代碼。在文件中引用此文件作為頭文件，代碼如下：!include File= 4．在添加和修改新聞內(nèi)容時，需要對字體、字號、顏色和排列位置等屬性進行設置。在兩種情況下，：(1)指定新聞不存在；(2)當前用戶不是指定新聞的作者。 Trim(NewsId) set rsNews=(sql) Set Rs=(sql) If Then 指定新聞不存在 Else 39。，代碼如下：% If Session(UserName) Admin Then NewsId = Request(Id) 39。：% If Session(UserName) Admin Then (不是Admin用戶，沒有此權限) End If%在文件中引用此文件作為頭文件，代碼如下:!include File=3．在修改和刪除新聞時，除了Admin用戶擁有所有權限外，其他用戶只能修改自己創(chuàng)建的新聞。Database=news ConnStr%在文件中引用此文件作為頭文件就可以訪問數(shù)據(jù)庫，代碼如下：!include File=2．因為本實例中有些功能只有Admin用戶才有權限使用，所以在進入這些網(wǎng)頁之前，需要判斷用戶是否是Admin。UID=sa。：%dim Conndim ConnStrset Conn=()ConnStr=driver={SQL Server}。第二節(jié) 通用模塊本實例中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件中使用include語句包含這些模塊，使用其中定義的功能。如果要創(chuàng)建的表已經(jīng)存在，則需要先將表刪除。)GO在創(chuàng)建表users的同時，將默認的用戶Admin插入到表中，默認的密碼為“l(fā)lllll”。, 39。, 39。, 39。4．創(chuàng)建表Users，它的代碼如下：USE newsGOCREATE TABLE Users( UserId Int Primary Key IDENTITY, UserName Varchar(50) NOT NULL, UserPwd Varchar(50) NOT NULL, Ename Varchar(50), Email Varchar(50))GOINSERT INTO Users (UserName, UserPwd, Ename, Email) VALUES(39。每次增加新記錄時，標識字段自動遞增。在使用CREATE TABLE指令創(chuàng)建表時，使用DEFAULT關鍵字可以字義字段的默認值，例如表News中，Attpic和ReadCount字段的默認值為0。使用NOT NULL定義的字段將不允許為空，這樣就可以避免表中出現(xiàn)無效的數(shù)據(jù)，影響系統(tǒng)運行。表中每一行的主鍵都有惟一值，可以使用主鍵惟一地標識一行數(shù)據(jù)。varchar(50)電子郵箱第三節(jié) 創(chuàng)建表的腳本文件本節(jié)將介紹創(chuàng)建表的腳本文件，可以在“查詢分析器”中執(zhí)行這些腳本，在數(shù)據(jù)庫news中創(chuàng)建表。varchar(50)用戶姓名5varcahr(50)密碼4varchar(50)用戶名32int用戶ID號說明1數(shù)據(jù)結構編號字段名稱有些程序員習慣于使用datetime數(shù)據(jù)類型存儲日期時間數(shù)據(jù)，其實在精確度要求不高的情況下，使用smalldatetime數(shù)據(jù)類型是足夠了。2000中，可以使用datetime和smalldatetime兩種數(shù)據(jù)類型存儲日期時間數(shù)據(jù)。在SQLint新聞編號Contentvarchar(4000)評論內(nèi)容5int評論編號2UserId說明1數(shù)據(jù)結構表Discuss的結構編號字段名稱表3text數(shù)據(jù)類型也是可變長度的，最多可為2147483647個字符。char和varchar只能存儲最多8000個字符，