一个简单的投票程序

原创 2001年04月25日 17:58:00

 

我自己开发的一个简单的投票程序

tp.asp文件

<%response.buffer=true%>
<html>
<head>
<title>投票处理页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#CCFFCC">
<%
ip=request("REMOTE_ADDR")
 name=request("name")
 if trim(name)="" then
  response.write "您没有选择要投票的人"
 else
  dim c(20)
  dim d(20)
  dim d2(20)
  Set fs=CreateObject("Scripting.FileSystemObject")
  Set a=fs.openTextFile(server.mappath("tp.txt"))
  tpcount=cint(a.readline)
  for i=0 to tpcount-1
   c(i)=a.readline
   d(i)=a.readline
  next
  for i=0 to tpcount-1
   if name=c(i) then
    d(i)=d(i)+1
   end if
  next
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a=fs.createTextfile(server.mappath("tp.txt"))
     a.writeline(tpcount)
     for i=0 to tpcount-1
      a.writeline(c(i))
      a.writeline(d(i))
     next
 end if
%>
<br><br><center><a href="tp.asp#" onclick="window.history.back()">返回</a></center>
</body>
</html>

 

tp.txt文件

--------

5
成龙
11
周润发
4
林青霞
1
林志颖
3
李连杰
3

 

tp1.asp文件

---------

<%
dim c(20)
dim d(20)
dim d2(20)
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.openTextFile(server.mappath("tp.txt"))
tpcount=cint(a.readline)
for i=0 to tpcount-1
c(i)=a.readline
d(i)=a.readline
next
all=0
for i=0 to tpcount-1
all=all+d(i)
next
for i=0 to tpcount-1
t=t+d(i)
next
if t>0 then
for i=0 to tpcount-1
d2(i)=formatpercent((d(i)/all),2,-1)
next
disptp=100
else
for i=0 to tpcount-1
d2(i)=formatpercent((0),2,-1)
next
disptp=0
end if

response.write "document.write("&chr(34)&"<table width=220 border=1 height=55 bordercolor=#0000FF cellspacing=0>"&chr(34)&");"
response.write "document.write("&chr(34)&"<tr><td width=80 height=26>参赛人</td>    <td width=80 height=26>票数</td><td width=60 height=26>投票率</td></tr>"&chr(34)&");"
for i=0 to tpcount-1
response.write "document.write("&chr(34)&"<tr><td width=80 height=24>"&c(i)&"</td><td width=80 height=24>"&d(i)&"</td><td width=60 height=24>"&d2(i)&"&nbsp;</td></tr>"&chr(34)&");"
next
response.write "document.write("&chr(34)&"<tr><td width=80 height=26>&nbsp;</td>    <td width=80 height=26>"&all&"</td><td width=60 height=26>"&disptp&"%&nbsp;</td></tr></table>"&chr(34)&");"
response.write "document.write("&chr(34)&"<form method=post action=../cgi/tp/tp.asp>我认为<select name=name>"&chr(34)&");"
for i=0 to tpcount-1
response.write "document.write("&chr(34)&"<option value="&c(i)&">"&c(i)&"</option>"&chr(34)&");"
next
response.write "document.write("&chr(34)&"</select>的故事写得比较好。<br><input type=submit name=send value=投票></form>"&chr(34)&");"
%>

Java基础之简单投票程序

/*======================================= * 题目: * 1)用面向对象方法,编写学生类Student, * 将候选人如姓名、代号、票数保存到Stude...
  • a82793510
  • a82793510
  • 2015年07月11日 18:26
  • 2086

简易在线投票系统(php)——投票页面

登陆后才可以进入投票页面,否则将自动回到主页。投票页面分为多选和单选两种形式。在投票完成后根据投票活动发布时设置的是否允许查看结果来确定是否自动跳转到结果页面。若不允许,会自动弹出提示框,并返回主页。...
  • tianyao9hen
  • tianyao9hen
  • 2016年01月10日 22:31
  • 3113

简单的JavaWeb投票系统

目的帮她完成JavaWeb课程设计,也做为练手的小项目;功能1、可以实现在个人登陆,在线投票,票数统计的功能; 2、规定每个投票者每天只能投一票,并要求登录成功后才可以投票;分块1、Login类:实...
  • Run_the_youth
  • Run_the_youth
  • 2016年12月23日 19:46
  • 7261

一个简单的投票程序

最近有空在学习下Swing方面的知识,就做了点放上来    程序如下: import java.awt.*; import java.awt.Event.*; import java.awt...
  • miscocox
  • miscocox
  • 2014年04月28日 19:57
  • 387

一个简单的网上投票系统用JSP做的小程序

  • 2011年01月12日 21:21
  • 595KB
  • 下载

用jQuery简单实现的一个投票效果

  • 2010年06月01日 14:51
  • 20KB
  • 下载

c#开发的一个简单的模拟投票系统

  • 2013年07月30日 14:23
  • 41KB
  • 下载

jquery实现的一个简单的投票功能

  • 2014年01月09日 13:42
  • 2KB
  • 下载

poll:一个简单的投票系统

  • 2012年01月09日 11:15
  • 5.56MB
  • 下载

利用PHP的GD2图像函数 + mysql实现的一个简单的投票系统

最近看到PHP创建和修改图片的一些知识,感觉比较有趣,所以就跟着书本做了这么一个小demo,大神勿喷PS:关于PHP对图片的各种处理大家可以参照此博客PHP对图片的各种处理在这里我要实现的是利用PHP...
  • baidu_30000217
  • baidu_30000217
  • 2016年04月20日 19:53
  • 535
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个简单的投票程序
举报原因:
原因补充:

(最多只允许输入30个字)