ASP制作简单的投票系统一个简单的投票系统制作方法

Posted on2010年6月4日 by admin

这是一个简单的投票系统制作方法：请多指教

说明：在同一级目录下放有:data的数据文件夹，一个名为BAR.GIF的图片，再就是后面这些文件了哦

表名为：toupiao 字段有：id自动编号的哦，ca1,ca2,ca3,前四个的数据类型均是数据型 ;tprq-数据类型：日期/时间

1、还是建立数据库连结页面

conn.asp

<%
set conn=server.CreateObject(“adodb.connection”)
conn.open=”provider=microsoft.jet.oledb.4.0;data Source=”&server.MapPath(“data/diaoca.mdb”)

2、投票页

index1.asp

  <tr>
    <td height=”40″ colspan=”2″ align=”center” bgcolor=”#FF6600″><span class=”STYLE1″>请说一下对下面的两位明星你更喜欢哪一位呢?</span></td>
  </tr>
  <tr>
    <td width=”116″ height=”30″ align=”center” bgcolor=”#666666″><span class=”STYLE4″>刘德华</span></td>
    <td width=”584″ bgcolor=”#666666″><label>
      <input name=”diao” type=”radio” value=”ca1″ />
    </label></td>
  </tr>
  <tr>
    <td height=”30″ align=”center” bgcolor=”#666666″><span class=”STYLE4″>张学友</span></td>
    <td bgcolor=”#666666″><input name=”diao” type=”radio” value=”ca2″ /></td>
  </tr>
  <tr>
    <td height=”30″ align=”center” bgcolor=”#666666″><span class=”STYLE4″>都喜欢</span></td>
    <td bgcolor=”#666666″><input name=”diao” type=”radio” value=”ca3″ /></td>
  </tr>
  <tr>
    <td height=”30″ colspan=”2″ align=”center” bgcolor=”#666666″><input name=”subone” type=”submit” value=”提交”>
     </td>
  </tr>

  <tr>
    <td height=”30″ align=”center” bgcolor=”#FF9900″> </td>
    <td align=”right” valign=”middle” bgcolor=”#FF9900″><span class=”STYLE5″><a href=”/blog/jieguo.asp” target=”_blank”>显示调查结果</a></span></td>
  </tr>
</table>
  </form>

</body>
</html>
<script>
function xf() {
if(document.form1.diao[0].checked==false &&document.form1.diao[1].checked==false&&document.form1.diao[2].checked==false)
{
alert(“错误：没有选择！”)
return false
}
}
//–>
</script>

3、对投票条件的检查和判断

<!–＃i nclude file=”conn.asp”–>
<%
if request.ServerVariables(“REMOTE_ADDR”)=session(“ip”) then
response.Write(“<script>alert(‘同一个IP用户只能投一次的票哈’);location.href=”/blog/index1.asp”</script>”)
response.end
end if
jr=request.form(“diao”)
set rsm=server.createobject(“adodb.recordset”)
sql=”update toupiao set “& jr &”=”& jr &”+1 where id=1”
rsm.open sql,conn,1,3
set rsm=nothing
set conn=nothing
response.write”<script language=JavaScript>alert(‘您已经投了票，谢谢您的支持！’);location.href=”/blog/jieguo.asp”;</script>”

session(“ip”)=request.ServerVariables(“REMOTE_ADDR”)
%>

4、查看投票结果页面

<!–＃i nclude file=”conn.asp”–>
<%
set rs2=server.CreateObject(“adodb.recordset”)
sql2=”select * from toupiao”
rs2.open sql2,conn,1,3
if not rs2.eof then
zrs=rs2(“ca1”)+rs2(“ca2”)+rs2(“ca3”)’总人数
ca1=(rs2(“ca1”)/zrs)*100’刘德华
ca2=(rs2(“ca2”)/zrs)*100’张学友
ca3=(rs2(“ca3”)/zrs)*100’都喜欢
%>
<P>你最喜欢的名星？<p>
<table width=”60%”><tr><td>
<p>刘德华：<img src=”/blog/bar.gif” width=<%=ca1*3%> height=10> <%=rs2(“ca1”)%>人占：<%=Round(ca1,2)%>%</p>
<p>张学友：<img src=”/blog/bar.gif” width=<%=ca2*3%> height=10><%=rs2(“ca2”)%>人占：<%=Round(ca2,2)%>%</p>
<p>都喜欢：<img src=”/blog/bar.gif” width=<%=ca3*3%> height=10><%=rs2(“ca3”)%>人占：<%=Round(ca3,2)%>%</p>
</td></tr></table></div>
<p align=center>共有：<%=zrs%>人参加调查
<%
else
response.write “<script language=JavaScript>” & chr(13) & “alert(‘还没有人参与调查!’);” & “history.back()” & “</script>”
end if
rs2.close
set rs2=nothing
%>

发表回复