明輝手游網(wǎng)中心:是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺!

ASP技術(shù)在論壇中的使用(7)(吐血推薦!。。。

[摘要]這兒或許是我們這個論壇的核心之所在,但它實現(xiàn)起來也沒有什么特別的地方。還是那些老東西:表單處理,數(shù)據(jù)庫查詢,在用ASP把他們有機的結(jié)合起來。   當(dāng)進入了文章審閱模式(前面提到的板務(wù)處理)之后,最為首要的內(nèi)容,應(yīng)該是對斑竹的身份進行驗證了。下面來看看斑竹登陸頁面: ...
    這兒或許是我們這個論壇的核心之所在,但它實現(xiàn)起來也沒有什么特別的地方。還是那些老東西:表單處理,數(shù)據(jù)庫查詢,在用ASP把他們有機的結(jié)合起來。

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

  < %

  boardid=request("boardid")

  boardid是由進入這個頁面的鏈接所傳遞過來的,是要進行板務(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%>才能夠進入這個地方< /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>

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

  < /body>

  < /html>

  < %

  set rs=nothing

  conn.close

  set conn=nothing

  %>

   現(xiàn)在得到了斑竹ID和輸入的密碼,下面就是進行驗證的工作managerloginrest.asp了,它接受上面那個文件中表單的內(nèi)容,并進行相關(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