五、抽奖配置文件config.asp
<%ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(“lottery.mdb”)
Set conn =server.CreateObject("ADODB.Connection")
conn.open ConnStr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from user where name=*root*",conn,1,1
username=rs("name")
chance=rs("chance")%>
<?xml version="1.0" encoding="gb2312"?>
<lelesoft>
<config currentuser="<%=username%>" loginstatu="YES" lastchance="<%=chance%>" zpanbg="skin/bg.swf" arrow="skin/arrow.swf" bgmusic="skin/bgSound.mp3" distance="180" bgsoundmode="CLOSE" detailmode="CLOSE" promptmode="SYSTEM" luckymode="BOTH" />
<prizelist>
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from lottery order by lid asc"
for i=1 to rs2.recordcount%>
<prize name="<%=rs2("name")%>" num="0" prompt="<%=rs2("prompt")%>" imgurl="<%=rs2("picture")%>" detail="
http://www.lelesoft.com/?id=7" id="<%=rs2("name")%>" />
<%rs2.movenext
next%>
</prizelist>
<checkdata key="a58173ce38ae154b0a3c73bc1267d112" />
<other>
<urls loginurl="login.asp" regurl="login.asp" />
<notice logints="您好，请在抽奖前请登陆！" nochancets="对不起，您的抽奖机会为0！请获取抽奖机会再参与！" noawardts="对不起，活动已经结束！" />
</other>
</lelesoft>
