【正文】 論壇管理 —— 管理員登錄頁面 論壇管理 —— 管理功能頁面 版面管理 — 斑竹登錄頁面 版面管理 —— 管理功能頁面 貼子主題瀏覽頁面 發(fā)表回復(fù)頁面 發(fā)表新話題頁面 貼子查詢頁面 論壇用戶個(gè)人資料（包括密碼、信息）修改頁面 常用數(shù)據(jù)庫(kù)語句 語句：命令數(shù)據(jù)庫(kù)引擎從數(shù)據(jù)庫(kù)里返回信息，作為一組記錄。 INTO 語句：添加一個(gè)或多個(gè)記錄至一個(gè)表。 語句：創(chuàng)建更新查詢來改變基于特定準(zhǔn)則的指定表中的字段值。 語句：創(chuàng)建一個(gè)刪除查詢把記錄從 FROM 子句列出并符合 WHERE 子句的一個(gè)或更多的表中清除。 語句：用于激活 PROCEDURE（過程） （一） 連接數(shù)據(jù)庫(kù) 方法 1： Set conn = () driver={Microsoft Access Driver (*.mdb)}。dbq=amp。() 方法 2： Set conn = () Provider=。Data Source=amp。() 注意：一個(gè)頁面中，只要連接一次就可以了，數(shù)據(jù)庫(kù)使用完后要及時(shí)關(guān)閉連接。 Set conn = Nothing （二）、 添加新記錄到數(shù)據(jù)庫(kù) Set conn = () driver={Microsoft Access Driver (*.mdb)}。dbq=amp。() username = 風(fēng)云突變 usermail = indate = Now() sql = insert into data (username,usermail,indata) values(39。amp。usernameamp。39。,39。amp。usermailamp。39。,39。amp。indateamp。39。) (sql) Set conn = Nothing 說明：建立數(shù)據(jù)庫(kù)連接；通過表單獲取姓名、 Email 字符串，Now()獲取當(dāng)前時(shí)間日期；使用 insert into 語句添加新記錄； 來執(zhí)行；最后關(guān)閉。 （三）、 選擇數(shù)據(jù)庫(kù)里的記錄 （按記錄倒序排序）： sql = select * from data order by ID desc Email 字段（不排序）： sql = select username,usermail from data “風(fēng)云突變 ”的所有記錄： sql = select * from data where username=39。風(fēng)云突變 39。 163 信箱的所有記錄（按查看次數(shù)排序）： sql = select * from data where usermail like 39。%@%39。 order by view desc 10 個(gè)記錄： sql = select top 10 * from data order by ID desc SQL 語句已經(jīng)知道了，不過在 Web 應(yīng)用時(shí)，還得創(chuàng)建一個(gè) RecordSet 對(duì)象得到記錄集，才能把從數(shù)據(jù)庫(kù)里取出的值應(yīng)用在網(wǎng)頁上，如果現(xiàn)在將所有的記錄顯示在網(wǎng)頁上 就這樣： Set conn = () driver={Microsoft Access Driver (*.mdb)}。dbq=amp。() sql = select * from data Set rs = () sql,conn,1,1 Do While Not p姓名： amp。 rs(username) amp。 Email： amp。 rs(usermail) amp。 查看： amp。 rs(view) amp。次 amp。 rs(indate) amp。加入/p Loop Set rs = Nothing Set conn = Nothing 說明：建立數(shù)據(jù)庫(kù)連接；創(chuàng)建 rs 得到記錄集；循環(huán)顯示記錄， 表示記錄末， 表示移到下一個(gè)記錄；最后關(guān)閉。 （ 四 ） 、 修改（更新）數(shù)據(jù)庫(kù)記錄 修改記錄的 Email： Set conn = () driver={Microsoft Access Driver (*.mdb)}。dbq=amp。() ID = 1 usermail = sql = update data set usermail=39。amp。usermailamp。39。 where ID=amp。CInt(ID) (sql) Set conn = Nothing 說明：建立數(shù)據(jù)庫(kù)連接；獲取記錄 ID、新 Email 字符串；使用 update 語句修改記錄； 來執(zhí)行；最后關(guān)閉。 如果使記錄的查看值加 1，則： sql = update data set view=view+1 where ID=amp。CInt(ID) （五）、 刪除數(shù)據(jù)庫(kù)記錄 刪除某一條記錄： Set conn = () driver={Microsoft Access Driver (*.mdb)}。dbq=amp。() ID = 1 sql = delete from data where ID=amp。CInt(ID) (sql) Set conn = Nothing 說明：建立數(shù)據(jù)庫(kù)連接；獲取記錄 ID；使用 delete 語句刪除記錄； 來執(zhí)行；最后關(guān)閉。 刪 除多 條記 錄為 ： sql = delete from data where ID in (ID1,ID2,ID3) 刪除所有記錄為： sql = delete from data 結(jié) 論 通過這個(gè)認(rèn)壇的制作，我深化了對(duì) ASP 技術(shù)的了解，也深刻體會(huì)到了 ASP 技術(shù)的優(yōu)越 性，堅(jiān)定了我進(jìn)一步學(xué)習(xí) ASP 的信心。 致 謝 在此論文的完成過程中，有眾多老師的費(fèi)心指導(dǎo)和一些同學(xué)的熱情幫助，在此表示萬分的謝意。 參考文獻(xiàn) 百當(dāng)軟件園網(wǎng)絡(luò)學(xué)院 第六章 詳細(xì)設(shè)計(jì)與實(shí)現(xiàn) 各頁面代碼如下： 主頁面 %@ LANGUAGE=VBSCRIPT % html head title歡迎光臨青年論壇 /title meta name=GENERATOR content=Microsoft FrontPage /head frameset frameborder=1 framespacing=1 border=1 cols=*,86% frame src= scrolling=no frameset rows=60%,40% frame name=BoardList src= scrolling=auto target=main frame name=BoardAnnounce target=main src= scrolling=auto /frameset noframes body pThis page uses frames, but your browser doesn39。t support them./p /body /noframes /frameset /html html/html html/html 鏈接頁面 % @language=vbscript % html head meta equiv=ContentType content=text/html。 charset=gb2312 titleLeft/title link rel=stylesheet type=text/css href= style type=text/css ! body { backgroundcolor: 00CCFF。 } /style/head body p align=center a href= target=_top論壇首頁 br a href= target=BoardAnnounce title=增加、修改、刪除版面 ！ 論壇管理 /abr a href= target=BoardAnnounce title=斑竹帖子管理 版面管理 /abr a href= target=BoardList關(guān)于論壇 /abr 論壇版面 /p p align=center a href=?boardID=1 target=BoardList團(tuán)委公告 /abr a href=?boardID=2 target=BoardList時(shí)事新聞 /abr a href=?boardID=4 target=BoardList軍事天地 /a/p p align=center a href= target=BoardAnnounce論壇帖子查詢 /abr a href=?page=1 target=BoardAnnounce更改個(gè)人密碼 /abr a href=?page=2 target=BoardAnnounce修改個(gè)人信息 /abr a href=?page=3 target=BoardAnnounce查詢個(gè)人信息 /abr a href= target=BoardAnnounce查看積分排行 /abr p align=centerbr 在線 %=Application(online)%人 p align=centerscript src= /center /body /html 論壇積分排行榜 %@ LANGUAGE=VBSCRIPT % % option explicit% !include file= ! include file=inc/ ! include file=inc/ html head meta equiv=ContentType content=text/html。 charset=gb2312 title積分 /title meta name=GENERATOR content=Microsoft FrontPage link rel=stylesheet type=text/css href= style type=text/css ! body { backgroundcolor: 00CCFF。 } /style/head body % dim rs dim sql dim Article dim username set rs=() sql=select * from user where username ORDER BY Article desc sql,conn,1,1 if then not point else % div align=39。center39。centertable border=39。139。 width=39。50%39。 cellspacing=39。039。 bordercolorlight=39。00000039。 bordercolordark=39。FFFFFF39。 cellpadding=39。039。 tr td width=100% colspan=4 bgcolor=39。FEEC8539。table border=0 width=100% cellspacing=0 cellpadding=0 tr td width=100% align=centerb論壇積分排行榜 /b/td /tr /table /td /tr tr td align=39。center39。 width=39。25%39。b姓名 /b/tdtd align=39。center39。 width=39。25%39。b積分 /b/td td align=39。center39。 width=39。25%39。b姓名 /b/tdtd align=39。center39