投票/用户选票(用数据库和IP)

ASP新手入门
选举用户是很多网站的很有用也很流行的特性,有时候你需要一个能精确跟踪结果的数据库。并且,为了帮助确保应对"ballot stuffing"这种情况,用户的IP地址会被收集来作为他们输入的选项。这个例子也用到了用户的输入和显示了图表式的结果和每个投票的百分比。

<% '两个被传递到数据库的变量 'u _input指如果用户输入了投票/选票问题的回答的值 'IP指用户的地址 u_input=request.form("u_input") u_ip=request.servervariables("remote_addr") '如果用户没有输入关于这次访问的选票 '那么就会显示选票问题和可能的选项 if u_input = "" then %> <form method="post" action="<%= request.servervariables("script_name") %>"> <p>Question Goes Here<br> <input type="radio" value="1" name="u_input">A<br> <input type="radio" value="2" name="u_input" >B<br> <input type="radio" value="3" name="u_input" checked>C<br> <input type="radio" value="4" name="u_input">D<br> <input type="submit" value="Submit" ></p> </form> <% else '如果用户输入了投票/表决 '检查看看他们的ip地址是否已经在数据库里面了 accessdb="vote_db" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) set rs = server.createobject("ADODB.Recordset") sql = "select ip from ballot where ip ='" & u_ip & "'" rs.Open sql, cn if rs.eof then '如果用户没有预先投票来标示它 been_here_before="No" end if rs.close if been_here_before = "No" then '既然用户没有预先投出他们的输入 '他们的选票会被添加到数据库 sql = "insert into ballot (ip, selection" & u_input &") " sql = sql & "values ('" & u_ip & "',1)" rs.Open sql, cn end if '这会总结和计算出数据库的记录 sql= "select distinctrow sum(selection1) as sum_selection1, " sql= sql & "sum(selection2) AS sum_selection2, sum(selection3) AS sum_selection3, " sql= sql & "sum(selection4) AS sum_selection4, count(*) AS total_votes " sql= sql & "FROM ballot;" rs.Open sql, cn total1=rs ("sum_selection1") total2=rs ("sum_selection2") total3=rs ("sum_selection3") total4=rs ("sum_selection4") count=rs ("total_votes") %> <br> A<img src="images/red.jpg" height="10" width="<%= (total1/count)*100 %>"> <%= formatnumber((total1/count)*100,1) %>%<br> B<img src="images/yellow.jpg" height="10" width="<%= (total2/count)*100 %>"> <%= formatnumber((total2/count)*100,1) %>%<br> C<img src="images/green.jpg" height="10" width="<%= (total3/count)*100 %>"> <%= formatnumber((total3/count)*100,1) %>%<br> D<img src="images/blue.jpg" height="10" width="<%= (total4/count)*100 %>"> <%= formatnumber((total4/count)*100,1) %>%<br> Total Votes: <%= formatnumber(count,0,0) %><br> <% if been_here_before <> "No" then %> This user has voted before and this one was <u>not</u> counted..... <% else %> This user has <u>not</u> voted before and this one was counted..... <% end if %> <br> The I.P. Address is <%= u_ip %> <% end if %>

相关内容推荐

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

返回
顶部