lotteryopenall.asp

宁波娱乐在线城市,丰富的内容版块

<!--#include file="lotteryconn.asp"-->
<!--#include file="../inc/conn2.asp"-->
<!--#include file="../tools.asp"-->
<%
if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Response.Write("对不起，您不是管理员！")
        Response.End
end if

Dim m1,m2,m3,m4
m1=""
m2=""
m3=""
m4=""

lotteryid=trim(request.form("lotteryid"))
lotterynumber=trim(request.form("lotterynumber"))

if lotteryid="" then
   response.write "彩票编号非法！"
   response.end
end if

if lotterynumber="" then
   response.write "彩票中奖号非法！"
   response.end
end if

set rs=server.createobject("adodb.recordset")
strsql="select ID from HY where NC='"& Application("NC") & "'"
rs.open strsql,conn,1,1
adminid=rs("ID")
rs.close
set rs=nothing


set recTmp=server.createobject("adodb.recordset")
strsql="select * from lottery where lotteryclose=0 and lotteryid=" & clng(lotteryid)
recTmp.open strsql,ltconn,1,1
totalmoney=0
if not recTmp.eof then
  totalmoney=recTmp("lotterymoney")
else
  totalmoney=0
end if
recTmp.close
set recTmp=nothing

set rec=server.createobject("adodb.recordset")
rec.open "Select * From users where lotterynumber='" & lotterynumber & "' and lotteryid='" & lotteryid & "'",ltconn,1,1

      if not rec.eof then '头等奖
      do while not rec.eof
         strsql="update HY set JQ=JQ+" & clng(formatnumber(totalmoney,0)) &  " where NC='" & trim(rec("uid"))& "'"
         conn.execute strsql
		 m1=m1+trim(rec("uid"))+"&nbsp;"
		 sql = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
		 sql = sql & trim(rec("uid")) & "',"& adminid &",'"& "恭喜你！本期彩票中头等奖获得 " & clng(formatnumber(totalmoney,0)) & "NG奖金,已转帐到你的户头上请查收。" & "',0,'"&ConvertDateTime(Now())&"',0)"
		 conn.Execute(sql)
      rec.movenext
      loop
      end if
      rec.close  


      rec.open "Select * From users where ucase(right(ltrim(rtrim(lotterynumber)),3))='" & right(trim(lotterynumber),3) & "' and  lotteryid='" & lotteryid & "'",ltconn,1,1      
      if not rec.eof then
      do while not rec.eof
         strsql="update HY set JQ=JQ+" & clng(formatnumber(totalmoney*0.1,0)) &  " where NC='" & trim(rec("uid")) & "'"
         conn.execute strsql
		 m2=m2+trim(rec("uid"))+"&nbsp;"
		 sql = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
		 sql = sql & trim(rec("uid")) & "',"& adminid &",'"& "恭喜你！本期彩票中奖获得 " & clng(formatnumber(totalmoney*0.1,0)) & "NG奖金,已转帐到你的户头上请查收。" & "',0,'"&ConvertDateTime(Now())&"',0)"
		 conn.Execute(sql)
      rec.movenext
      loop
      end if
	  rec.close  
	  

      rec.open "Select * From users where ucase(right(ltrim(rtrim(lotterynumber)),2))='" & right(trim(lotterynumber),2) & "'   and lotteryid='" & lotteryid & "'",ltconn,1,1
      if not rec.eof then
      do while not rec.eof
         strsql="update HY set JQ=JQ+" & clng(formatnumber(totalmoney*0.05,0)) &  " where NC='" & trim(rec("uid")) & "'"
         conn.execute strsql
		 m3=m3+trim(rec("uid"))+"&nbsp;"
		 sql = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
		 sql = sql & trim(rec("uid")) & "',"& adminid &",'"& "恭喜你！本期彩票中奖获得 " & clng(formatnumber(totalmoney*0.05,0)) & "NG奖金,已转帐到你的户头上请查收。" & "',0,'"&ConvertDateTime(Now())&"',0)"
		 conn.Execute(sql)

      rec.movenext
      loop
      end if
      rec.close  
	  
	  
	  rec.open "Select * From users where ucase(right(ltrim(rtrim(lotterynumber)),1))='" & right(trim(lotterynumber),1) & "' and  lotteryid='" & lotteryid & "'",ltconn,1,1
      if not rec.eof then
      do while not rec.eof
         strsql="update HY set JQ=JQ+" & clng(formatnumber(totalmoney*0.01,0)) &  " where NC='" & trim(rec("uid")) & "'"
         conn.execute strsql
		 m4=m4+trim(rec("uid"))+"&nbsp;"
		 sql = "Insert Into LY (NC,ID,NR,ZT,SJ,LB) Values('"
		 sql = sql & trim(rec("uid")) & "',"& adminid &",'"& "恭喜你！本期彩票中奖获得 " & clng(formatnumber(totalmoney*0.01,0)) & "NG奖金,已转帐到你的户头上请查收。" & "',0,'"&ConvertDateTime(Now())&"',0)"
		 conn.Execute(sql)

      rec.movenext
      loop
      end if
      rec.close 

	  if m1="" then
	  m1="无人中奖"
	  end if

	  if m2="" then
	  m2="无人中奖"
	  end if

	  if m3="" then
	  m3="无人中奖"
	  end if

	  if m4="" then
	  m4="无人中奖"
	  end if

	  conn.execute("insert into SQGG (BT,NC,SJ,NR) values ('"&"第 "& lotteryid & " 期福利彩票开奖结果"&"','"&Application("NC")&"','"&ConvertDateTime(Now())&"','"&"获奖名单如下：<br>头等奖："&m1&"<br>最末尾三位数相同："&m2&"<br>最末尾两位数相同："&m3&"<br>最末尾一位数相同："&m4&"')")

      ltconn.execute "update lottery set lotteryclose=1 where lotteryid=" & lotteryid

ltconn.close
conn.close
set rec=nothing
set ltconn=nothing
set conn=nothing
response.redirect "lotterymanage.asp"
%>