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 "<?xml version='1.0' encoding='gb2312'?>" response.Write("<root bz='"&bzh&"'>") Response.write "<base><data value='相信' color='0xff00cc'/><data value='不相信' color='0x0000CC'/><data value='现在还不清楚' color='0x00cc00'/></base>" response.Write("<record value='共"&tcount&"票' color='0x0000CC'>") response.Write("<data value='"&t0/tcount&"'/>") response.Write("<data value='"&t1/tcount&"'/>") response.Write("<data value='"&t2/tcount&"'/></record>") %> <% Response.write "</root>" rec.close set rec=nothing conn.close set conn=nothing %>
将文件保存为votexml.asp,放置到web路径为"/"的目录中,即可.
备注,实际应用到web服务器的时候,请在flash中使用相对路径.flash movie和votexml.asp可以放置到任何目录中.
出处:蓝色理想
责任编辑:qhwa
上一页 问题分析和界面设计 下一页
◎进入论坛Flash专栏版块参加讨论
|