這兒或許是我們這個論壇的核心之所在,但它實現起來也沒有什麼特別的地方。還是那些老東西:表單處理,資料庫查詢,在用ASP把他們有機的結合起來。
當進入了文章審閱模式(前面提到的板務處理)之後,最為首要的內容,應該是對斑竹的身份進行驗證了。下面來看看斑竹登陸頁面:
< %
boardid=request("boardid")
boardid是由進入這個頁面的連結所傳遞過來的,是要進行板務處理的看板的ID。通過它才能知道處理的是那個板的板務。
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>
這個頁面僅僅是用來登陸用的,它得到斑竹輸入的密碼後,並不能進行驗證,而是將驗證的工作放到下一個頁面中進行。實際上,密碼輸入和驗證的工作是可以放在一個頁面中完成的,只不過代碼的結構安排上有點麻煩。
< /body>
< /html>
< %
set rs=nothing
conn.close
set conn=nothing
%>
現在得到了斑竹ID和輸入的密碼,下面就是進行驗證的工作managerloginrest.asp了,它接受上面那個檔案中表單的內容,並進行相關處理:
< %
response.buffer=true
把緩衝區設定為允許使用。這一條一般來說,是應該加在每個ASP頁面的首部的,這樣能夠提高ASP頁面的效能。在開啟了緩衝區後,ASP中還有一些相應的特殊用法,在後面會提及。
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