caipiao.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

		</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=8  align=center height=24>还没有历史中奖情况</td></tr>
	<%
	else
		do while not rs.eof
	%>		
			<tr>
			<TD  align=center height=24><%=rs(0)%></td>
			<TD  align=center><%=rs(1)%></td> 
			<TD  align=center><%=rs(2)%></td>  
			<TD  align=center><%=rs(3)%></td> 
			<TD  align=center><%=rs(4)%></td> 
			<TD  align=center><%=rs(5)%></td>
			<TD  align=center><%=rs(6)%></td> 
			<TD  align=center><%=rs(7)%></td> 
			</tr>
	<%
			rs.movenext
		loop
	end if
	rs.close
	set rs=nothing
%>			
	</table>
<br>
</td></tr></table>
<%
end if
conncaipiao.close
set conncaipiao=nothing
' 以下无需修改
sub KiaJiang(ID)
	dim ZongJiTouZhu,ZongJinE,ZhongJiangHaoMa,ZhongJiangZhuShu1,ZhongJiangZhuShu2,ZhongJiangZhuShu3,ZhongJiangZhuShu4,JiangJin,Content,ShengY
	dim ZhongJiangUser,Delta  '中奖名单 
	' 获得总金额
	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*JiaGe

	' 获得一等奖注数
	rs.open "select count(ID) from CP_User where Qi="&id&" and HaoMa="&ZhongJiangHaoMa&"",conncaipiao,1,3    
	ZhongJiangZhuShu1=rs(0)  
	rs.close
	' 获得二等奖注数
	rs.open "select count(ID) from CP_User where Qi="&id&" and HaoMa<>"&ZhongJiangHaoMa&" and (HaoMa mod 1000)="&(ZhongJiangHaoMa mod 1000)&"",conncaipiao,1,3    
	ZhongJiangZhuShu2=rs(0)
	rs.close
	' 获得三等奖注数
	rs.open "select count(ID) from CP_User where Qi="&id&" and (HaoMa mod 1000)<>"&int(ZhongJiangHaoMa mod 1000)&" and (HaoMa mod 100)="&int(ZhongJiangHaoMa mod 100)&"",conncaipiao,1,3
	ZhongJiangZhuShu3=rs(0)  
	rs.close
	' 获得四等奖注数
	rs.open "select count(ID) from CP_User where Qi="&id&" and (HaoMa mod 100)<>"&(ZhongJiangHaoMa mod 100)&" and (HaoMa mod 10)="&(ZhongJiangHaoMa mod 10)&"",conncaipiao,1,3    
	ZhongJiangZhuShu4=rs(0)  
	rs.close
	' 总奖金
	JiangJin=ZhongJiangZhuShu1*AMaxJiang1+ZhongJiangZhuShu2*AMaxJiang2+ZhongJiangZhuShu3*AMaxJiang3+ZhongJiangZhuShu4*AMaxJiang4
	' 兑奖率
	if JiangJin>ZongJinE then
		Delta=ZongJinE/JiangJin
	else
		Delta=1
	end if
	' 支付奖金
	JiangJin=ZhongJiangZhuShu1*int(AMaxJiang1*Delta)+ZhongJiangZhuShu2*int(AMaxJiang2*Delta)+ _
		ZhongJiangZhuShu3*int(AMaxJiang3*Delta)+ZhongJiangZhuShu4*int(AMaxJiang4*Delta)
	' 剩余奖金
	ShengY=ZongJinE-JiangJin
	rs.open "select * from CP_Record where ID="&id,conncaipiao,1,3
	rs("YuE")=ShengY
	rs.update
	rs.close
	if ZhongJiangZhuShu1=0 and ZhongJiangZhuShu2=0 and ZhongJiangZhuShu3=0 and ZhongJiangZhuShu4=0 then
		ZhongJiangUser="本期无人中奖"
	else
		ZhongJiangUser="【本期中奖者】"
		ZhongJiangUser=ZhongJiangUser&chr(13)&"一等奖："
		if ZhongJiangZhuShu1>0 then
			rs.open "select UserName,user,count(username),count(user) from CP_User where Qi="&id&" and HaoMa="&ZhongJiangHaoMa&" group by username,user" ,conncaipiao,1,3
			do while not rs.eof
				conn.execute("Update [user] set mark=mark+"&rs(2)*int(AMaxJiang1*Delta)&" where Userid="&rs(1))
				ZhongJiangUser=ZhongJiangUser&rs(0)&"*"&rs(2)&"  "
				rs.movenext
			loop
			rs.close
		else
			ZhongJiangUser=ZhongJiangUser&"无  "
		end if
		ZhongJiangUser=ZhongJiangUser&chr(13)&"二等奖："
		if ZhongJiangZhuShu2>0 then
			rs.open "select UserName,user,count(username),count(user) from CP_User where Qi="&id&" and HaoMa<>"&ZhongJiangHaoMa&" and (HaoMa mod 1000)="&(ZhongJiangHaoMa mod 1000)&" group by username,user" ,conncaipiao,1,3
			do while not rs.eof
				conn.execute("Update [user] set mark=mark+"&rs(2)*int(AMaxJiang2*Delta)&" where Userid="&rs(1))
				ZhongJiangUser=ZhongJiangUser&rs(0)&"*"&rs(2)&"  "
				rs.movenext
			loop
			rs.close
		else
			ZhongJiangUser=ZhongJiangUser&"无  "
		end if
		ZhongJiangUser=ZhongJiangUser&chr(13)&"三等奖："
		if ZhongJiangZhuShu3>0 then
			rs.open "select UserName,user,count(username),count(user) from CP_User where Qi="&id&" and (HaoMa mod 1000)<>"&(ZhongJiangHaoMa mod 1000)&" and (HaoMa mod 100)="&(ZhongJiangHaoMa mod 100)&" group by username,user" ,conncaipiao,1,3
			do while not rs.eof
				conn.execute("Update [user] set mark=mark+"&rs(2)*int(AMaxJiang3*Delta)&" where Userid="&rs(1))
				ZhongJiangUser=ZhongJiangUser&rs(0)&"*"&rs(2)&"  "
				rs.movenext
			loop
			rs.close
		else
			ZhongJiangUser=ZhongJiangUser&"无  "
		end if
		ZhongJiangUser=ZhongJiangUser&chr(13)&"四等奖："
		if ZhongJiangZhuShu4>0 then
			rs.open "select UserName,user,count(username),count(user) from CP_User where Qi="&id&" and (HaoMa mod 100)<>"&(ZhongJiangHaoMa mod 100)&" and (HaoMa mod 10)="&(ZhongJiangHaoMa mod 10)&" group by username,user" ,conncaipiao,1,3
			do while not rs.eof
				conn.execute("Update [user] set mark=mark+"&rs(2)*int(AMaxJiang4*Delta)&" where Userid="&rs(1))
				ZhongJiangUser=ZhongJiangUser&rs(0)&"*"&rs(2)&"  "
				rs.movenext
			loop
			rs.close
		else
			ZhongJiangUser=ZhongJiangUser&"无  "
		end if
	end if
	
	'dim rs2
	'set rs2=server.createobject("adodb.recordset")
	'rs2.open "select user from cp_user where Qi="&id&" group by username",conncaipiao,1,3
	'rs.open "select * from [sms] where id is null",conn,3,3
	'do while not rs2.eof
	'	rs.addnew
	'	rs("name")=tl&"彩票中心"
	'	rs("tname")=rs2("UserName")
	'	Content="第"&ID&"期中奖号码为"& ZhongJiangHaoMa &"。总计投注"&ZongJiTouZhu&"注，奖池总额"&ZongJinE&"元。其中中奖"& (ZhongJiangZhuShu1+ZhongJiangZhuShu2+ZhongJiangZhuShu3+ZhongJiangZhuShu4) &"注,共得奖金"& JiangJin &"元。"&chr(13)&"本期剩余奖金"&ShengY&"元滚入下期奖池。"
	'	Content=Content&" "&ZhongJiangUser
	'	rs("neirong")=Content
	'	rs("riqi")=now
	'	rs.update
	'	rs2.movenext
	'loop
	'rs.close
	'rs2.close
	'set rs2=nothing
content="第"&ID&"期彩票公告|"
content=content&"论坛彩票中心管理员|"&now&"|"
	Content=content&"第"&ID&"期中奖号码为"& ZhongJiangHaoMa &"。总计投注"&ZongJiTouZhu&"注，奖池总额"&ZongJinE&"元。其中中奖"& (ZhongJiangZhuShu1+ZhongJiangZhuShu2+ZhongJiangZhuShu3+ZhongJiangZhuShu4) &"注,共得奖金"& JiangJin &"元。"&chr(13)&"本期剩余奖金"&ShengY&"元滚入下期奖池。"
Content=Content&" "&ZhongJiangUser
	conn.execute("insert into [paper](paper)values('"&content&"')")

	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")=ZhongJiangZhuShu1+ZhongJiangZhuShu2+ZhongJiangZhuShu3+ZhongJiangZhuShu4
	rs("JiangJin")=JiangJin
	rs("ShengY")=ShengY
	rs.update
	rs.close	
end sub

sub savepiao
	dim cp1,cp2,cp3,cp4,xcount,i
	cp1=request("CP1")
	cp2=request("CP2")
	cp3=request("CP3")
	cp4=request("CP4")
	if cp1="" or cp2="" or cp3="" or cp4="" then
		CP_Msg="你至少有一个号码没有购买，请重新选择。"
	end if
	xcount=1
	if (cp1<"0" or cp1>"9") and cp1<>"?" then
		CP_Msg="你至少有一个号码没有购买，请重新选择。"
	else
		if cp1="?" then xcount=xcount*10
	end if
	if (cp2<"0" or cp2>"9") and cp2<>"?" then
		CP_Msg="你至少有一个号码没有购买，请重新选择。"
	else
		if cp2="?" then xcount=xcount*10
	end if
	if (cp3<"0" or cp3>"9") and cp3<>"?" then
		CP_Msg="你至少有一个号码没有购买，请重新选择。"
	else
		if cp3="?" then xcount=xcount*10
	end if
	if (cp4<"0" or cp4>"9") and cp4<>"?" then
		CP_Msg="你至少有一个号码没有购买，请重新选择。"
	else
		if cp4="?" then xcount=xcount*10
	end if
	if usermoney<JiaGe*xcount then
		CP_Msg="对不起，您的积分不够购买"&xcount&"注。"
	end if
	if CP_Msg="" then
		rs.open "select * from CP_User where ID is null",conncaipiao,1,3
		for i=0 to 9999
			if (left(right("0000"&i,4),1)=cp1 or cp1="?") and _
				(mid(right("0000"&i,4),2,1)=cp2 or cp2="?") and _
				(mid(right("0000"&i,4),3,1)=cp3 or cp3="?") and _
				(right(right("0000"&i,4),1)=cp4 or cp4="?") then
				rs.addnew
				rs("Username")=lgname
				rs("User")=lgUserID
				rs("Haoma")=i
				rs("Qi")=CP_Qi
				rs.update
			end if
		next
		rs.close
		conn.execute("update [user] set mark=mark-"&JiaGe*xcount&" where userid="&lguserid)
		CP_Msg=cp1&cp2&cp3&cp4&"购买成功，您可以继续选择购买。"
	end if
end sub
closedb
%>
<%
call down
%>