首頁

2013年6月16日 星期日

))*線上票選*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"

%>
*

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


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

沒有留言:

張貼留言


if you like make fds, wellcome you here~~anytime***

my free place for everyones who want the good software,

come & download them~ wellcome!!