快速业务通道

Flash与ASP联手制作投票系统

作者 佚名技术 来源 服务器技术 浏览 发布时间 2012-07-09

一般在网站中都有投票系统,以方便于调查了解对站点访问者各方面的立场问题,在这些投票系统中,可以让站点访问者直接选择答案,系统程序就会自动对所有答案进行统计和显示出来.

  但是我们一般见到的都是用各种编程软件制作的,那么怎么样制作一个Flash版的制作程序呢?下面这例就是我们将要做的,在这个系统中后台使用 XML+ ASP+ MySQL,因为大多web工作者对asp比较熟悉,xml可以将复杂的问题简化,采用mysql的原因是Access 我没有安装,程序不需要任何存储过程,所以无需动sql server ,Oracle 等大型数据库.

  问题分析:本投票程序是选择题, 故我们用一个字段存储用户的答案即可.

  建立数据库和表:表名称和数据库名称任意,字段定义如下:  

  voteid 无符号整数 自动编号

  result 短整数 存储用户选择 本程序范围在0-2

  userip char (25) 用户ip地址实际长度21

  message char(255) 附加消息 //这个程序未用

  使用mysql-front创建,如下图所示:  

  
请添加描述


  设计flash用户界面: 从window/components/flash ui components 中拖三个 RadioButton到舞台中,设置标签,其他为默认值。(从属性面板和组件参数面板均可以设置)  

  
请添加描述
  

  
  这里将使用一个图表组件(HTML UI Components中的Subtype),你可以到官方网站扩充自己的组件下载地址: www.Macromedia.com/exchange/flash      参数设置如下:

  
请添加描述


  
请添加描述
[1]?[2]?下一页??
 flash端的程序非常简单只有三行:

  //在时间轴的第一帧,加入下面的代码

  //标签名称为"开始投票吧!"的按钮,事件句柄为sendvote,在点击后执行下面的自定义函数

  function sendvote () {

  _root.mytb.readData("http://localhost/votexml.asp?selectresult="+radioGroup.getInstance());

  }

  服务器端程序的编写,上面你可能看到有一个votexml.asp的文件,下面我们就来建立它.

  代码如下:  

  <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

  <%

  set conn=server.CreateObject("adodb.connection")

  conn.open "dsn=mysql"

  set rec=server.CreateObject("adodb.recordset")

  %>

  <% if request("selectresult")<>"" then

  userip= Request.ServerVariables("REMOTE_ADDR")

  selectresult=request.QueryString("selectresult")

  rec.open "select count(*) as count from votetable where votedate>''"&now()-0.125 & "'' and userip=''"&userip&"''",conn

  if rec("count")>0 then

  bzh="重复投票无效"

  rec.close

  ''response.Write("请不要重复投票")

  else

  rec.close

  bzh="投票有效"

  conn.execute "insert into votetable(userip,result) values(''"&userip&"'',"& selectresult&")"

  end if

  else

  bzh="查看投票"

  end if

  rec.open "SELECT result,count(*) as count FROM votetable group by result ORDER BY result asc",conn

  t0=cint(rec("count"))

  rec.movenext

  t1=cint(rec("count"))

  rec.movenext

  t2=cint(rec("count"))

  tcount=t0+t1+t2

  Response.contenttype="text/xml"

  %>

  <% Response.write ""

  response.Write("")

  Response.write ""

  response.Write("")

  response.Write("")

  response.Write("")

  response.Write("
")

  %>

  <%

  Response.write "
"

  rec.close

  set rec=nothing

  conn.close

  set conn=nothing

  %>

  将文件保存为votexml.asp,放置到web路径为"/"的目录中,即可.

  备注:实际应用到Web服务器的时候,请在flas

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号