【正文】 LECT * FROM News WHERE CateId= amp。讀取參數(shù)page，表示當前的頁碼，使用CLng將其轉(zhuǎn)換為長整型 Page = CLng(Request(Page)) 39。?flag= amp。 /b]/a/td Next /tr/table End If End If%這部分代碼的關(guān)鍵部分是根據(jù)新聞類別和用戶類型生成sELECT語句，查詢指定的新聞記錄。font style=FONTSIZE: 12ptb新 聞 類 別 管 理/b/font/pcentertable border=0 cellspacing=0 width=90% tr td align=right a href=font color=red新聞管理/font/a a href=font color=red用戶管理/font/a/td /tr /tabletable border=1 cellspacing=0 width=90% bgcolor=F0F8FF bordercolorlight=4DA6FF bordercolordark=ECF5FF tr td width=60% align=center bgcolor=FEEC85strong類 別/strong/td td width=20% align=center bgcolor=FEEC85strong修 改/strong/td td width=20% align=center bgcolor=FEEC85strong選 擇/strong/td /tr% Set rs = () 39。name=%=rs(CateName)%修 改/a/td td align=centerinput type=checkbox name=Cate id=%=rs(CateId)%/td /tr% () LOOP%/table可以看到，修改新聞類別的頁面也是Cate_Admin．a(chǎn)sp。nbsp。3．顯示添加或修改新聞類別的表單在功能按鈕的下面，將顯示添加或修改新聞類別的表單。，可以在url中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù)Oper的值決定進行的操作，與添加數(shù)據(jù)相關(guān)的代碼如下：% 39。判斷是否已經(jīng)存在此類別名稱 sql = SELECT * FROM Category WHERE CateName=39。 39。如果原類別編號和新類別名稱不存在，則表示類別名稱發(fā)生變化 Set rs = Nothing 39。 CateName amp。下面將介紹相關(guān)的代碼。j。 }}3．生成并提交刪除編號列表，定義“刪除”按鈕的代碼如下：input type=submit value=刪 除 name=tijiao onclick=SelectChk()當單擊“刪除”按鈕時，將執(zhí)行SelectChk()函數(shù)，代碼如下：function SelectChk(){ var s = false。 Cateid = (Cate,j).id+。 ()。) name=add當單擊“添加新聞”按鈕時，將觸發(fā)onclick事件，并調(diào)newwin(39。變量ValidationPassed的值將在對數(shù)據(jù)有效性進行驗證時被賦值。 ValidationPassed = false。被替換的功能字符串包括以下內(nèi)容： [upload] 上傳新聞 圖片標記， 需要將其替換為 “div[space]align=centerimg[space]src=images/”，其中[space]是空格標記，需要在顯示新聞正文時轉(zhuǎn)換： [/upload] 與[upload]匹配使用，標記上傳新聞圖片的結(jié)束。新聞標題Dim content 39。)是特殊字符，所以需要將新聞標題和正文中的單引號替換為全角單引號(‘)，并使用ChangeChr()函數(shù)對新聞正文進行轉(zhuǎn)換。參數(shù)id表示新聞編號。nbsp。 ，定義了一個隱藏域，代碼如下：input type=hidden name=id value=%=rsNews(id)%它的作。 (id))因為新聞正文數(shù)據(jù)在存儲前進行過替換處理，所以這里需要將數(shù)據(jù)還原，代碼如下：If Not Then 39。第二節(jié) 修改新聞 ，每條新聞記錄的后面都有一個修改超級鏈接。替換函數(shù)rqtContent = Replace(rqtContent,39。為了避免這種情況發(fā)生，這里將空格表示為[space]，并存入數(shù)據(jù)庫，在讀取數(shù)據(jù)時再將其轉(zhuǎn)換為空格。 return ValidationPassed。編輯新聞內(nèi)容表單的定義代碼如下：form action= method=POST name=myform align=center onsubmit=return ValidationPassed可以看到，表單名為myfom，表單提交后。第一節(jié) 添加新聞，“添加新聞”按鈕的定義代碼如下：input type=button value=添加新聞 onclick=newwin(39。 return false。 j++) { if ((Cate,j).checked) { n = n + 1。j。 1．選擇全部復選框 ，定義“全選”按鈕的代碼如下：input type=button value=全 選 onclick=sltAll()當單擊“全選”按鈕時，將執(zhí)行sltAll()函數(shù)，代碼如下：function sltAll(){ var nn = (Cate)。此時，頁面的下方將顯示修改數(shù)據(jù)的表單Uform。新類別不存在 (UPDATE Category SET CateName=39。 And CateId= amp。 amp。 ) (sqldelt) 新聞類別已經(jīng)成功刪除！ Else 新聞類別中包含新聞，不能刪除 End If 39。在文本域txttitle中輸入新聞類別的名稱，然后單擊“添加’，按鈕，參數(shù)Oper等于add，表示插入新記錄。nbsp。2．顯示功能按鈕如果存在新聞類別記錄，則在表格下面顯示“全選”、“清空”和“刪除”按鈕，這些按鈕是為刪除新聞類別記錄服務的，代碼如下：39。在表格中顯示新聞類別名稱 DO WHILE Not % tr td%=rs(CateName)%/td td align=centera href=?Oper=updateamp。1．顯示新聞類別信息為了便于用戶管理新聞類別，并在后面顯示修改鏈接和刪除復選框，代碼如下：p align=39。 [b amp。039。/td/tr/table Else 39。 ORDER BY Posttime DESC End If Else If sql_where = then sql = SELECT * FROM News WHERE CateId= amp。從程序中可以看到，各項管理功能對應的頁面如下：(1)；(2)類別管理Cate—；(3)；(4)。39。39。如果flag=0，則顯示全部新聞，否則顯示指定類別的新聞。參數(shù)flag表示指定的新聞類別 iflag = (flag) 39。第二節(jié) 登錄程序設計在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身份認證。 39。20%39。 + rs(Title) + 39。只顯示10條新聞 If t 11 Then Dim ndate ndate = DateAdd(d,3,date()) 39。==/td/tr 39。cidamp。新聞管理/font/a /divtable align=center width=100% cellspacing=0 cellpadding=0 border=0tr td width=* valign=TOP% 39。TEXTDECORATION: none。TEXTDECORATION: none39。顯示所有新聞類別鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。如果新聞類別較多，則網(wǎng)頁會被拉長，給用戶閱讀帶來不便。+c+39。font[space]face=39。++39。+c+39。，這里僅以字體控制的代碼為例說明。在兩種情況下，：(1)指定新聞不存在；(2)當前用戶不是指定新聞的作者。Database=news ConnStr%在文件中引用此文件作為頭文件就可以訪問數(shù)據(jù)庫，代碼如下：!include File=2．因為本實例中有些功能只有Admin用戶才有權(quán)限使用，所以在進入這些網(wǎng)頁之前，需要判斷用戶是否是Admin。如果要創(chuàng)建的表已經(jīng)存在，則需要先將表刪除。, 39。使用NOT NULL定義的字段將不允許為空，這樣就可以避免表中出現(xiàn)無效的數(shù)據(jù)，影響系統(tǒng)運行。varcahr(50)密碼4int用戶ID號編號字段名稱int新聞編號text數(shù)據(jù)類型也是可變長度的，最多可為2147483647個字符。PostTimedatetime這樣，如果修改CateName字段的值，就需要同時修改其他所有表的相應字段的值，從而造成不必要的麻煩。第二節(jié) 數(shù)據(jù)庫邏輯結(jié)構(gòu)設計本系統(tǒng)定義的數(shù)據(jù)庫中包含以下4個表：新聞類別表：Category、新聞基本信息表：News、網(wǎng)友評論信息表：Discuss和用戶信息表：users。第2個過程根據(jù)用戶的類型決定用戶的操作權(quán)限，從而決定用戶的工作界面。在系統(tǒng)初始化時，有一個默認的“系統(tǒng)管理員”用戶Admin，由程序設計人員手動地添加到數(shù)據(jù)庫中。2．新聞發(fā)布管理：(1)基本新聞信息的錄入，包括新聞標題、新聞內(nèi)容和所屬類別等；(2)基本新聞信息的修改；(3)基本新聞信息的刪除；3．圖片處理模塊：(1)選擇圖片文件；(2)上傳圖片文件；(3)存儲圖片新聞；(4)修改新聞圖片；(5)刪除新聞圖片；(6)在網(wǎng)頁中瀏覽新聞圖片。(7) Error對象和Errors集合：提供訪問數(shù)據(jù)庫時的錯誤信息?！　?. Database Access組件ADO　　WWW上很重要的應用是訪問WEB數(shù)據(jù)庫，用ASP訪問WEB數(shù)據(jù)庫時，必須使用ADO組件，ADO是ASP內(nèi)置的ActiveX服務器組件(ActiveX Server Component)，通過在WEB服務器上設置ODBC和OLEDB可連接多種數(shù)據(jù)庫：如SYBASE、ORACLE、INFORMIX、SQL SERVER、ACCESS、VFP等，是對目前微軟所支持的數(shù)據(jù)庫進行操作的最有效和最簡單直接的方法?！　?6) Object Context對象：IIS ，用來進行事務處理?！　?3) WINDOWS 95/98運行PWS(Personal Web Server)。此外，ASP是面向?qū)ο蟮哪_本環(huán)境，用戶可自行增加ActiveX組件來擴充其功能，拓展應用范圍。IDC集成在ISAPI(Internet Server API)中，充分利用了DLL技術(shù)，易擴充，但編程較CGI更為復雜，只適用于小型數(shù)據(jù)庫系統(tǒng)。 ：ASP可以輕易地通過ODBC(Open Database Connectivity)驅(qū)動程序連接各種不同的數(shù)據(jù)庫，例如：Acess、Foxpro、dBase、Oracle等等，另外，ASP亦可將“文本文件”或是”Excel” 文件當成數(shù)據(jù)庫用。ASP+SQL基于WEB的新聞發(fā)布系統(tǒng)畢業(yè)設計論文第一章 諸論第一節(jié) 開發(fā)工具的選用及介紹1. ASP的優(yōu)勢：Active Server Pages：“動態(tài)服務器網(wǎng)頁”，一般簡稱為“ASP”，ASP之所以能受到大家的重視與使用的原因，主要在于所產(chǎn)生的執(zhí)行結(jié)果都是標準的HTML格式，而且這些程序是在網(wǎng)絡服務端中執(zhí)行，使用一般的瀏覽器（如IE 或Netscape）都可以正確地獲得ASP的“執(zhí)行”結(jié)果，并且將這ASP執(zhí)行的結(jié)果直接在瀏覽器中“瀏覽”，不像VBScript或 JavaScript是在客戶端（Client）的瀏覽器上執(zhí)行，若使用VBScript來設計程序，客戶端（Client）在IE瀏覽器中可以顯示程序執(zhí)行的結(jié)果，可是，客戶端（Client）若使用Netscape瀏覽器就無法顯示VBScript的執(zhí)行結(jié)果。如果我們在瀏覽器中直接查看網(wǎng)頁的原始代碼，就只能看到ＨＴＭＬ文件，原始的ASP程序代碼是看不到的！這是因杰ASP程序先于網(wǎng)站服務（Ｗeb Server）端執(zhí)行后，將結(jié)果轉(zhuǎn)換成標準ＨＴＭＬ文件，再傳送到客戶端（Client）的瀏覽器上，因此，我們所辛苦撰寫的ASP程序并不會輕易地被看見進而被盜用。(2). INTERNET數(shù)據(jù)庫連接器IDC(Internet Databa