首先,先预计一个投票系统需要的项目,有几个页面。一、建立一个数据库存放投票结果的数据;二、第一个页面:voteasp这是一个投票页面,给网页游览者投票的页面;三、处理页面:addvoteasp这是处理投票数据的页面,是不可见的。四、显示结果页面:viewasp显示投票的结果。
一个投票系统制作大概有以下流程:
1 先建立一个数据库名字为:datamdb,datamdb数据库里有表:vote。vote有fgood(很好),fmid(中等),fbad(很差)这三个列,这个数据表vote: 表中列: 有:fgood,fmid,fbad
2 建立一个投票页面:voteasp
在这个页面里面实现表单数据的传输,设计如下:
这是部分的效果,表单名:form1 代码如下:
<form name="form1" method="post" action="addvoteasp"> 把传输方式设为:post。把动作设为:addvoteasp(这是处理投票结果的页面,由这个动作转到这个处理页面进行数据处理)。
3 建立一个数据库的链接页:connasp
通过这里把程序与数据库链接起来。
源代码:<%
set conn=servercreateobject("adodbconnection")
connstr="Provider=Microsoftjetoledb40;data source="&servermappath("datamdb")
connopen connstr
%>
4 建立投票处理页面:addvoteasp。
里面包含数据库链接文件:connasp,代码:<!--#i nclude file=" connasp" -->。这个页面里主要对voteasp页面传输过来的表单数据进行处理,把相应的表单数据更新到数据里。传输的数据有三种:fgood、fmid、fbad。处理代码:
<%
if (requestForm("rbresult"))="" then
responseWrite(" language=javascript>alert(‘还没投呢!');historyback()</script>") ‘//这里检验传输表单是否为空
else responseWrite(" language=javascript>alert('谢谢投票!');go(1)</script>")
%>
<%
if(requestform("rbresult")<>"")then Command1__strupdate = requestform("rbresult")
set rs = ServerCreateObject("ADODBrecordset")
sql= "UPDATE vote SET "&Command1__strupdate&"="&Command1__strupdate&"+1"
set rs=connexecute(sql)
end if
%>
5 接下来就是处理如何显示投票结果的页面:viewasp。页面效果如下:
这个页面的处理代码:
<%Set rsvote = ServerCreateObject("ADODBRecordset")
Sql = "SELECT fGood, fMid, fBad, (fGood+fMid+fBad) as VTotal, (fGood/VTotal) as GoodPercent, (fMid/VTotal) as MidPercent, (fBad/VTotal) as BadPercent FROM Vote"
Rsvote=connexecute(sql)
%> ’//这段代码对数据进行处理
接下来就是显示的问题了。经常看到网站上的投票结果有一个比例长短,这个如何实现呢,其实这个就是利用了网页表格的宽度可以用百分比来表示来做的。步骤如下:
(1)先建立一个四行两列的表格
(2)在表格里面写入数据库的数据以显示结果:
这里的数据是处理完后的数据,处理过程已经在上面的代码中实现了,下面就是把数据与表格绑定,而柱状的比例条,则是把得到的百分比来绑定内嵌的表格的宽度,因为这个显示的表格宽度数据是一个动态的数据,也就是说可以随着数据的改变而改变柱状的比例了。绑定如下:
总票数: <%rsvote(“total”)%>
很好: 表格内嵌,设宽为:<%rsvote(“GoodPercent”)%>
共有:<%rsvote(“fGood”)%>人
中等: 表格内嵌,设宽为:<%rsvote(“MidPercent”)%>
共有:<%rsvote(“fMid”)%>人
很差: 表格内嵌,设宽为:<%rsvote(“BadPercent”)%>
共有:<%rsvote(“fBad”)%>人
6. 测试成功了,结果是正确的。显示效果如(5)中图所示。
总结:总的说来,建立一个网站的投票系统是非常有用的,通过本次的制作,从中我学到了很多知识,如:对数据库的连接,对数据库的 *** 作等语法都有相当多的了解,而且这个投票系统是我个人为班级做的网站>
投票规则是通过投票进行决策的一种公共选择程序规则,分为一致同意规则、多数票规则。投票规则有两类:一致同意规则和多数票规则。那么投票规则有哪几种类型呢?
1、 单选类型。也有称为点选型。这种方式意味着点击一下投票按钮,就可以直接为自己所在的选项投票,即点即走,方便快捷。
2、 多选类型。这种类型,顾名思义,就是通过选择,然后一次对多个选项进行投票,可以设定最多的最少选择多少。在自己单击一个选项时,该选项将进入候选状态,等待选择的选项满足设置的数目(最少数目为最多数目)时提交。这样自己选择的选项投票都会增加。
3、 必选类型。该模式实际上是多重选择类型的扩展,也就是说,要提交,必须选择多少选项。
以上就是关于投票规则有哪几种类型的全部介绍了。
<formaction="casp"method="post">
<fontcolor=88ddffsize=2>你对本站的印象如何:</font>
<p><fontcolor=ff0000size=2>很好:<inputtype=radioname="ying"value="good">
一般:<inputtype=radioname="ying"value="yiban">
<p>差:<inputtype=radioname="ying"value="bad">
很差:<inputtype=radioname="ying"value="vbad"></font>
<p><center><inputtype=submitvalue="查看结果">
<P><inputtype=resetvalue="重新选择">
</center></form>
<%
ming=requestform("ying")
%>
<%
ifming=""then
%>
<%
elseifming="good"then
countfile=Servermappath("goodtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile,1,false,false)
ren1=textinstancereadall
ren1=ren1+1
settextinstance=fileinstancecreatetextfile(countfile,true,false)
textinstancewriteline(ren1)
%>
很好:<%=ren1%>;
<%
countfile1=Servermappath("yibantxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile1,1,false,false)
ren2=textinstancereadall
%>
一般:<%=ren2%>;
<%
countfile1=Servermappath("badtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile1,1,false,false)
ren3=textinstancereadall
%>
<P>差:<%=ren3%>;
<%
countfile=Servermappath("vbadtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile,1,false,false)
ren4=textinstancereadall
%>
很差:<%=ren4%>;
<%
elseifming="yiban"then
countfile=Servermappath("goodtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile,1,false,false)
ren1=textinstancereadall
%>
很好:<%=ren1%>;
<%
countfile1=Servermappath("yibantxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile1,1,false,false)
ren2=textinstancereadall
ren2=ren2+1
settextinstance=fileinstancecreatetextfile(countfile1,true,false)
textinstancewriteline(ren2)
%>
一般:<%=ren2%>;
<%
countfile1=Servermappath("badtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile1,1,false,false)
ren3=textinstancereadall
%>
<P>差:<%=ren3%>;
<%
countfile=Servermappath("vbadtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile,1,false,false)
ren4=textinstancereadall
%>
很差:<%=ren4%>;
<%
elseifming="bad"then
countfile=Servermappath("goodtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile,1,false,false)
ren1=textinstancereadall
%>
很好:<%=ren1%>;
<%
countfile1=Servermappath("yibantxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile1,1,false,false)
ren2=textinstancereadall
%>
一般:<%=ren2%>;
<%
countfile1=Servermappath("badtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile1,1,false,false)
ren3=textinstancereadall
ren3=ren3+1
settextinstance=fileinstancecreatetextfile(countfile1,true,false)
textinstancewriteline(ren3)
%>
<P>差:<%=ren3%>;
<%
countfile=Servermappath("vbadtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile,1,false,false)
ren4=textinstancereadall
%>
很差:<%=ren4%>;
<%
elseifming="vbad"then
countfile=Servermappath("goodtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile,1,false,false)
ren1=textinstancereadall
%>
很好:<%=ren1%>;
<%
countfile1=Servermappath("yibantxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile1,1,false,false)
ren2=textinstancereadall
%>
一般:<%=ren2%>;
<%
countfile1=Servermappath("badtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile1,1,false,false)
ren3=textinstancereadall
%>
<P>差:<%=ren3%>;
<%
countfile=Servermappath("vbadtxt")
setfileinstance=ServerCreateObject("SCRIPTINGfilesystemobject")
settextinstance=fileinstanceopentextfile(countfile,1,false,false)
ren4=textinstancereadall
ren4=ren4+1
settextinstance=fileinstancecreatetextfile(countfile1,true,false)
textinstancewriteline(ren4)
%>
很差:<%=ren4%>;
<%
endif
%>
在开发微信公众平台的投票系统时,您可以通过以下几种方法进行投票结果的统计:
1 数据库存储统计:在您的投票系统中,您可以将每个投票的选项保存到数据库中,并将每个选项所得到的票数累加到相应的选项数据中。当用户投票时,系统会将其投票结果保存在数据库中,并实时更新每个选项的得票数累加值。您可以通过直接查询数据库来获取每个选项的票数和占比。
2 利用微信后台接口获取数据:微信公众平台提供了接口,可以帮助开发者获取到粉丝投票的信息,开发者可通过微信公众平台提供的统计接口,获取投票结果数据,并将其导出到表格或者报表之中。
3 利用第三方数据统计工具进行统计:借助第三方互动酷的数据统计工具,您可以精确地统计并分析投票数据。该方法需要您将投票结果数据导出,并上传到第三方统计平台进行分析。
综上所述,以上是针对微信公众平台开发投票系统中,如何进行投票结果统计的三种方法,您可以根据自己的实际情况选择合适的方式进行投票结果统计。
1 在左边ListBox1中插入你的小品项,如果是动态的话需要有数据库支持
2 设置左边Listbox1 的属性让它支持多选
3 重复步骤1,2 设置右边listbox2
4 双击 添加 button, 在事件代码中 把listbox1 中的选中项同步到listbox2中。
5 双击 全部添加 button ,在事件代码中 把listbox1 中的全部项同步到listbox2中。
6 双击 删除 button ,在事件代码中 把listbox2 中的选择的项删除掉
7 双击 删除全部 button ,在事件代码中 把listbox2 所有项删除掉
这个比较简单吧
以上就是关于急急急:怎么制作一个网页的投票系统啊(分数少,不好意思了)全部的内容,包括:急急急:怎么制作一个网页的投票系统啊(分数少,不好意思了)、python如何编一个投票系统、在微信服务号的开发者中心怎样做一个报名或者投票的系统,能自动统计数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)