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

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

　　< %

　　boardid=request("boardid")

　　boardid是由進(jìn)入這個(gè)頁(yè)面的鏈接所傳遞過(guò)來(lái)的，是要進(jìn)行板務(wù)處理的看板的ID。通過(guò)它才能知道處理的是那個(gè)板的板務(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)入這個(gè)地方< /p>

　　 < p>請(qǐng)輸入驗(yàn)證密碼, 并且為了保持身份驗(yàn)證，請(qǐng)打開(kāi)瀏覽器的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>

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

　　< /body>

　　< /html>

　　< %

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%>

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

　　< %

　　response.buffer=true

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

　　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>身份驗(yàn)證< /title>

　　< meta http-equiv="Content-Type" content="text/html; charset=gb2312">

　　< /head>

　　< body bgcolor="#FFFFFF">

　　密碼錯(cuò)誤

　　< /body>

　　< /html>

　　< %

　　else

　　session("beenthere")=boarded