使用ASP打造網站論壇DIY

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

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

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

　�。�2） 文章顯示模塊：顯示所有版主審核過的，覺得值得推薦的文章。

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

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

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

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

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

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

　　　　ID：　　文本類型，必填。是網友代號。
　　　　密碼：　文本類型，必填。
　　　　昵稱：　文本類型，必填。
　　　　EMAIL： 文本類型，必填。
　　　　職務：　數字類型，必填。-1代表普通網友，0代表站長。大于0的數字代表版主。
　　　　文章數：數字類型，必填。網友發表的文章總數。
　　　　姓名：　文本類型，可選。
　　　　性別：　文本類型，可選。
　　　　電話：　文本類型，可選。

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

　　　　　　ID：自動編號，并為其設置索引，以加快搜尋的速度。
　　　　看板ID：數字類型，來自看板列表，表示文章所屬看板。
　　　　主題ID：數字類型，來自主題表，表示文章所屬主題。
　　　　作者ID：文本類型，來自作者表，表示文章的作者。
　　　　　日期：日期/時間類型，預置初值為函數NOW()，自動取系統當前時間為其值。
　　　　　標題：文本類型。文章的標題。
　　　　　發表：是/否類型，為"真"時表示文章已經通過審閱，可以發表；為"否"表示文章尚待審閱。
　　　　推薦度：數字類型，文章的推薦程度。
　　　　　內容：備注類型，文章的具體內容。
　　　點擊次數：數字類型，文章的點擊次數。

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

　　　　　　ID：自動編號，同樣的，也為其設置了索引。
　　　　　名稱：文本類型，看板的名稱。
　　　　　板主：文本類型，看板版主的ID。
　　　　主題數：數字類型，看板中包含的主題數。

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

　　　　　　ID：自動編號，并為其設置索引。
　　　　　標題：文本類型，表示主題名。
　　　　　看板：數字類型，來自看板列表，表示主題所屬的看板。
　　　　文章數：數字類型，主題中包含的文章數。

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

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

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

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

　�。�1）按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];

　�。�3）查詢作者：

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

　　（4）發表文章列表：

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]));

　　（5）主題列表：

SELECT 主題表.*, 看板列表.名稱 AS 看板名
FROM 看板列表 INNER JOIN 主題表 ON 看板列表.ID = 主題表.看板
WHERE (((主題表.看板)=[boardIndex]));

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

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

　　二、構建

　　1、構建主窗體

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

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

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")

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

　　（3）建立連接

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＞

　　（2）打開連接，顯示看板列表

＜ %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頁面解釋的結果應該是像這樣的

＜td＞＜ 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沒有區別，只是在各自的細節上有所區別，這兒也不打算再多講了。

　�。�4）在點擊了文章列表中的文章標題后，會進入文章內容瀏覽頁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屬性，就可以實現每段開頭空格了。

　　（5）把點擊次數加一

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＞
＜td 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()

　　（2）檢查權限

cmd.CommandText = "select * from 作者表where id='" & author &"'"
Set rs = cmd.Execute()

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

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

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沒多大的關系，這兒我就不多講了。