📄 caipiao.asp
字号:
<!--#include file="up.ASP"-->
<%dim conncaipiao,connstrcaipiao,caipiaodb
caipiaodb="data/caipiao.mdb" '彩票数据库路径
Set conncaipiao = Server.CreateObject("ADODB.Connection")
connstrcaipiao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(caipiaodb)
conncaipiao.Open connstrcaipiao
dim MinJiang,JiaGe,AMaxJiang1,AMaxJiang2,AMaxJiang3,AMaxJiang4,CP_Msg
dim CP_Qi,CP_MaxJiang,CP_TouZhuRenShu,CP_TouZhuE,CP_OpenDateTime,UserMoney,UserID
' 奖池最小奖金数量，低于此数量自动补足(需要新一期才可生效)
MinJiang = 100
' 单注价格
JiaGe = 10
' 单注最高奖金
AMaxJiang1 = 5000
AMaxJiang2 = 500
AMaxJiang3 = 100
AMaxJiang4 = 50
If lguserid="" Then
response.redirect"login.asp"
Else
response.write "<table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" width="&tbw&"><tr><td valign=middle height=100><CENTER>"
set rs=server.createobject("adodb.recordset")
rs.open "select mark from [user] where userid="&lguserid,conn,1,3
usermoney=rs("mark")
rs.close
dim rs3,rs1
set rs3=server.createobject("adodb.recordset")
rs3.open "select Top 1 * From CP_Record where OpenDateTime>=#"&year(now)&"-"&month(now)&"-"&day(now)&" "&hour(now)&":"&minute(now)&":"&second(now)&"# order by id desc",conncaipiao,1,3
if rs3.eof or rs3.bof then
set rs1=server.createobject("adodb.recordset")
rs1.open "select Top 1 * From CP_Record order by id desc",conncaipiao,1,3
if rs1.eof or rs1.bof then
CP_MaxJiang=MinJiang
Else
call KiaJiang(RS1("ID"))
CP_MaxJiang=RS1("YuE")
End if
if CP_MaxJiang<MinJiang then
CP_MaxJiang=CP_MaxJiang+MinJiang
end if
Rs1.close
set rs1=nothing
rs3.addnew
Randomize
rs3("Number")=int((8999*rnd)+1000)
rs3("OpenDateTime")=date()+1&" 06:30:00"
rs3("YuE")=CP_MaxJiang
rs3.update
else
set rs1=server.createobject("adodb.recordset")
rs1.open "select Top 1 * From CP_user order by id desc",conncaipiao,1,3
if not( rs1.bof and rs1.eof )then
if rs1("Qi")<rs3("ID") then
Randomize
rs3("Number")=int((8999*rnd)+1000)
rs3("OpenDateTime")=date()+1&" 19:30:00"
rs3.update
end if
end if
end if
CP_Qi=rs3("id")
CP_OpenDateTime=rs3("OpenDateTime")
CP_MaxJiang=rs3("YuE")
rs3.close
set rs3=nothing
if request("job")<>"" then
call savepiao
end if
CP_TouZhuRenShu=0
CP_TouZhuE=0
rs.open "select count(id) From CP_User Where Qi="&CP_Qi,conncaipiao,1,3
CP_TouZhuRenShu=rs(0)
rs.close
CP_MaxJiang=CP_MaxJiang+CP_TouZhuRenShu*JiaGe
CP_TouZhuE=CP_TouZhuRenShu*JiaGe
%>
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
<tr><td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28" colspan="2" align="center"> <img src="pic/gl.gif" border="0"> <%=lgname%>,欢迎光临<b><%=bbsname%></b>彩票中心</td></tr>
<tr><td>
<table width=750 cellpadding=5 cellspacing=0 border=1 style='border-collapse: collapse' bordercolor=<%=c1%> align=center style="word-break:break-all;">
<tr>
<TD vAlign=top>
欢迎光临<b><%=tl%></b>彩票中心！<br>
您现在就可以购买第 <font color=#FF0000><b><%=CP_Qi%></b></font> 期彩票，本期总共累计奖额 <font color=#FF0000><b><%=CP_MaxJiang%></b></font> 元。 <br>
单注最高奖额 <font color=#0000FF><b>一等奖</b></font>：<font color=#FF0000><b><%=AMaxJiang1%></b></font>元，<font color=#0000FF><b>二等奖</b></font>：<font color=#FF0000><b><%=AMaxJiang2%></b></font>元，<br>
<font color=#0000FF><b>三等奖</b></font>：<font color=#FF0000><b><%=AMaxJiang3%></b></font>元，<font color=#0000FF><b>四等奖</b></font>：<font color=#FF0000><b><%=AMaxJiang4%></b></font>元。<br>
本期共有投注 <font color=#FF0000><b><%=CP_TouZhuRenShu%></b></font> 注，总投注额 <font color=#FF0000><b><%=CP_TouZhuE%></b></font> 元，于 <font color=#FF0000><b><%=CP_OpenDateTime%></b></font> 开奖。<br>
</td>
<td vAlign=top rowspan=2>
<B>历史投注:</b><br>
<%
rs.open "select top 10 * from cp_user where user="&lguserid&" order by qi desc,id desc",conncaipiao,1,3
i=0
do while ( not rs.eof ) and i<11
%>
第<%=rs("Qi")%>期:<%=right("0000"&rs("Haoma"),4)%><br>
<%
rs.movenext
i=i+1
loop
rs.close
%>
</td>
</tr>
<tr>
<TD vAlign=top align="center">
每注彩票 <font color=red><%=JiaGe%></font> 点积分，您现在共有 <font color=red><%=UserMoney%></font> 点积分。<br>您需要购买什么号码？
<br><br>
<form method=Get name=BuyCaiPiao>
<input type="hidden" name="job" value="save">
<select name="CP1">
<option selected>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>0</option>
<option>?</option>
</select>
<select name="CP2">
<option selected>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>0</option>
<option>?</option>
</select>
<select name="CP3">
<option selected>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>0</option>
<option>?</option>
</select>
<select name="CP4">
<option selected>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>0</option>
<option>?</option>
</select>
<input type=submit value="投注">
<input type="button" value="机选" onclick="SelRandom()">
<script>
function SelRandom() {
BuyCaiPiao.CP1.options[Math.random()*9].selected=true;
BuyCaiPiao.CP2.options[Math.random()*9].selected=true;
BuyCaiPiao.CP3.options[Math.random()*9].selected=true;
BuyCaiPiao.CP4.options[Math.random()*9].selected=true;
}
SelRandom()
</script>
</form>
<%=CP_Msg%>
</td></tr>
</table>
</td></tr></table>
<br>
<table align="center" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>" bordercolor="<%=c1%>">
<tr><td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28" colspan="2" align="center"> <img src="pic/gl.gif" border="0"><b> <%=bbsname%></b>彩票中心---本期投注情况</td></tr>
<tr><td>
<br>
<table cellpadding=5 cellspacing=0 border=1 style='border-collapse: collapse' bordercolor=<%=c1%> align=center style="word-break:break-all;">
<tr>
<TD align=center height=20>用户名</td>
<TD align=center>投注数</td>
<TD align=center>投注点数</td>
</tr>
<%
rs.open "SELECT Count(UserName) AS UserNameOfCount,UserName FROM CP_User where qi="&CP_Qi&" GROUP BY UserName ORDER BY Count(UserName) DESC ",conncaipiao,1,3
if rs.eof and rs.bof then
%>
<tr><td colspan=3 align=center height=20>本期还没有人投注</td></tr>
<%
else
do while not rs.eof
%>
<tr>
<TD align=center height=20><%=rs(1)%></td>
<TD align=center><%=rs(0)%></td>
<TD align=center><%=rs(0)*JiaGe%></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
<br>
</td></tr></table>
<br>
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse;word-break:break-all;" width="<%=tbw%>" bordercolor="<%=c1%>">
<tr><td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28" colspan="2" align="center"> <img src="pic/gl.gif" border="0"><b> <%=bbsname%></b>彩票中心---最近10期中奖情况</td></tr>
<tr><td>
<table align="center" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse;word-break:break-all;" width="<%=tbw%>" bordercolor="<%=c1%>">
<tr>
<TD align=center height=24>期 数</td>
<TD align=center>中奖号码</td>
<TD align=center>总投注数</td>
<TD align=center>总投注点数</td>
<TD align=center>奖池总点数</td>
<TD align=center>中奖注数</td>
<TD align=center>兑出奖金</td>
<TD align=center>奖池剩余奖金</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -