caipiao.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"-->
<!--#include file="conncaipiao.asp"-->
<%
dim MinJiang,JiaGe,AMaxJiang
MinJiang	=	5000
JiaGe		=	5
AMaxJiang	=	500
sub KiaJiang(ID)
	dim ZongJiTouZhu,ZongJinE,ZhongJiangHaoMa,ZhongJiangZhuShu,JiangJin,Content,ShengY
	dim ZhongJiangUser
	rs.open "select * from CP_Record where ID="&id,conncaipiao,1,3
	ZongJinE=rs("YuE")
	ZhongJiangHaoMa=rs("Number")
	rs.close
	rs.open "select count(id) from CP_User where Qi="&ID,conncaipiao,1,3
	ZongJiTouZhu=rs(0)
	rs.close
	ZongJinE=ZongJinE+ZongJiTouZhu*5
    rs.open "select count(ID) from CP_User where Qi="&id&" and HaoMa="&ZhongJiangHaoMa&"",conncaipiao,1,3
	ZhongJiangZhuShu=rs(0)  
	if ZhongJiangZhuShu>0 then
		JiangJin=Int(ZongJinE/ZhongJiangZhuShu)
	else
		JiangJin=0
	End if
	if JiangJin>AMaxJiang then
		JiangJin=AMaxJiang
	end if
	ShengY=ZongJinE-(JiangJin*ZhongJiangZhuShu)
	rs.close
	rs.open "select * from CP_Record where ID="&id,conncaipiao,1,3
	rs("YuE")=ShengY
	rs.update
	rs.close
	rs.open "select * from CP_User where Qi="&id&" and HaoMa="&ZhongJiangHaoMa&"",conncaipiao,1,3
	if rs.eof and rs.bof then
	ZhongJiangUser="本期无人中奖"
	else
	ZhongJiangUser="本期中奖者："
	do while not rs.eof
	myconn.execute("update [user] set qian=qian+"&JiangJin&" where name='"&rs(3)&"'")
	ZhongJiangUser=ZhongJiangUser&rs(3)&"  "
	rs.movenext
    loop
	end if
	rs.close
	dim rs2
	set rs2=server.createobject("adodb.recordset")
	rs2.open "select username from cp_user where Qi="&id&" group by username",conncaipiao,1,3
	rs.open "select * from [hand] where id is null",myconn,3,3
	do while not rs2.eof
		rs.addnew
		rs("name")="自动送信系统"
		rs("tname")=rs2("username")
		Content="第"&ID&"期彩票开奖公告本期中奖号码为"& ZhongJiangHaoMa &"。总计投注"&ZongJiTouZhu&"注，奖池总额"&ZongJinE&"元。其中中奖"& ZhongJiangZhuShu &"注,每注得奖金"& JiangJin &"元。"&chr(13)&"本期剩余奖金"&ShengY&"元滚入下期奖池。"
		Content=Content&" "&ZhongJiangUser
		rs("neirong")=Content
		rs("isnew")=0
		rs.update
		rs2.movenext
	loop
	rs.close
	rs2.close
	set rs2=nothing
	rs.open "select * from qingkuang where id is null",conncaipiao,3,3
	rs.addnew
	rs("ZhongJiangHaoMa")=ZhongJiangHaoMa
	rs("ZongJiTouZhu")=ZongJiTouZhu
	rs("ZongJiTouZhujine")=ZongJiTouZhu*JiaGe
	rs("ZongJinE")=ZongJinE
	rs("ZhongJiangZhuShu")=ZhongJiangZhuShu
	rs("JiangJin")=JiangJin
	rs("ShengY")=ShengY
	rs.update
	rs.close	
end sub
sub savepiao
	dim cp1,cp2,cp3,cp4
	cp1=request("CP1")
	cp2=request("CP2")
	cp3=request("CP3")
	cp4=request("CP4")
	if cp1="" or cp2="" or cp3="" or cp4="" then
		msg="你至少有一个号码没有购买，请重新选择。"
	end if
	if usermoney<JiaGe then
		msg="对不起，您的社区货币不够购买一注。"
	end if
	if cp1<0 or cp1>9 then
		msg="你至少有一个号码没有购买，请重新选择。"
	end if
	if cp2<0 or cp2>9 then
		msg="你至少有一个号码没有购买，请重新选择。"
	end if
	if cp3<0 or cp3>9 then
		msg="你至少有一个号码没有购买，请重新选择。"
	end if
	if cp4<0 or cp4>9 then
		msg="你至少有一个号码没有购买，请重新选择。"
	end if
	if msg="" then
		rs.open "select * from CP_User where ID is null",conncaipiao,1,3
		rs.addnew
		rs("Username")=lgname
		rs("Haoma")=cp1&cp2&cp3&cp4
		rs("Qi")=CP_Qi
		rs.update
		rs.close
		myconn.execute("update [user] set qian=qian-"&JiaGe&" where name='"&lgname&"'")
		msg=cp1&cp2&cp3&cp4&"购买成功，您可以继续选择购买。"
	end if
end sub
if lgname="" then
	error2("您没有进入彩票中心的权限，请先login.asp登陆或者同管理员联系。")
   else
  set rs=server.createobject("adodb.recordset")
  dim CP_Qi,CP_MaxJiang,CP_TouZhuRenShu,CP_TouZhuE,CP_OpenDateTime,UserMoney,msg
  rs.open "select * from [user] where name='"&lgname&"'",myconn,1,3
  usermoney=rs("qian")
  rs.close
  dim rs3,rs1
  set rs3=server.createobject("adodb.recordset")
  rs3.open "select Top 1 * From CP_Record where OpenDateTime>=#"&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=500
	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&" 20:00: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&" 20:00:00"
			rs3.update
		end if 
	end if			
end if
CP_Qi=rs3("id")
CP_MaxJiang=500
CP_OpenDateTime=rs3("OpenDateTime")
CP_MaxJiang=rs3("YuE")
rs3.close
set rs3=nothing
if request("job")<>"" then 
	call savepiao
	response.Redirect "caipiao.asp"
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*5
CP_TouZhuE=CP_TouZhuRenShu*5
%>
<table align=center cellspacing=1 cellpadding="3" border=0 >
<tr><th><%=lgname%>,欢迎光临彩票中心</th></tr>
<tr><td>
<br>
<table cellpadding=5 cellspacing=1  align=center style="word-break:break-all;">
<tr>
<TD vAlign=top>
　欢迎光临彩票中心！<br>
　您现在就可以购买第 <font color=#FF0000><b><%=CP_Qi%></b></font> 期彩票，本期总共累计奖额 <font color=#FF0000><b><%=CP_MaxJiang%></b></font> 元，单注最高奖额 <font color=#FF0000><b><%=AMaxJiang%></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 username='"&lgname&"' order by qi desc",conncaipiao,1,3
	i=0
	do while ( not rs.eof ) and i<10 
%>
第<font color=red><%=rs("Qi")%></font>期:<%=rs("Haoma")%><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 action="CaiPiao.asp" 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>
</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>
</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>
</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>
</select>
<input type=submit value="投注">
<input type="button" value="机选" onclick="SelRandom()">
<script>
function SelRandom() {
	BuyCaiPiao.CP1.options[Math.random()*10].selected=true;
	BuyCaiPiao.CP2.options[Math.random()*10].selected=true;
	BuyCaiPiao.CP3.options[Math.random()*10].selected=true;
	BuyCaiPiao.CP4.options[Math.random()*10].selected=true;

}
SelRandom()
</script>
</form>
<%=msg%>
</td></tr>
</table>
<br>
</td></tr></table>
<br>
<table align=center cellspacing=1 cellpadding="3" border=0 bgcolor=#D8C0B1 width=97%>
<tr><th>彩票中心---本期投注情况</th></tr>
<tr><td bgcolor=#EFE3DA>
<br>
	<table cellpadding=5 cellspacing=1  bgcolor=#D8C0B1 width=97% border=0px align=center style="word-break:break-all;">
		<tr>
			<TD  bgcolor=#EFE3DA align=center height=20>用户名</td>
			<TD  bgcolor=#EFE3DA align=center>投注数</td>
			<TD  bgcolor=#EFE3DA 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   bgcolor=#FFFFFF align=center height=20><%=rs(1)%></td>
				<TD  bgcolor=#FFFFFF align=center><%=rs(0)%></td>
				<TD  bgcolor=#FFFFFF align=center><%=rs(0)*JiaGe%></td>
			</tr>
	<%
			rs.movenext
		loop
	end if
	rs.close
%>			
	</table>
<br>
</td></tr></table>
<br>
<table align=center cellspacing=1 cellpadding="3" border=0 bgcolor=#D8C0B1 width=97%>
<tr><th>彩票中心---最近10期中奖情况</th></tr>
<tr><td>
<table cellpadding=5 cellspacing=1 border=0 bgcolor=#D8C0B1 width=97% align=center style="word-break:break-all;">
		<tr>
			<TD bgcolor=#EFE3DA align=center height=20>期  数</td>
			<TD bgcolor=#EFE3DA align=center>中奖号码</td>
			<TD bgcolor=#EFE3DA align=center>总投注数</td>
			<TD bgcolor=#EFE3DA align=center>总投注金额</td>			
			<TD bgcolor=#EFE3DA align=center>奖池总金额</td>  
			<TD bgcolor=#EFE3DA align=center>中奖注数</td> 
			<TD bgcolor=#EFE3DA align=center>单注奖金</td>
			<TD bgcolor=#EFE3DA align=center>奖池剩余奖金</td> 			
		</tr>
<%
    set	rs=conncaipiao.execute("SELECT top 10 id,ZhongJiangHaoMa,ZongJiTouZhu,ZongJiTouZhujine,ZongJinE,ZhongJiangZhuShu,JiangJin,ShengY FROM qingkuang order by id DESC")
	if rs.eof and rs.bof then
	%>
		<tr><td colspan=3 bgcolor=#FFFFFF align=center height=20>还没有历史中奖情况</td></tr>
	<%
	else
		do while not rs.eof
	%>		
			<tr>
			<TD bgcolor=#FFFFFF align=center height=20><%=rs(0)%></td>
			<TD bgcolor=#FFFFFF align=center><%=rs(1)%></td> 
			<TD bgcolor=#FFFFFF align=center><%=rs(2)%></td>  
			<TD bgcolor=#FFFFFF align=center><%=rs(3)%></td> 
			<TD bgcolor=#FFFFFF align=center><%=rs(4)%></td> 
			<TD bgcolor=#FFFFFF align=center><%=rs(5)%></td>
			<TD bgcolor=#FFFFFF align=center><%=rs(6)%></td> 
			<TD bgcolor=#FFFFFF align=center><%=rs(7)%></td> 
			</tr>
	<%
			rs.movenext
		loop
	end if
	rs.close
%></table>
<br>
</td></tr></table>
<%
end if
%>
<%sub error2(message)
%><script>alert('<%=message%>');history.back();</script><script>window.close();</script>
<%response.end
end sub
%>
<!--#include file="down.asp"-->