前言：現在網上的論壇到處都有，但不知您是否碰到過這樣的情況：在雜亂無章的討論信息中來尋找自己想要的內容，是一件很費費時費力的事情，到后來，您就都不想去看什么論壇了。那么我們能不能對自己網站論壇的內容增加審核功能呢？即任何網友發到論壇的文章

　　前言：現在網上的論壇到處都有，但不知您是否碰到過這樣的情況：在雜亂無章的討論信息中來尋找自己想要的內容，是一件很費費時費力的事情，到后來，您就都不想去看什么論壇了。那么我們能不能對自己網站論壇的內容增加審核功能呢？即任何網友發到論壇的文章，并不立即被顯示出來，必須經過站長或版主審閱之后，認為有價值，有必要推薦給其他網友的，就發表出來。否則就刪掉了，免得浪費空間，搞得有點像精華區的意味，這樣您的論壇比起一般的論壇來，能夠提供給為明確有益的內容。放到您的網站上，應該能夠吸引更多的網友來訪問。這個設想當然能夠實現，下面我就簡單介紹如何制作。

　　注：由于本文適用于對ACCESS數據庫、HTML、ASP有一定了解的讀者。

　　一、論壇結構分析

　　通過上面的功能需求分析，我們能夠將論壇的制作分為四大部分：

　　（1） 網友注冊和管理模塊：因為引入了站長或版主，在論壇中就必須能夠對其進行身份驗證。這個模塊的功能，就是管理注冊的網友，并能夠提供相關的查詢。比如，查詢指定作者的任何發表的文章，查詢當前發表文章最多的十個網友，等等。假如您的論壇不是很大，這個模塊能夠省略為只帶有版主身份驗證的功能，而去掉那些關于注冊，查詢的部分。

　?。?） 文章顯示模塊：顯示任何版主審核過的，覺得值得推薦的文章。

　　（3） 發表文章模塊：為注冊網友提供發表見地的地方，發表后等待版主審閱。

　?。?） 文章審閱模塊：版主對任何網又發表但未經審閱的文章進行處理，已決定是發表還是刪除。

　　了解了具體的功能需求后，就能夠按模塊的開始論壇的設計了。當然，這些模塊的只是在功能上對論壇結構的劃分，實際上并不能夠完全的把他們單獨出來進行設計。對于這種較小的應用，也沒有必要進行完全的模塊化設計，在良好的規劃下直接寫程式代碼或許來的更為簡單一些。

　　對于論壇實現起來有一般兩種方法：用文檔或數據庫。相對而言，用數據庫要簡單高效一些，能夠對論壇進行更好的控制，也能夠對資料提供一些驗證和保護。這兒我使用的是ACCESS數據庫，對于一般的中小型的應用，ACCESS應該是能夠勝任的。

　　從上面的分析能夠知道應該有四個表，下面我給出每個表的結構。

　?。?）作者表（用來存放作者訊息）：

　　ID：

　　文本類型，必填。是網友代號。

　　密碼：

　　文本類型，必填。

　　昵稱：

　　文本類型，必填。

　　EMAIL： 文本類型，必填。

　　職務：

　　數字類型，必填。-1代表普通網友，0代表站長。大于0的數字代表版主。

　　文章數：數字類型，必填。網友發表的文章總數。

　　姓名：

　　文本類型，可選。

　　性別：

　　文本類型，可選。

　　電話：

　　文本類型，可選。

　　（2）內容表（用來存放具體文章內容和相關訊息）：

　　ID：自動編號，并為其配置索引，以加快搜尋的速度。

　　看板ID：數字類型，來自看板列表，表示文章所屬看板。

　　主題ID：數字類型，來自主題表，表示文章所屬主題。

　　作者ID：文本類型，來自作者表，表示文章的作者。

　　日期：日期/時間類型，預置初值為函數NOW()，自動取系統當前時間為其值。

　　標題：文本類型。文章的標題。

　　發表：是/否類型，為"真"時表示文章已通過審閱，能夠發表；為"否"表示文章尚待審閱。

　　推薦度：數字類型，文章的推薦程度。

　　內容：備注類型，文章的具體內容。

　　點擊次數：數字類型，文章的點擊次數。

　?。?）看板列表（用來存放有關看板的訊息）：

　　ID：自動編號，同樣的，也為其配置了索引。

　　名稱：文本類型，看板的名稱。

　　板主：文本類型，看板版主的ID。

　　主題數：數字類型，看板中包含的主題數。

　?。?）主題表（用來存放有關主題的訊息）：

　　ID：自動編號，并為其配置索引。

　　標題：文本類型，表示主題名。

　　看板：數字類型，來自看板列表，表示主題所屬的看板。

　　文章數：數字類型，主題中包含的文章數。

　　任何的表是設計完了，但是數據庫的設計并沒有完，所以我們還需要建立表間關系，這樣就能夠讓數據庫執行一些相關性檢查，避免資料出錯。建立表間關系的另外的一個好處，就是通過他能夠很容易的建立出復雜的JOIN查詢。

　　通常我們在ASP中操作數據庫的時候，都是使用的執行時生成的查詢，然后由傳遞給數據庫解釋執行。而在這兒我們要用的是存貯查詢。和執行時查詢比較而言，預存程式具備更多的長處。

　　他保存在數據庫中，單獨于ASP程式代碼，使得他更容易建立和修改，并且查詢的效率更高，速度更快，能夠調試好了以后再放在ASP頁面中使用，能避免很多問題。而且使用存貯查詢的ASP程式代碼更加容易閱讀和修改?？赡艽蠹叶紝υ贏SP中使用SQL查詢感到很煩，特別是那些逗號啊，分號啊什么的，一不小心就會出錯。使用存貯查詢后，就能夠不用顧慮這些問題了。當然，預存程式再使用上也有一些要注意的地方，在后面我會周詳的講解他的使用方法。在ACCESS中建立預存程式是一件很容易的事，這兒我就不再多說了。在這兒我只給出各個查詢的SQL語句程式代碼。

　　我把任何要使用到的查詢都作為預存程式保存在了數據庫中，主要的有以下的一些：

　?。?）按ID查詢文章：

　　SELECT 主題表.標題 AS 主題名, 看板列表.名稱 AS 看板名, 內容表.*

　　FROM 主題表 INNER JOIN (內容表 INNER JOIN 看板列表 ON 內容表.看板ID = 看板列表.ID) ON 主題表.ID = 內容表.主題ID

　　WHERE (((內容表.ID)=[articleid]));

　　（2）版主密碼查詢：

　　SELECT 看板列表.板主, 作者表.密碼

　　FROM 作者表 INNER JOIN 看板列表 ON 作者表.ID = 看板列表.板主

　　WHERE (((看板列表.ID)=[id];

　?。?）查詢作者：

　　SELECT 作者表.*

　　FROM 作者表

　　WHERE (((作者表.ID)=[id]));

　?。?）發表文章列表：

　　SELECT [內容表].[ID], [內容表].[標題], [內容表].[作者ID] AS 作者, [內容表].[日期], [內容表].[推薦度], [內容表].[點擊次數] AS 點擊數。

　　FROM 內容表

　　WHERE ((([內容表].[主題ID])=[TopicIndex]) And (([內容表].[發表])=True));

　　未發表文章列表：

　　SELECT 內容表.ID AS 文章id, 主題表.ID AS 主題id, 主題表.標題 AS 主題, 內容表.標題 AS 標題, 內容表.作者ID AS 作者, 內容表.日期 AS 日期

　　FROM 主題表 INNER JOIN 內容表 ON 主題表.ID = 內容表.主題ID

　　WHERE (((內容表.發表)=False) AND ((內容表.看板ID)=[boardid]));

　?。?）主題列表：

　　SELECT 主題表.*, 看板列表.名稱 AS 看板名

　　FROM 看板列表 INNER JOIN 主題表 ON 看板列表.ID = 主題表.看板

　　WHERE (((主題表.看板)=[boardIndex]));

　　更有一些查詢，因為大多類同，我就不一一列出了。

　　在上面的查詢語句中，能夠看到一些由"["和"]"包圍起來的東西，那就是查詢參數了。需要在執行時給出參數值，然后把參數值帶入到查詢語句中才能夠執行。更有一點要注意的是：在建立那些INNER JOIN查詢時，是需要把表間關系添加到設計視圖中的，否則是不能夠自動生成INNER JOIN查詢語句的。到這兒，數據庫的設計就算完了，以后的工作就是ASP的事了。

　　二、構建

　　1、構建主窗體

　　先要給出一個窗體，能夠讓網友輸入注冊訊息，這些是HTML的內容，且放在一邊，我們來仔細看看具體實現注冊的ASP腳本。

　?。?）將資料中的單引號改成兩個單引號，并且在前后加上單引號

　　Function SqlStr( data )

　　SqlStr = "''" & Replace( data,"''", "''''" ) & "''"

　　End Function

　　注：這是個自定義的函數，用來把用戶輸入中的單引號（''）轉換成兩個單引號（''''）。在ASP中，用雙引號圍著的是字符串，因而上面的"''"代表的就是只有一個單引號的字符串。之所以要把一個單引號換成兩個單引號，這是因為在SQL語句中，用單引號圍起來是用來代表變量的。為了不至于混淆，就要把字符串中的單引號用兩個單引號來表示。而任何的用戶輸入都要作為變量嵌入到SQL語句中的，所以這個函數是必不可少的。

　　（2）存貯準備

　　id=Request("id")

　　password=Request("password")

　　nickname=Request("nickname")

　　email=Request("email")

　　sex=request("sex")

　　注：把來自用戶輸入窗體中的內容保存在變量中，這不是必須的，但寫了更容易讀寫。

　　if Request("name")=""then name=" " else name=request("name")

　　if Request("phone")=""then phone=" " else phone=request("phone")

　　因為這些內容不是必須填的，為了防止用戶沒有輸入任何內容，而造成數據庫操作上的錯誤，就必須把沒有填入字段用空格來代替。

　?。?）建立連接

　　Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　注：這一段是建立數據庫連接，數據庫的名稱為bbssystem.mdb，這一段中唯一要注意的是Server.MapPath函數的應用。一般來說，凡是涉及到具體的目錄的地方，都不要直接使用目錄名，而用Server.MapPath函數來代替。善用好Server.MapPath和Request.ServerVariables()等函數，能夠讓您的WEB應用具備更好的可移植性。

　　Set cmd = Server.CreateObject("ADODB.Command")

　　（4）查詢作者是否已存在

　　Set cmd.ActiveConnection = conn

　　cmd.CommandText = "查詢作者"

　　ReDim param(0) '' 聲明參數數組

　　param(0) = CStr(id) '' Cint 不可忽略

　　Set rs = cmd.Execute( ,param )

　　注：這一段就是用來執行預存程式的。在ADO中執行查詢的方法有很多種，但是對于預存程式就只能使用Command對象了。首先，建立了一個叫做cmd的Command對象，然后把conn連接對象設定給cmd對象的ActiveConnection屬性，把要執行的查詢名稱"查詢作者"設定給CommandText屬性，然后為查詢參數賦值。我們聲明了一個參數數組param(0)，因為在"查詢作者"這個查詢中只有一個參數，所以數組就只有一個分量了。一般的，在查詢中有幾個參數，就要申明有相應分量個數的參數數組。并且參數出現的順序是個數組中分量的順序是對應的。在使用參數查詢的過程中，尤其要注意的是，參數的類型要嚴格匹配，否這就會出錯，所以上面的CStr()類型轉換函數是不可缺少的。

　　

　　if not (rs.eof or rs.bof) then

　　response.write "錯誤，您輸入的ID號已被占用，請換一個再試試！"

　　else

　　sql = "Insert Into 作者表 (id, 昵稱,Email, 密碼,姓名,學校,系別,性別,電話) Values("

　　sql = sql & SqlStr(id) & ","

　　sql = sql & SqlStr(nickname) & ","

　　sql = sql & SqlStr(email) & ","

　　sql = sql & SqlStr(password) & ","

　　sql = sql & SqlStr(name) & ",&", "

　　sql = sql & SqlStr(sex) & ","

　　sql = sql & SqlStr(phone) & ")"

　　conn.Execute sql

　　使用一個SQL的Insert語句把資料插入到數據庫中。其實這一查詢也能夠做成預存程式放在數據庫中，我偷了點懶：-）但是對比之下也能夠看到預存程式的好處，執行時查詢寫起來實在是太麻煩了。

　　2、構建文章顯示模塊

　　前面說過，一片具體的文章是分屬在看板和主體之下的。因此顯示文章也要經過看板列表和主體列表這兩頁面后，才能得到特定主題下文章的列表。

　　（1）板列表的顯示頁面：

　?。?html＞

　?。?head＞

　　＜ title＞看板列表＜ /title＞

　?。?meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　?。?）打開連接，顯示看板列表

　?。?%Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　sql = "select * from 看板列表"

　　set rs=conn.execute(sql)

　　%＞

　　注：簡單的SQL查詢，把任何的看板有關訊息傳回到紀錄集RS中。下面的任務就是顯示紀錄記得內容，并在相應的看板名稱上建立顯示看板主題的連接。

　?。?body bgcolor="#FFFFFF"＞

　　＜ h2 align="center"＞看板列表＜/h2＞

　?。?table width="60%" border="0"cellspacing="0" cellpadding="0"align="center"＞

　?。?tr bgcolor="#FFFFCC"＞

　　＜ td height="35" width="25%"＞看板名稱＜/td＞

　?。?td height="35" width="21%"＞板主＜/td＞

　?。?td height="35" width="23%"＞主題數＜/td＞

　　＜ td height="35" width="31%"＞板主登陸＜/td＞

　　＜ /tr＞

　　注：這兒一部分是顯示出表格中每一列的標題，這兒我沒有用一個統一的函數來顯示RS紀錄記的內容，因為這樣能夠對表格的外觀和風格做更多的控制，使用起來雖然有點麻煩，但是卻更為靈活。

　?。?%

　　do

　　boardid=rs("id")

　　boardname=rs("名稱")

　　boardmanager=rs("板主")

　　response.write "＜ tr＞＜ td＞＜a href=qBoard.asp?boardid="& boardid& "&boardname=" & boardname& "＞" & boardname &"＜ /a＞＜ /td＞"

　　注：這一行是重點，當點擊了各個板的名稱后，能夠連接到顯示看板主題的頁面。程式代碼看起來有點麻煩，我分解了給您講，您就會明白了。在點擊之后，瀏覽器請求使用的是qBoard.asp頁面，并帶有一個參數boardid，代表要顯示看板的ID號，在請求頁面和參數之間用問號（？）分隔。Boardid是前面設定了的變量，其中包含的就是對應看板的ID號。這個連接中還帶有另外一個參數boardname，用來把看板名稱傳遞給qBoard.asp頁面。在多個參數間使用"&"來分隔。這個參數不是必須的，傳遞過去是為了免得在qBorad.asp中再次用boardid來查詢看板名稱。一般來說，能夠少用數據庫操作就應當盡量的少用，這樣能夠提高ASP頁面的性能。因為Response.Write語句使用字符串作為參數的，所以上面的字符串和變量之間使用的是"&"聯結符。最后ASP頁面解釋的結果應該是像這樣的

　　

　?。紅d＞＜ a href=qBoard.asp?boardid=1&boardname=系統板＞系統板 ＜ /a＞＜ td＞。

　　response.write "＜ td＞＜ a href=qAuthor.asp?author="&boardmanager & "＞" &boardmanager & "＜ /a＞＜/td＞"

　　response.write "＜ td＞" &rs("主題數") & "＜ /td＞"

　　response.write "＜ td＞＜ a href=managerlogin.asp?boardid="&boardid & "＞板務處理＜ /a＞＜/td＞＜ /tr＞"

　　注：在這個表中，除了能夠由連接來顯示看板主題的內容，更有一個斑竹查詢部分和板務處理部分，版主查詢能夠是通過qAuthor.asp來實現的，他只是簡單的從數據庫中取出作者訊息，并顯示出來，這兒就不多說了。而板務處理是由managerlogin.asp頁面來處理的。這屬于文章審閱模塊，我在后面再詳說。

　　rs.movenext

　　loop until rs.eof

　　%＞

　　注：通過一個do … loop循環，把紀錄集中任何的訊息都顯示了出來。

　?。?/table＞

　　＜ div align="center"＞＜br＞

　　點擊看板名稱能夠得到主題列表，點擊板主名稱能夠察看板主訊息

　　＜ /div＞

　　＜ /body＞

　?。?/html＞

　?。?%

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%＞

　　（3）打造qBaord.asp頁面：

　?。?%

　　boardid=request("boardid") ''取出由上個頁面傳遞過來的看板ID號

　　Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　Set cmd = Server.CreateObject("ADODB.Command")

　　Set cmd.ActiveConnection = conn

　　cmd.CommandText = "主題列表"

　　ReDim param(0) //注：聲明參數數組

　　param(0) = CLng(boardid)//注：CLng 不可忽略

　　Set rs = cmd.Execute( ,param )

　　%＞

　?。?html＞

　?。?head＞

　?。?title＞主題列表＜ /title＞

　　＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　?。?body bgcolor="#FFFFFF"＞

　　＜ h1 align="center"＞＜%=rs("看板名")%＞板主題列表 ＜/h1＞

　?。?table width="80%" border="0"cellspacing="0" cellpadding="0"align="center"＞

　?。?tr bgcolor="#FFFFCC"＞

　?。?td width="89%" height="21"＞主題＜/td＞

　?。?td width="11%" height="21"＞文章數＜/td＞

　?。?/tr＞

　?。?%

　　do

　　topicid=rs("id")

　　topicname=rs("標題")

　　sum=rs("文章數")

　　response.write "＜ tr＞＜ td＞＜a href=qtopic.asp?topicid=" & topicid& "&boardname=" & boardname& "＞" & topicname &"＜ /a＞＜ /td＞"

　　response.write "＜ td＞" &sum & "＜ /td＞＜ /tr＞"

　　rs.movenext

　　loop until rs.eof

　　%＞

　?。?/table＞

　　＜ /body＞

　?。?/html＞

　　

　　注：qBoard.asp列出了某個版面下的任何的主題，在點擊了主題名稱后就會進入相應的主題文章列表。這個列表的是由qTopic.asp這個ASP腳本來實現的。Qtopic.asp的程式代碼在本質上幾乎和qBoard.asp沒有區別，只是在各自的細節上有所區別，這兒也不打算再多講了。

　?。?）在點擊了文章列表中的文章標題后，會進入文章內容瀏覽頁article.asp：

　?。?%

　　articleid=request("articleid")

　　Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver(*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　Set cmd = Server.CreateObject("ADODB.Command")

　　Set cmd.ActiveConnection = conn

　　cmd.CommandText = "按id查詢文章"

　　ReDim param(0) '' 聲明

　　param(0) = CLng(articleid) '' Cint 不可忽略

　　Set rs = cmd.Execute( ,param )

　　author=rs("作者id")

　　title=rs("標題")

　　data=rs("日期")

　　rate=rs("推薦度")

　　boardid=rs("看板id")

　　topicid=rs("主題id")

　　boardname=rs("看板名")

　　topicname=rs("主題名")

　　content=rs("內容")

　　content=replace(content,vbCrlf,"＜/p＞＜ p＞")

　　content="＜ p＞" & content& "＜ /p＞"

　　注：這是個要注意的地方，在內容字段中包含的是備忘類型的文本，其中能夠包含換行字符。在HTML的顯示中，必須要把換行字符（也就是vbCrlf常數）換成HTML的段落符號。這樣在段落和段落的銜接處，就不會打亂原來輸入時的格式。假如要設計的更好些，能夠通過CSS來復位義＜ P＞標簽，設定其test-indent屬性，就能夠實現每段開頭空格了。

　?。?）把點擊次數加一

　　sql="Update 內容表 Set 點擊次數=點擊次數 1Where ID=" & articleid

　　conn.execute sql

　　注：這兒有一個SQL語句，沒當頁面被顯示的時候，會把相應的表中點擊次數字段加一，這樣就能夠對文章瀏覽的次數做出統計，并可按順序排名。在執行條語句的時候，我發現：本來在SQL語句中，嵌入的變量名應該加上單引號以和區別，但在這兒的articleid變量上我并沒有加單引號，居然也能夠通過，而我以前這樣寫從來都是會引發錯誤的，不知是不是由于新版本的ADO的緣故。

　　set cmd=nothing

　　%＞

　?。?html＞

　　＜ head＞

　　＜ title＞Untitled Document＜ /title＞

　?。?meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　　＜ body bgcolor="#E9E9E4"＞

　?。?table width="89%" border="0"cellspacing="0" cellpadding="0"align="center"＞

　?。?tr bgcolor="#CCCCCC"＞

　?。?td＞作者：＜ font color="#FF3366"＞＜a href="qauthor.asp?author=＜ %=author%＞"＞＜ %=author%＞ ＜ /a＞＜ /font＞發表日期：＜ font color="#FF3333"＞＜%=data%＞＜ /font＞

　　看板：＜ font color="#FF3333"＞＜a href="qboard.asp?boardid=＜ %=boardid%＞"＞＜ %=boardname%＞＜ /a＞＜ /font＞板主推薦：＜ font color="#FF3333"＞#rate#＜/font＞＜ /td＞

　　＜ /tr＞

　?。?tr bgcolor="#CCCCCC"＞

　?。?td＞標題：＜ font color="#FF3333"＞＜%=title%＞

　　主題：＜ a href="qtopic.asp?topicid=＜%=topicid%＞"＞ ＜ %=topicname%＞＜ /a＞ ＜ /font＞＜ /td＞

　?。?/tr＞

　?。?tr valign="top"＞

　　＜ td＞

　　＜ hr＞

　?。?font color="#FF3366"＞文章內容：＜ /font＞＜ br＞

　?。?br＞

　?。?font color=blue＞＜ %response.writecontent%＞＜ /font＞

　?。?br＞

　　＜ br＞

　?。?/td＞

　?。?/tr＞

　?。?tr valign="top"＞

　　＜ td height="18"＞

　?。?table width="50%" border="0"cellspacing="0" cellpadding="0"align="right" bgcolor="#CCCCCC"＞

　?。?tr＞

　　＜ td width="0%"＞ ＜ /td＞

　?。紅d width="65%"＞關于此話題＜a href="submit.asp?topicid=＜ %=topicid%＞&boardid=＜%=boardid%＞"＞發表評論＜ /a＞＜/td＞

　　這個連接允許網友對此評論的話題發表自己的見解，這是下一個模塊要講的內容了，這兒且按下不表。

　?。?/tr＞

　　＜ /table＞

　?。?/td＞

　?。?/tr＞

　　＜ /table＞

　?。?/body＞

　?。?/html＞

　?。?%

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%＞

　　到此，文章顯示部分也完成了。下面再來看看文章發表部分是如何實現的。

　　3、構建文章發表部分

　　文章發表模塊只有兩個頁面，一個是前面提到的用來提供輸入窗體的submit.asp，更有一個是用來處理窗體輸入的subresult.asp。前面的那個頁面很簡單，基本上就是個HTML窗體，沒有什么好講的，下面來看看subresult.asp的內容：

　　＜ html＞

　　＜ head＞

　?。?title＞發表文章＜ /title＞

　?。?meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　?。?body bgcolor="#FFFFFF"＞

　?。?%

　　author=request("author")

　　password=request("password")

　　topicid=request("topicid")

　　boardid=request("boardid")

　　content=request("content")

　　title=request("title")

　　注：這一段取出在submit.asp中提交的表但內容，放在相應的變量中。

　　＜ html＞

　?。?head＞

　?。?title＞發表文章＜ /title＞

　?。?meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　?。?body bgcolor="#FFFFFF"＞

　　＜ %

　　author=request("author")

　　password=request("password")

　　topicid=request("topicid")

　　boardid=request("boardid")

　　content=request("content")

　　title=request("title")

　　（1）查詢作者是否已存在

　　cmd.CommandText = "select * from 作者表where id=''" & author &"''"

　　Set rs = cmd.Execute()

　?。?）檢查權限

　　cmd.CommandText = "select * from 作者表where id=''" & author &"''"

　　Set rs = cmd.Execute()

　　注：這一段是對作者權限進行檢查，對于帳號不存在或密碼錯誤做出相應的錯誤處理。在這兒能夠看到response.end的用法，他是用來結束當前ASP腳本。結合if語句，能夠對程式中的預期錯誤進行處理。在一個好的WEB應用中，錯誤處理是必不可少的。

　?。?）將資料中的單引號改成兩個單引號，并且在前后加上單引號

　　Function SqlStr( data )

　　SqlStr = "''" & Replace( data,"''", "''''" ) & "''"

　　End Function

　　''寫入數據庫

　　sql = "Insert Into 內容表 (看板id,主題id,作者id,標題,內容)Values( "

　　sql = sql & SqlStr(topicid) & ","

　　sql = sql & SqlStr(boardid) & ","

　　sql = sql & SqlStr(author) & ","

　　sql = sql & SqlStr(title) & ","

　　sql = sql & SqlStr(content) & ")"

　　conn.Execute sql

　　%＞

　　＜ h2＞文章已被發送到數據庫，當板主審閱后就能夠看到了＜h2＞

　　＜ /body＞

　?。?/html＞

　　到這兒，文章已被保存在數據庫中了。但是，他并不能夠立即被顯示出來，還需要版主的認可才行。下面，就來看看論壇的管理部分的內容。

　　4、論壇的管理部分

　　這兒是我們這個論壇的核心之所在，但他實現起來也沒有什么特別的地方。還是那些老東西：窗體處理，數據庫查詢，在用ASP把他們有機的結合起來。當進入了文章審閱模式（前面提到的板務處理）之后，最為首要的內容，應該是對版主的身份進行驗證了。下面來看看版主登陸頁面：

　?。?%

　　boardid=request("boardid")（注：boardid是由進入這個頁面的連接所傳遞過來的，是要進行板務處理的看板的ID。通過他才能知道處理的是那個板的板務。）

　　

　　Set conn = erver.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　Set cmd = Server.CreateObject("ADODB.Command")

　　Set cmd.ActiveConnection = conn

　　cmd.CommandText = "板主密碼查詢"

　　ReDim param(0)

　　param(0) = CLng(boardid) //注：CLng 不可忽略

　　Set rs = cmd.Execute( ,param )

　　boardmanager=rs("板主")

　　set cmd=nothing

　　%＞

　?。?html＞

　?。?head＞

　?。?title＞Untitled Document＜ /title＞

　　＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　?。?body bgcolor="#FFFFFF"＞

　?。?p＞只有板主＜ %=boardmanager%＞才能夠進入這個地方＜/p＞

　　＜ p＞請輸入驗證密碼, 并且為了保持身份驗證，請打開瀏覽器的Cookies。＜/p＞

　　＜ form method="post" action="managerloginrest.asp"＞

　?。?input type="password" name="password"＞

　?。?input type="hidden" name="boardid"value=＜ %=boardid%＞＞

　　＜ input type="submit" name="Submit"value="確定"＞

　?。?/form＞

　　

　　注：這個頁面僅僅是用來登陸用的，他得到斑竹輸入的密碼后，并不能進行驗證，而是將驗證的工作放到下一個頁面中進行。實際上，密碼輸入和驗證的工作是能夠放在一個頁面中完成的，只但是程式代碼的結構安排上有點麻煩。

　?。?/body＞

　?。?/html＞

　?。?%

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%＞

　　現在得到了版主ID和輸入的密碼，下面就是進行驗證的工作managerloginrest.asp了，他接受上面那個文檔中窗體的內容，并進行相關處理：

　?。?%

　　response.buffer=true

　　注：把緩沖區配置為允許使用。這一條一般來說，是應該加在每個ASP頁面的首部的，這樣能夠提高ASP頁面的性能。在打開了緩沖區后，ASP中更有一些相應的特別用法，在后面會提及。

　　boardid=request("boardid")

　　password=request("password")

　　Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　Set cmd = Server.CreateObject("ADODB.Command")

　　Set cmd.ActiveConnection = conn

　　cmd.CommandText = "板主密碼查詢"

　　ReDim param(0) '' 聲明

　　param(0) = CLng(boardid)//注：CLng不可忽略

　　Set rs = cmd.Execute( ,param )

　　boardmanager=rs("板主")

　　if password＜ ＞ rs("密碼")then %＞

　?。?html＞

　　＜ head＞

　　＜ title＞身份驗證＜ /title＞

　?。?meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　?。?body bgcolor="#FFFFFF"＞

　　密碼錯誤

　?。?/body＞

　?。?/html＞

　　＜ %

　　else

　　session("beenthere")=boarded

　　注：使用Session來保持對版主的身份驗證，這必須需要客戶端瀏覽器的cookie被打開了。因為Session是通過cookie來實現的。在這兒，把看板ID賦給Session變量beenthere，表明版主主已通過了身份驗證。在后面的每個版務處理的頁面中，都要檢查beenthere是否和相應的看版ID相符。

　　url="boardmanager.asp?boardid="& boardid

　　response.redirect url

　　補充：初學ASP的時候總是為response.redirect這個方法感到困惑，屢用不爽，現在我來告訴您一些技巧。使用他之前，必須通過response.buffer=true來讓ASP頁面使用緩沖區。這時，在ASP被解釋成HTML程式代碼之前，他是放在緩沖區中的，而不直接被發送的客戶端瀏覽器。更有一個必須要知道的是：在使用response.redirect之前，是不能有任何實際的HTML程式代碼被發送到客戶端瀏覽器的，否則就會出錯。當然也有變通的方法，假如在response.redirect之前已有HTML程式代碼被解釋出來，能夠用response.clear方法來清除緩沖區，然后就能夠使用他來進行復位向了。

　　end if

　　%＞

　　注：下面就是在上面身份驗證通過后復位向的目標：boardmanager.asp。他將列出了任何別有被處理的文章。

　?。?%

　　boardid=request("boardid")

　　if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp"

　　注：這就是檢驗版主身份的地方，因為前面已通過cookie在斑竹的瀏覽器中作了標記，現在我們就能夠通過seesion來辨認版主的身份了。假如標示不符，就會通過response.redirect返回到最開始的登陸頁面。假如版主瀏覽器的cookie沒有打開，那么seesion（"beenthere"）的值會為空，同樣也無法進入這個頁面。

　　Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　Set cmd = Server.CreateObject("ADODB.Command")

　　Set cmd.ActiveConnection = conn

　　sql="select 名稱 from 看板列表 whereid=" & boardid

　　set rs=conn.execute(sql)

　　boardname=rs("名稱")

　　cmd.commandtext="未發表文章列表"

　　ReDim param(0)

　　param(0) = CLng(boardid)//注：Clng 不可忽略

　　Set rs = cmd.Execute( ,param )

　　set cmd=nothing

　　%＞

　?。?html＞

　?。?head＞

　?。?title＞版務處理＜ /title＞

　　＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　?。?body bgcolor="#FFFFFF"＞

　?。?h1 align="center"＞＜%=boardname%＞版務管理＜ /h1＞

　?。?hr＞

　?。?%

　　if rs.eof or rs.bof then response.write "＜H2＞現在沒有文章要處理＜ /h2＞"

　　response.end

　　%＞

　　注：假如沒有新文章被網友發布，這給出相應的提示，并用response.end來結束此頁的顯示。

　?。?table width="90%" border="0"cellspacing="0" cellpadding="0"align="center" ＞

　　＜ tr bgcolor="#FFFFCC"＞

　?。?td width="40%" height="20"＞主題＜/td＞

　　＜ td width="40%" height="20"＞文章標題＜/td＞

　?。?td width="8%" height="20"＞作者＜/td＞

　?。?td width="12%" height="20"＞日期＜/td＞

　　＜ /tr＞

　　＜ %

　　do

　　topicid=rs("主題id")

　　articleid=rs("文章id")

　　data=rs("日期")

　　datastr=cstr(year(data)) & "-"& cstr(month(data)) &"-"& cstr(day(data))

　　author=rs("作者")

　　articlename=rs("標題")

　　topicname=rs("主題")

　　response.write "＜ tr＞＜ td＞＜a href=qtopic.asp?topicid="& topicid& "＞" & topicname &"＜ /A＞＜ /td＞"

　　response.write "＜ td＞＜ a href=managearticle.asp?articleid="&articleid & "&boardid="& boardid &"＞" &articlename & "＜ /A＞＜ /td＞"

　　response.write "＜ td＞＜ a href=qauthor.asp?author="&author & "＞" & author& "＜ /a＞＜ /td＞"

　　response.write "＜ td＞" &datastr & "＜ /td＞＜ /tr＞"

　　rs.movenext

　　loop until rs.eof

　　%＞

　　＜ /table＞

　　＜ /html＞

　?。?%

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%＞

　?。?/body＞

　　當點擊了相應文章的聯結后，就進入此文章的處理頁面managearticle.asp：

　　＜ %

　　articleid=request("articleid")

　　boardid=request("boardid")

　　if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp"

　　Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　Set cmd = Server.CreateObject("ADODB.Command")

　　Set cmd.ActiveConnection = conn

　　cmd.CommandText = "按id查詢文章"

　　ReDim param(0)

　　param(0) = CLng(articleid)//注：Clng 不可忽略

　　Set rs = cmd.Execute( ,param )

　　author=rs("作者id")

　　title=rs("標題")

　　data=rs("日期")

　　rate=rs("推薦度")

　　boardid=rs("看板id")

　　topicid=rs("主題id")

　　boardname=rs("看板名")

　　topicname=rs("主題名")

　　content=rs("內容")

　　content=replace(content,vbCrlf,"＜/p＞＜ p＞")

　　content="＜ p＞" & content& "＜ /p＞"

　　set cmd=nothing

　　%＞

　?。?html＞

　?。?head＞

　?。?title＞Untitled Document＜ /title＞

　?。?meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　　＜ /head＞

　?。?body bgcolor="#E9E9E4"＞

　　＜ table width="89%" border="0"cellspacing="0" cellpadding="0"align="center"＞

　?。?tr bgcolor="#CCCCCC"＞

　?。?td＞作者：＜ font color="#FF3366"＞＜a href="qauthor.asp?author=＜ %=author%＞"＞＜ %=author%＞ ＜ /a＞＜ /font＞發表日期：＜ font color="#FF3333"＞＜%=data%＞＜ /font＞

　　看板：＜ font color="#FF3333"＞＜a href="qboard.asp?boardid=＜ %=boardid%＞"＞＜ %=boardname%＞＜ /a＞＜ /font＞板主推薦：＜ font color="#FF3333"＞#rate#＜/font＞＜ /td＞

　?。?/tr＞

　?。?tr bgcolor="#CCCCCC"＞

　?。?td＞標題：＜ font color="#FF3333"＞＜%=title%＞

　　主題：＜ a href="qtopic.asp?topicid=＜%=topicid%＞"＞ ＜ %=topicname%＞＜ /a＞ ＜ /font＞＜ /td＞

　?。?/tr＞

　?。?tr valign="top"＞

　　＜ td＞

　　＜ hr＞

　?。?font color="#FF3366"＞文章內容：＜ /font＞＜ br＞

　?。?br＞

　?。?font color=blue＞＜ %response.writecontent%＞＜ /font＞

　　＜ br＞

　?。?hr＞

　?。?/td＞

　?。?/tr＞

　?。?tr valign="top"＞

　?。?form method="post" action="manageresult.asp"＞

　　＜ td height="18"＞

　?。?table width="100%" border="1"cellspacing="1" cellpadding="1"＞

　?。?tr＞

　?。?td width="29%"＞

　　＜ div align="right"＞

　?。?input type="hidden" name="boardid"value="＜ %=boardid%＞"＞

　?。?input type="hidden" name="topicid"value="＜ %=topicid%＞"＞

　?。?input type="hidden" name="articleid"value="＜ %=articleid%＞"＞

　　文章處理：＜ /div＞

　?。?/td＞

　?。?td width="12%" bordercolor="#006666"＞刪除:

　　＜ input type="radio" name="manage"value=1＞

　?。?/td＞

　?。?td width="30%" bordercolor="#006666"＞發表:

　　＜ input type="radio" name="manage"value=2＞

　　推薦等級

　　＜ select name="select"＞

　　＜ option value="1"＞1＜/option＞

　?。?option value="2"＞2＜/option＞

　?。?option value="3" selected＞3＜/option＞

　?。?option value="4"＞4＜/option＞

　?。?option value="5"＞5＜/option＞

　　＜ /select＞

　?。?/td＞

　?。?td width="20%" bordercolor="#006666"＞以后再處理:

　　＜ input type="radio" name="manage"value=3＞

　?。?/td＞

　?。?td width="9%"＞

　?。?input type="submit" name="Submit"value="確定"＞

　?。?/td＞

　?。?/tr＞

　　＜ /table＞

　　＜ /td＞

　?。?/form＞

　?。?/tr＞

　?。?/table＞

　?。?/body＞

　　＜ /html＞

　　＜ %

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%＞

　　

　　注：這一頁和文章顯示模塊中的article.asp基本上是相同的，僅僅是多加入了版主處理的窗體，在這兒就不多講了。

　　下面，要根據版主的處理過程，修該數據庫相應部分

　?。?%response.buffer=true%＞

　　＜ html＞

　?。?head＞

　?。?title＞文章處理＜ /title＞

　　＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞

　?。?/head＞

　?。?body bgcolor="#E9E9E4"＞

　?。?%

　　articleid=request("articleid")

　　boardid=request("boardid")

　　topicid=request("topicid")

　　manage=request("manage")

　　''接受窗體內容

　　response.write manage ''顯示斑竹ID

　　if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp"

　　Set conn = Server.CreateObject("ADODB.Connection")

　　conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")

　　根據上頁中版主的操作，下面進行相應的處理。

　　if CLng(request("manage"))=1 then

　　sql="delete from 內容表 where id="& articleid

　　conn.execute sql

　　response.write "＜ h1＞文章已被刪除＜/h1＞"

　　response.write "＜ a href=＞back＜/a＞"

　　elseif CLng(request("manage"))=2then

　　sql="update 內容表 set 發表=true whereid=" & articleid

　　conn.execute sql

　　sql="update 主題表 set 文章數=文章數 1where id=" & topicid

　　conn.execute sql

　　response.write "＜ h1＞文章已發表＜/h1＞"

　　response.write "＜ a href=＞back＜/a＞"

　　else

　　response.clear

　　response.redirect "boardmanager.asp?boardid="& boarded

　　end if

　　%＞

　　＜ /body＞

　?。?/html＞

　?。?%

　　conn.close

　　set conn=nothing

　　%＞

　　經過上面幾步，任何的部分就算是基本完成了，當然，這時還不能拿來用，擺不上臺面的。假如想要能夠拿得出來的話，還要在版面設計，客戶端資料驗證等方面多下一些功夫。但是那都是HTML的內容了，和ASP沒多大的關系，這兒我就不多講了。

聲明：本網頁內容旨在傳播知識，若有侵權等問題請及時與本網聯系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com