马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。程序|投票|投票为了查询拜访懂得站点会见者对特定成绩的态度,我们能够在站点中设置投票程序,站点会见者间接选择谜底,程序主动对一切谜底举行统计和显现。上面是一个复杂的Flash版的投票程序,背景利用xml+asp+mysql:由于年夜多web事情者对asp对照熟习,xml能够将庞大的成绩简化,接纳mysql的缘故原由是access我没有安装,程序不必要任何存储历程,以是无需动SQLServer,Oracle等重刀兵。
成绩剖析:本投票程序是选择题,故我们用一个字段存储用户的谜底便可。
创建数据库和表:表称号和数据库称号恣意,字段界说以下:
voteid无标记整数主动编号
result短整数存储用户选择本程序局限在0-2
useripchar(25)用户ip地点实践长度21
messagechar(255)附加动静//这个程序未用
利用mysql-front创立,以下图所示:
计划flash用户界面:从window/components/flashuicomponents中拖三个RadioButton到舞台中。
设置标签,其他为默许值。(附属性面板和组件参数面板都可以设置)
这里将利用一个图表组件(HTMLUIComponents中的Subtype),你能够到MM扩大资本www.macromedia.com/exchange/flash下载.
参数设置以下:
[img=150border=1style=,62src=]http://www.ckuyun.com/[/img]
flash真个程序十分复杂只要三行:[img=236border=1style=,35src=]http://www.ckuyun.com/[/img]
//在工夫轴的第一帧,到场上面的代码
//标署名称为“入手下手投票吧!”的按钮,事务句柄为sendvote,在点击后实行上面的自界说函数
functionsendvote(){
_root.mytb.readData("http://localhost/votexml.asp?selectresult="+radioGroup.getInstance());
}
服务器端程序的编写,下面你大概看到有一个votexml.asp的文件,上面我们就来创建它。
代码以下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
setconn=server.CreateObject("adodb.connection")
conn.open"dsn=mysql"
setrec=server.CreateObject("adodb.recordset")
%>
<%ifrequest("selectresult")""then
userip=Request.ServerVariables("REMOTE_ADDR")
selectresult=request.QueryString("selectresult")
rec.open"selectcount(*)ascountfromvotetablewherevotedate>"&now()-0.125&"anduserip="&userip&"",conn
ifrec("count")>0then
bzh="反复投票有效"
rec.close
response.Write("请不要反复投票")
else
rec.close
bzh="投票无效"
conn.execute"insertintovotetable(userip,result)values("&userip&","&selectresult&")"
endif
else
bzh="检察投票"
endif
rec.open"SELECTresult,count(*)ascountFROMvotetablegroupbyresultORDERBYresultasc",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"<?xmlversion=1.0encoding=gb2312?>"
response.Write("<rootbz="&bzh&">")
Response.write"<base><datavalue=信任color=0xff00cc/><datavalue=不信任color=0x0000CC/><datavalue=如今还不分明color=0x00cc00/></base>"
response.Write("<recordvalue=共"&tcount&"票color=0x0000CC>")
response.Write("<datavalue="&t0/tcount&"/>")
response.Write("<datavalue="&t1/tcount&"/>")
response.Write("<datavalue="&t2/tcount&"/></record>")
%>
<%
Response.write"</root>"
rec.close
setrec=nothing
conn.close
setconn=nothing
%>
将文件保留为votexml.asp,安排到web路径为"/"的目次中,便可。
备注:实践使用到web服务器的时分,请在flash中利用绝对路径。flashmovie和votexml.asp能够安排就任何目次中。
</p>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |