一个投票程序

作者:佚名来源:一亩三分地点击: 日期:2007-03-30

1. vote.asp

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



<%
'*** 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

【文章评论】【收藏本文】【推荐好友】【打印本文】【论坛讨论】

·ASP中巧用Response属性	·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式	·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁"	·用ASP做全文检索

文章评论:(条)

请留名：匿名评论点击查看所有评论网管论坛

责任编辑:一分声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。

关于我们 - 管理团队 - 网站历史 - 联系我们 - 广告服务 - 法律声明 - 网站地图 - RSS订阅 - 返回顶部

Power by DedeCms

一个投票程序

作者:佚名 来源:一亩三分地 点击: 日期:2007-03-30

作者:佚名来源:一亩三分地点击: 日期:2007-03-30