快乐360网页通用抽奖转盘整合方法

快乐360抽奖转盘插件

DreamWeaver

一、建数据1、新建数据库，名为lottery.mdb；2、新建表user，表单栏目id（编号）、name（用户名）、password（密码）、chance（抽奖机会）3、新建表zprize，表单栏目zid（编号）、award（奖品名称）、user（中奖用户）、time（中奖时间）4、新建表award，表单栏目lid（编号）、name（奖品名称）、num（奖品数量）、picture（奖品图片）、prompt（中奖提示）5、添加数据。A、向user表中添加一条记录，name="root"，password="123456"，chance=100；B、向award表中添加6条数据，分别如下：a、 name="Ipone　５"，num=3，picture="award1.png"，prompt="恭喜抽中了Ipone5"；b、 name="谢谢参与"，num=5，picture="award2.png"，prompt="感谢你的参与，祝下次好运"；c、 name="笔记本电脑"，num=3，picture="award3.png"，prompt="中头彩啦，得到一台笔记本"；d、 name="快乐300枚"，num=3，picture="award1.png"，prompt="恭喜得到300个快乐币"；e、 name="再抽一次"，num=5，picture="award2.png"，prompt="没关系，送你一次再抽的机会"；f、 name="500个积分"，num=3，picture="award3.png"，prompt="恭喜抽到500个积分"；* 如果使用MSSql或者MySql或其他数据库，创建数据库方法均相同；

二、写抽奖页面抽奖页面其实就是调用那个主抽奖转盘，如果需要美化或者添加其他显示内容，可以根据需要进行设计，本例只为演示整合；index.asp

三、写默认主配置文件luckyStarConfig.xml

四、登陆页面login.asp<%act=request.QueryString("act")if act="login" thenif Request.Form("username")="root" and Requst.Form("password")="123456" thenresponse.cookies("login")=“YES”response.cookies("username")="root"elseResponse.Redirect("login.asp?wrong=用户名称或密码不正确")end ifend if%>

五、抽奖配置文件config.asp<%ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("lottery.mdb")Set conn =server.CreateObject("ADODB.Connection")conn.open ConnStrlogin="NO"username="guest"chance=0if Request.Cookies("login")="YES"then login="YES"set rs=server.CreateObject("adodb.recordset")rs.open "select * from user where name="&request.cookies("username")&"",conn,1,1username=rs("name")chance=rs("chance")end if%><%set rs2=server.CreateObject("adodb.recordset")rs2.open "select * from lottery order by lid asc"for i=1 to rs2.recordcountif rs2.eof then exit for%>" num="<%=rs2("num")%>" prompt="<%=rs2("prompt")%>" imgurl="<%=rs2("picture")%>" detail="http://www.lelesoft.com/?id=1" /><%rs2.movenextnext%>

六、编写处理数据文件result.asp<%ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("lottery.mdb")Set conn =server.CreateObject("ADODB.Connection")conn.open ConnStrset rs2=server.CreateObject("adodb.recordset")rs2.open "select * from user where name='root'",conn,1,3CJZT=request.Form("cjzt") '若用PHP则使用$_POST["cjzt"]，即务必使用POST方式jpjg=request.form("jpjg")if cjzt="BEGIN" thenrs2("chance")=rs2("chance")-1rs2.updateresponse.write("backstr=SUCCESS")elseif cjzt="RESULT" thenset rs=server.CreateObject("adodb.recordset")rs.open "select * from zprize",conn,1,3rs.addnewrs("award")=jpjgrs("user")="root"rs("time")=now()rs.updateresponse.write("backstr=SUCCESS")end if%>

七、访问网站， 测试抽奖

八、扩展功能record.asp（本页面是中奖记录列表）<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("lottery.mdb")Set conn =server.CreateObject("ADODB.Connection")conn.open ConnStrset rs2=server.CreateObject("adodb.recordset")rs2.open "select chance from user where name='root'",conn,1,1set rs=server.CreateObject("adodb.recordset")rs.open "select * from zprize",conn,1,1zs=rs.recordcount%>

接收抽奖结果参数必须使用POST方式

用户点击抽奖按钮时减少抽奖机会