2020智能工厂自动化集成商100强
全世界各行各业联合起来,internet一定要实现!
老文章正文

Flash与ASP联手制作投票系统

2004-03-27 eNet&Ciweek

  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服务器的时候,请在flash中使用相对路径.flash movie和votexml.asp可以放置到任何目录中.

相关频道: eNews 老文章

您对本文或本站有任何意见,请在下方提交,谢谢!

投稿信箱:tougao@enet16.com
广告