一个投票程序

原创 2000年08月18日 15:11:00
1. vote.asp

<%@ LANGUAGE="VBSCRIPT"%>
<%OPTION EXPLICIT%>
<%Response.Buffer = True%>

<!-- #INCLUDE FILE="adovbs.inc" -->

<%
'*** Remember to create those variables before trying to use them.

    Dim objConn    
    Dim objRec3
    Dim strConnect
    Dim    varTopic, varTopicID, varSelectionNum, varSelected
    Dim i, varTotal, varThis, varThisTitle, varAlreadyVote

    strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("vote.mdb") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=25;FILE=MS Access;MaxBufferSize=512;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;;User Id=admin;"
    
    Set objConn = Server.CreateObject ("ADODB.Connection")     '*** Create an ADO database connection object.
    Set objRec3 = Server.CreateObject ("ADODB.Recordset")     '** Create an ADO RecordSet object.
    
    objConn.Open strConnect    '*** Open the connection to the database
    objRec3.Open "vote", objConn, adOpenForwardOnly, adLockPessimistic, adUseServer '*** Open the recordset

    varTopic = Request.Form("topic")
    varTopicID = Request.Form("topicID")
    if varTopicID="" then
        varTopicID = Request.QueryString("topicID")
    end if
    varSelectionNum = Request.Form("selectionNum")
    varSelected = Request.Form("selected")

    objRec3.Filter = 0
    objRec3.Filter = "topicID=" & varTopicID    'only number can be filter?
    
    If NOT objRec3.EOF then
        if Request.Form("selected") = "" then
        else
            varAlreadyVote="alreadyVote" & "_" & varTopicID
            if Session(varAlreadyVote)<>"true" then
                objRec3("selection" & varSelected & "_count") = objRec3("selection" & varSelected & "_count") +1
                objRec3.Update
                Session(varAlreadyVote)="true"
            end if
        end if
        varTotal=0
        for i=0 to objRec3("selectionNum")-1
            varTotal=varTotal+ objRec3("selection" & i & "_count")
        next
%>

<p align=left>    <% =varTopic %> </p>
<p align=center>
<table width=480 border=0 cellspacing=0 cellpadding=0 bgcolor=#000000>
<caption align=left><font size=2>共有 <font color=red><% =varTotal %></font>人参加</font></caption>
<tr><td>
<table width=480 border=0 cellspacing=1 cellpadding=3>
    <tr bgcolor=#dcdcdc align=center valign=center>
        <th width=120><font size=2>选项</font></td>
        <th width=300><font size=2>比  例</font></td>
        <th width=60><font size=2>人数</font></td>
    </tr>

<%
        for i=0 to objRec3("selectionNum")-1
            varThisTitle=objRec3("selection" & i & "_title")
            varThis=objRec3("selection" & i & "_count")
%>
<tr bgcolor=#ffffff valign=center>
<td width=120 align=center><font size=2 color=#ff0000><% =varThisTitle %></font></td>
<td width=300 align=left><img src="color.gif" width=<% =varThis*100/varTotal %> height=12 border=0><font size=2 color=#ff0000>
    <% = left(varThis*100/varTotal, 5) %>%
    </font>
</td>
<td width=60 align=center><font size=2 color=#ff0000><% =varThis %></font></td>
</tr>
<%
        next
%>

</table>
</td></tr>
</table></p>

<%
    else    'no this topic yet
        objRec3.AddNew

        objRec3("topicID") = varTopicID
        objRec3("topic") = varTopic
        objRec3("selectionNum") = varSelectionNum

        for i=0 to varSelectionNum
            objRec3("selection" & i & "_title") = Request.Form("selection" & i & "_title")
        next

        objRec3.Update
        response.write "added"
    End If

    objRec3.Close
    objConn.Close

    Set objRec3 = Nothing
    Set objConn = Nothing    
%>

2. vote.htm

<HTML>

<HEAD>

<script language="JavaScript">
function newswindow(url)
{ContentWindow=window.open(url,"_blank","toolbar=no,width=640,height=400;,directories=no,status=yes,scrollbars=yes,resize=yes,menubar=yes")
}
</script>

</HEAD>

<BODY>

您认为"你说我说"栏目
    <form method="post" action="vote.asp" onSubmit="windowOpener('')" target="new">
    <tr>
    <td width=80>
        <input type="radio" name="selected" value="0" style="background-color:rgb(255,205,96)">比较混乱<br>
        <input type="radio" name="selected" value="1" style="background-color:rgb(255,205,96)">马马虎虎<br>
        <input type="radio" name="selected" value="2" style="background-color:rgb(255,205,96)">秩序井然
    </td>
    <td width=55>
        <input type=hidden name=topicID value=1>
        <input type=hidden name=topic value=您认为'你说我说'栏目>
        <input type=hidden name=selectionNum value=3>
        <input type=hidden name=selection0_title value=比较混乱>
        <input type=hidden name=selection1_title value=马马虎虎>
        <input type=hidden name=selection2_title value=秩序井然>
        <input type="button" value="查看" style="background-color:rgb(255,205,96)" onClick=newswindow("vote.asp?topicID=1") target=new>
        <input type=submit value="提交" style="background-color:rgb(255,205,96)">
    </td>
    </tr>
    </form>

</BODY>

</HTML>

3. vote.mdb
a Access database file, there is a table named "vote"
fields:
topicID topic selectionNum selection0_title selection0_count ...

Java基础之简单投票程序

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

记一次简单的自动投票操作

朋友在社区居委会上班,偶尔会有一些投票活动,每个人都有任务,得投到多少票才行,有点烦人又浪费时间,所以就想写一个自动投票的,这次是这个网址,规则: 选择其中一个视频,点击下方的 "投票",输入手机号码...
  • zxz_tsgx
  • zxz_tsgx
  • 2015年08月08日 23:13
  • 2370

如何做网络投票的刷票外挂(一)

其实刷票软件本身是比较容易实现的,相对于广大初级程序员来说,在知道原来并且给出解决关键问题的方案后,写个刷票的外挂程序还是比较容易实现的。真正的难点在于绕过投票网站的种种限制,比如:每个IP每天只能投...
  • ialong
  • ialong
  • 2013年09月05日 22:21
  • 2895

一个简单的投票程序

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

利用map的特性做一个简易的投票程序

pair 1. 概念:pair是 一种模版类型,每个pair 可以存储两个值,这两种值的类型无限制。也可以将自己写的struct类型的的对象放进去。 2. 用法: pairp (1,2); pair ...
  • meetings
  • meetings
  • 2015年07月19日 11:36
  • 566

一个投票的小程序用c++

  • 2010年04月07日 23:41
  • 53KB
  • 下载

自己开发的一个小的投票程序(C# 2.0)

  • 2008年08月26日 09:44
  • 79KB
  • 下载

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

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

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

最近看到PHP创建和修改图片的一些知识,感觉比较有趣,所以就跟着书本做了这么一个小demo,大神勿喷PS:关于PHP对图片的各种处理大家可以参照此博客PHP对图片的各种处理在这里我要实现的是利用PHP...
  • baidu_30000217
  • baidu_30000217
  • 2016年04月20日 19:53
  • 537

一个jq投票,无论成功与否3秒后自动关闭提示框

验证码:     看不清楚  *验证码不可为空 ...
  • zjb574
  • zjb574
  • 2012年07月18日 15:34
  • 3797
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个投票程序
举报原因:
原因补充:

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