))*線上票選*ASP程式~@*具有防止!!做票機制%%的票選程式*初階**

))*線上票選*ASP程式~@*

具有防止!!做票機制%%

的票選程式*初階**~

**程式名稱：

線上投票程式2.0   *

****本程式可自由  ))

使用於非商業用途,

如需用於商業用途請於事先獲得授權 ***
'*您可以對程式內容作必要的修改，但是必須  **

保留本段版權宣告資料     ***
*初階**

*er=Request.Cookies("er")
IF err="" then err=empty
'建立資料庫連結物件
 Set conobject = Server.CreateObject ("ADODB.Connection")
 DBPath = Server.MapPath("vote.mdb")
'連結資料庫
 conobject.Open "Driver=

{Microsoft Access Driver (*.mdb)};DBQ=

"&DBPath
'建立資料庫存取物件
 Set RS=Server.CreateObject

("ADODB.Recordset")
'打開資料表
  RS.Open "Select * from student",

conobject,0,1

'計算總投票數與設定得票率圖表寬度
  VotePeople=RS(0)+RS(1)+RS(2)+RS(3)
IF RS(0)>0 then linelong1=

 500*RS(0)/VotePeople
IF RS(1)>0 then linelong2=

 500*RS(1)/VotePeople
IF RS(2)>0 then linelong3=

 500*RS(2)/VotePeople
IF RS(3)>0 then linelong4=

 500*RS(3)/VotePeople

'投票檢查
IF Request.Cookies("checkvote")=

"yes" then
msg="你已經投過票了!只能觀看投票結果!"
VoteButton="no"
ElseIF er="yes" Then
Response.Cookies("er")="no"
msg="之前的投票無效,請選擇一位

候選人重新投票"
VoteButton="yes"
Else
Response.Cookies("checkvote")="yes"
msg="你的一票選模範生"
VoteButton="yes"
End IF
%>
<CENTER>
<P><img border="0" src="logo.gif"><br>
<font color="#0000FF"><%=

msg%></font></P>
<form method="POST" action=

"votesave2.asp">
  <table border="1">
    <tr>
      <td bgcolor="#FF3399"><font color=

"#FFFFFF">圈票處</font></td>
      <td bgcolor="#FF3399"><font color=

"#FFFFFF">候選人</font></td>
      <td bgcolor="#FF3399"><font color=

"#FFFFFF">得票數</font></td>
    </tr>
    <tr>
      <td align="center">
      <input type="radio" name="vote"

 value=<%=RS(0).name%>></td>
      <td><%=RS(0).name%></td>
      <td><img border="0" src="vote.

gif" Height="5" Width=<%=linelong1%>>
      　<%=RS(0)%>票</td>
    </tr>
    <tr>
      <td align="center">
      <input type="radio" name="vote"

 value=<%=RS(1).name%>></td>
      <td><%=RS(1).name%></td>
      <td><img border="0" src="vote.

gif" Height="5" Width=<%=linelong2%>>
      　<%=RS(1)%>票</td>
    </tr>
    <tr>
      <td align="center">
      <input type="radio" name="vote"

 value=<%=RS(2).name%>></td>
      <td><%=RS(2).name%></td>
      <td><img border="0" src="vote.gif"

 Height="5" Width=<%=linelong3%>>
      　<%=RS(2)%>票</td>
    </tr>
    <tr>
      <td align="center">
      <input type="radio" name="vote"

 value=<%=RS(3).name%>></td>
      <td><%=RS(3).name%></td>
      <td><img border="0" src="vote.

gif" Height="5" Width=<%=linelong4%>>
      　<%=RS(3)%>票</td>
    </tr>
  </table>
 <%IF VoteButton="yes" then %>
 <p><input type="submit" value="

投下神聖的一票"></p>
 <% End IF %>
</form>
</CENTER>                                                    *

*'*****************************************************************
vote=Request("vote")
IF vote=empty then
Response.Cookies("er")="yes"
Response.Cookies("checkvote")="no"
Response.Redirect "vote2.asp"
Else
'Response.Cookies("checkvote").Expires="2001/12/31"
Response.Cookies("checkvote")="yes"
'建立資料庫連結物件
 Set conobject = Server.CreateObject("ADODB.Connection")
 DBPath = Server.MapPath("vote.mdb")
'連結資料庫
 conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
'建立資料庫存取物件
 Set RS=Server.CreateObject("ADODB.Recordset")
'打開資料表
  RS.Open "Select * from student",conobject,1,3
'更新投票結果  
Select case vote
 case RS(0).name
   RS(0)=RS(0)+1
 case RS(1).name
    RS(1)=RS(1)+1
 case RS(2).name
    RS(2)=RS(2)+1
 case RS(3).name
    RS(3)=RS(3)+1
End Select  
RS.UPdate
End If
Response.Redirect "vote2.asp"
%>
*

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&