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來實現(xiàn)的。在這兒，把看板ID賦給Session變量beenthere，表明版主主已經(jīng)通過了身份驗證。在后面的每個版務處理的頁面中，都要檢查beenthere是否和相應的看版ID相符。 

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

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

   
  end if 
  %＞ 

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

   
  ＜ % 
  boardid=request("boardid") 
  if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp" 

  　　注：這就是檢驗版主身份的地方，因為前面已經(jīng)通過cookie在斑竹的瀏覽器中作了標記，現(xiàn)在我們就能夠通過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="未發(fā)表文章列表" 
  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＞現(xiàn)在沒有文章要處理＜ /h2＞" 
  response.end 
  %＞ 
  注：如果沒有新文章被網(wǎng)友發(fā)布，這給出相應的提示，并用response.end來結(jié)束此頁的顯示。 
  ＜ 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＞ 

最新評論