< 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 
  

注：使用Session來保持對(duì)版主的身份驗(yàn)證，這必須要求客戶端瀏覽器的cookie被打開了。因?yàn)镾ession是通過cookie來實(shí)現(xiàn)的。在這兒，把看板ID賦給Session變量beenthere，表明版主主已經(jīng)通過了身份驗(yàn)證。在后面的每個(gè)版務(wù)處理的頁(yè)面中，都要檢查beenthere是否和相應(yīng)的看版ID相符。 
url="boardmanager.asp?boardid="& boardid 
response.redirect url 
  

補(bǔ)充：初學(xué)ASP的時(shí)候總是為response.redirect這個(gè)方法感到困惑，屢用不爽，現(xiàn)在我來告訴你一些技巧。使用它之前，必須通過response.buffer=true來讓ASP頁(yè)面使用緩沖區(qū)。這時(shí)，在ASP被解釋成HTML程序代碼之前，它是放在緩沖區(qū)中的，而不直接被發(fā)送的客戶端瀏覽器。還有一個(gè)必須要知道的是：在使用response.redirect之前，是不能有任何實(shí)際的HTML程序代碼被發(fā)送到客戶端瀏覽器的，否則就會(huì)出錯(cuò)。當(dāng)然也有變通的方法，如果在response.redirect之前已經(jīng)有HTML程序代碼被解釋出來，可以用response.clear方法來清除緩沖區(qū)，然后就可以使用它來進(jìn)行復(fù)位向了。 
end if 
%> 
注：下面就是在上面身份驗(yàn)證通過后復(fù)位向的目標(biāo)：boardmanager.asp。它將列出了所有別有被處理的文章。 
< % 
boardid=request("boardid") 
if session("beenthere")< >boardidthen response.redirect "forums.asp" 
注：這就是檢驗(yàn)版主身份的地方，因?yàn)榍懊嬉呀?jīng)通過cookie在斑竹的瀏覽器中作了標(biāo)記，現(xiàn)在我們就能夠通過seesion來辨認(rèn)版主的身份了。如果標(biāo)示不符，就會(huì)通過response.redirect返回到最開始的登陸頁(yè)面。如果版主瀏覽器的cookie沒有打開，那么seesion（"beenthere"）的值會(huì)為空，同樣也無法進(jìn)入這個(gè)頁(yè)面。 
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="未發(fā)表文章列表" 
ReDim param(0) 
param(0) = CLng(boardid)//注：Clng 不可忽略 
Set rs = cmd.Execute( ,param ) 
set cmd=nothing 
%> 
< html> 
< head> 
< title>版務(wù)處理< /title> 
< meta http-equiv="Content-Type"content="text/html; charset=GB2312"> 
< /head> 
< body bgcolor="#FFFFFF"> 
< h1 align="center"><%=boardname%>版務(wù)管理< /h1> 
< hr> 
< % 
if rs.eof or rs.bof then response.write "<H2>現(xiàn)在沒有文章要處理< /h2>" 
response.end 
%> 
注：如果沒有新文章被網(wǎng)友發(fā)布，這給出相應(yīng)的提示，并用response.end來結(jié)束此頁(yè)的顯示。 
< 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">文章標(biāo)題</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("標(biāo)題") 
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> 
當(dāng)點(diǎn)擊了相應(yīng)文章的聯(lián)結(jié)后，就進(jìn)入此文章的處理頁(yè)面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("標(biāo)題") 
data=rs("日期") 
rate=rs("推薦度") 
boardid=rs("看板id") 
topicid=rs("主題id") 
boardname=rs("看板名") 
topicname=rs("主題名") 
content=rs("內(nèi)容") 
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>發(fā)表日期：< 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>標(biāo)題：< font color="#FF3333"><%=title%> 
主題：< a href="qtopic.asp?topicid=<%=topicid%>"> < %=topicname%>< /a> < /font>< /td> 
< /tr> 
< tr valign="top"> 
< td> 
< hr> 
< font color="#FF3366">文章內(nèi)容：< /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">發(fā)表: 
< input type="radio" name="manage"value=2> 
推薦等級(jí) 
< 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 
%> 
注：這一頁(yè)和文章顯示模塊中的article.asp基本上是一樣的，僅僅是多加入了版主處理的窗體，在這兒就不多講了。 
下面，要根據(jù)版主的處理過程，修該數(shù)據(jù)庫(kù)相應(yīng)部分 
< %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") 
'接受窗體內(nèi)容 
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") 
根據(jù)上頁(yè)中版主的操作，下面進(jìn)行相應(yīng)的處理。 
if CLng(request("manage"))=1 then 
sql="delete from 內(nèi)容表 where id="& articleid 
conn.execute sql 
response.write "< h1>文章已經(jīng)被刪除</h1>" 
response.write "< a href=>back</a>" 
elseif CLng(request("manage"))=2then 
sql="update 內(nèi)容表 set 發(fā)表=true whereid=" & articleid 
conn.execute sql 
sql="update 主題表 set 文章數(shù)=文章數(shù)+1where id=" & topicid 
conn.execute sql 
response.write "< h1>文章已經(jīng)發(fā)表</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 
%> 
  

經(jīng)過上面幾步，所有的部分就算是基本完成了，當(dāng)然，這時(shí)還不能拿來用，擺不上臺(tái)面的。如果想要能夠拿得出來的話，還要在版面設(shè)計(jì)，客戶端資料驗(yàn)證等方面多下一些功夫。不過那都是HTML的內(nèi)容了，和ASP沒多大的關(guān)系，這兒我就不多講了。