Board logo

標題: [教學] (實戰專題) 線上票選 下篇 [打印本頁]
作者: 小誌    時間: 2010-5-23 23:00     標題: (實戰專題) 線上票選 下篇

防止重複投票的過濾機制
　我們之前說過：在投票的程式網頁中按下『投下神聖的一票』按鈕後，投票的表單就會將投票資料送交votesave.asp程式進行處理，當自動轉向連結回到投票程式網頁畫面時，『你的一票選模範生』的字句變成『你已經投過票了!只能觀看投票結果!』，同時『投下神聖的一票』的按鈕也不再出現！這就是防止重複投票的過濾機制，在本例中我們利用session物件來建立過濾機制。

　Session物件是ASP檔案共用的物件，每一位連線者都個別擁有屬於自己的Session物件，將資料寫入Session物件的方法如下：
  1. Session("變數名稱")＝變數值
複製代碼
　當我們將資料寫入到Session物件中，只是將資料寫入到目前連線者的Session物件中，與其他的連線者並無關係，因此我們就可依照連線者目前Session物件的資料值來判斷連線者是否具有進行投票的權利。

[attach]814[/attach]



Vote.asp
  1. <%
  2. '建立資料庫連結物件
  3.         Set conobject = Server.CreateObject("ADODB.Connection")
  4.         DBPath = Server.MapPath("vote.mdb")
  5. '連結資料庫       
  6.         conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
  7. '建立資料庫存取物件       
  8.         Set RS=Server.CreateObject("ADODB.Recordset")
  9. '打開資料表       
  10.         RS.Open "Select * from student",conobject,0,1
  11.        
  12. '計算總投票數與設定得票率圖表寬度        
  13.         VotePeople=RS("康小明")+RS("楊小誌")+RS("王小菲")+RS("梁詠琦")
  14. IF RS("康小明")>0 then linelong1= 500*RS("康小明")/VotePeople
  15. IF RS("楊小誌")>0 then linelong2= 500*RS("楊小誌")/VotePeople
  16. IF RS("王小菲")>0 then linelong3= 500*RS("王小菲")/VotePeople
  17. IF RS("梁詠琦")>0 then linelong4= 500*RS("梁詠琦")/VotePeople

  19. '投票檢查
  20. IF session("checkvote")="yes" then
  21. msg="你已經投過票了!只能觀看投票結果!"
  22. VoteButton="no"
  23. Else
  24. session("checkvote")="yes"
  25. msg="你的一票選模範生"
  26. VoteButton="yes"
  27. End IF
  28. %>
  29. <CENTER>
  30. <P><img border="0" src="logo.gif"><br>
  31. <font color="#0000FF"><%=msg%></font></P>
  32. <form method="POST" action="votesave.asp">
  33.   <table border="1">
  34.     <tr>
  35.       <td bgcolor="#FF3399"><font color="#FFFFFF">圈票處</font></td>
  36.       <td bgcolor="#FF3399"><font color="#FFFFFF">候選人</font></td>
  37.       <td bgcolor="#FF3399"><font color="#FFFFFF">得票數</font></td>
  38.     </tr>
  39.     <tr>
  40.       <td align="center">
  41.       <input type="radio" name="vote" value="康小明"></td>
  42.       <td>康小明</td>
  43. <td><img border="0" src="vote.gif" Height="5" Width=<%=linelong1%>>
  44.       　<%=RS("康小明")%>票</td>
  45.     </tr>
  46.     <tr>
  47.       <td align="center">
  48.       <input type="radio" name="vote" value="楊小誌"></td>
  49.       <td>楊小誌</td>
  50. <td><img border="0" src="vote.gif" Height="5" Width=<%=linelong2%>>
  51.       　<%=RS("楊小誌")%>票</td>
  52.     </tr>
  53.     <tr>
  54.       <td align="center">
  55.       <input type="radio" name="vote" value="王小菲"></td>
  56.       <td>王小菲</td>
  57. <td><img border="0" src="vote.gif" Height="5" Width=<%=linelong3%>>
  58.       　<%=RS("王小菲")%>票</td>
  59.     </tr>
  60.     <tr>
  61.       <td align="center">
  62.       <input type="radio" name="vote" value="梁詠琦"></td>
  63.       <td>梁詠琦</td>
  64. <td><img border="0" src="vote.gif" Height="5" Width=<%=linelong4%>>
  65.       　<%=RS("梁詠琦")%>票</td>
  66.     </tr>
  67.   </table>
  68. <%IF VoteButton="yes" then %>
  69. <p><input type="submit" value="投下神聖的一票"></p>
  70. <%End IF%>
  71. </form>
  72. </CENTER>
複製代碼
作者: 小誌    時間: 2010-5-23 23:05

投票結果儲存程式
同樣的，我們先來看一下如何建立票選資料庫的連結與資料表的開啟，如下圖：

[attach]816[/attach]

發現跟我們投票程式網頁中，建立票選資料庫的連結與資料表開啟的程式敘述有何不同之處了嗎？沒錯，就是資料錄物件Open方法的第三與第四個參數設定不一樣！

　在第三個指定資料物Recordset開啟類型的參數，我們變更指定類型值為１(可讀寫模式且資料錄可自由移動)；第四個指定鎖定類型的參數，我們變更指定類型值為３，樂觀鎖定，因為筆者個人認為不可能有兩位連線者同時執行程式而進行同一筆資料錄更新作業，因此只在Update方法被呼叫時才將資料錄鎖定，資料錄一寫入資料庫後立即解除鎖定

如果我們將第四個指定鎖定類型的參數，依然指定類型值為１，則程式將會出現下圖的錯誤：

[attach]817[/attach]

為什麼會出現錯誤呢？因為若指定鎖定類型的參數類型值為１，則我們將無法使用Recordset物件的AddNew、Delete與Update方法，但是我們要更新投票票數就得用到Recordset物件的Update方法啊，所以參數類型值為１不能用，那我們可不可以指定參數類型值為２？當然可以，只是筆者個人偏好喜歡指定參數類型值為３(因為筆者天性樂觀？)，那可不可以指定參數類型值為４？我們更新的資料只有一欄還不至於要進行批次鎖定啦！

投票結果儲存程式『votesave.asp』，在本程式中完全沒有網頁資料的顯示，本程式只負責將投票程式網頁中，所傳送過來的投票資料更新到資料庫中，然後將連結轉向回投票程式網頁。

更新投票結果

[attach]818[/attach]



請注意：
當我們利用RS("欄位名稱")="更新後資料"的敘述將資料寫入資料錄欄位，這樣的敘述只是將資料寫到buffer(緩衝區)中，並沒有將更新的資料真正的寫入到資料庫中，只有當我們呼叫Recordset物件的Update方法時，更新後的資料才會真正的寫入資料庫。


最後，不要忘了加上 Response.Redirect "vote.asp" 這行程式敘述，轉向連結回投票程式網頁vote.asp去顯示最新的投票結果。
Votesave.asp
  1. <%
  2. '建立資料庫連結物件
  3.         Set conobject = Server.CreateObject("ADODB.Connection")
  4.         DBPath = Server.MapPath("vote.mdb")
  5. '連結資料庫       
  6.         conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
  7. '建立資料庫存取物件       
  8.         Set RS=Server.CreateObject("ADODB.Recordset")
  9. '打開資料表       
  10.         RS.Open "Select * from student",conobject,1,3
  11. '更新投票結果        
  12. vote=Request("vote")
  13. Select case vote
  14.         case "康小明"
  15.                  RS("康小明")=RS("康小明")+1
  16.         case "楊小誌"
  17.                  RS("楊小誌")=RS("楊小誌")+1
  18.         case "王小菲"
  19.                  RS("王小菲")=RS("王小菲")+1
  20.         case "梁詠琦"
  21.                  RS("梁詠琦")=RS("梁詠琦")+1
  22. End Select          
  23. RS.UPdate
  24. Response.Redirect "vote.asp"

  26. %>
複製代碼
作者: 小誌    時間: 2010-5-23 23:09

程式利用說明

當您直接使用本範例程式進行應用時，請自行修改資料庫中的欄位名稱，欄位要增加或減少，由您自行決定(相對的，各程式中的程式敘述也要增加)，更改欄位名稱後，請記得修改程式網頁vote.asp及更新票選結果程式votesave.asp中的欄位名稱設定，例如：您將欄位名稱"康小明"更改為"劉得華"，則程式網頁vote.asp及更新票選結果程式votesave.asp中的RS("康小明")同樣必須更改為RS("劉得華")；票數長條圖圖形若您不喜歡，也可使用相關編輯軟體自行設計。

(實戰專題) 線上票選_完整程式碼壓縮檔下載:[attach]819[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)