這兒或許是我們這個論壇的核心之所在，但它實現(xiàn)起來也沒有什么特別的地方。還是那些老東西：表單處理，數(shù)據(jù)庫查詢，在用ASP把他們有機的結(jié)合起來。

　　當(dāng)進(jìn)入了文章審閱模式（前面提到的板務(wù)處理）之后，最為首要的內(nèi)容，應(yīng)該是對斑竹的身份進(jìn)行驗證了。下面來看看斑竹登陸頁面：

　　< %

　　boardid=request("boardid")

　　boardid是由進(jìn)入這個頁面的鏈接所傳遞過來的，是要進(jìn)行板務(wù)處理的看板的ID。通過它才能知道處理的是那個板的板務(wù)。

　　

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

　　conn.Open "driver={Microsoft Access Driver (*.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%>才能夠進(jìn)入這個地方< /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>

　　這個頁面僅僅是用來登陸用的，它得到斑竹輸入的密碼后，并不能進(jìn)行驗證，而是將驗證的工作放到下一個頁面中進(jìn)行。實際上，密碼輸入和驗證的工作是可以放在一個頁面中完成的，只不過代碼的結(jié)構(gòu)安排上有點麻煩。

　　< /body>

　　< /html>

　　< %

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%>

　　 現(xiàn)在得到了斑竹ID和輸入的密碼，下面就是進(jìn)行驗證的工作managerloginrest.asp了，它接受上面那個文件中表單的內(nèi)容，并進(jìn)行相關(guān)處理：

　　< %

　　response.buffer=true

　　把緩沖區(qū)設(shè)置為允許使用。這一條一般來說，是應(yīng)該加在每個ASP頁面的首部的，這樣能夠提高ASP頁面的性能。在打開了緩沖區(qū)后，ASP中還有一些相應(yīng)的特殊用法，在后面會提及。

　　boardid=request("boardid")

　　password=request("password")

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

　　conn.Open "driver={Microsoft Access Driver (*.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) ' Cint 不可忽略

　　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