📄 lotteryresult.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="lotteryconn.asp"-->
<!--#include file="../inc/conn2.asp"-->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
		Response.Write("对不起，您不是社区用户，请先注册！")
        Response.End
end if

Response.Buffer=True 
response.expires = 0 
response.expiresabsolute = now() - 1
response.addHeader "pragma","no-cache" 
response.addHeader "cache-control","private" 
Response.cachecontrol = "no-cache"


totaltime=0
lotterynumber=trim(request.form("lotterynumber"))
lotteryid=trim(request.form("lotteryid"))
action=ucase(trim(request("act")))
if action<>"COMPUTER" then
    if lotteryid="" then 
       response.write "<script language=javascript>"
       response.write "alert('彩票期数号码不存在！无法下注！');"
       response.write "history.go(-1);"
       response.write "</script>"
       response.end
    end if
else
    if trim(request("lotteryid"))="" then 
       response.write "<script language=javascript>"
       response.write "alert('彩票期数号码不存在！无法下注！');"
       response.write "history.go(-1);"
       response.write "</script>"
       response.end
    else
       lotteryid=trim(request("lotteryid"))
    end if
    Randomize
    m1 = abs(Int(10 * Rnd - 1))
    m3 = abs(Int(10 * Rnd - 1))
    m2 = abs(Int(10 * Rnd - 1))
    m4 = abs(Int(10 * Rnd - 1))
    Randomize
    m5 = abs(Int(10 * Rnd - 1))
    m6 = abs(Int(10 * Rnd - 1))
    m7 = abs(Int(10 * Rnd - 1))
    lotterynumber=trim(cstr(m1)) & trim(cstr(m2)) & trim(cstr(m3)) & trim(cstr(m4)) & trim(cstr(m5)) & trim(cstr(m6)) & trim(cstr(m7))
end if

if lotterynumber="" then 
   response.write "<script language=javascript>"
   response.write "alert('您没有选择号码！无法下注！');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end
else
    lotterynumber=replace(lotterynumber,",","")
    lotterynumber=replace(lotterynumber," ","")
    

	set rec2=server.createobject("adodb.recordset")
    strsql="select JQ from HY where NC='" & trim(Request.Cookies("NC")) & "'"
    rec2.open strsql,conn,1,1
    if not rec2.eof then
       if rec2(0)<100 then
           set rec2=nothing
           set conn=nothing
           response.write "<script language=javascript>"
           response.write "alert('您没有足够的现金！无法下注！请到银行取一些再来！');"
           response.write "history.go(-1);"
           response.write "</script>"
           response.end
       end if
    else
           set rec2=nothing
           set conn=nothing
           response.write "<script language=javascript>"
           response.write "alert('当前用户不存在！无法下注！');"
           response.write "history.go(-1);"
           response.write "</script>"
           response.end
    end if


    set rec=server.createobject("adodb.recordset")
    strsql="select count(*) from users where lotteryid='" & lotteryid & "' and uid='" & Request.Cookies("NC") & "'"
    rec.open strsql,ltconn,1,1
    if not rec.eof then
         totaltime=clng(trim(rec(0)))
         if clng(trim(rec(0)))>=5 then
           response.write "<script language=javascript>"
           response.write "alert('您已经竞猜这次彩票5次了！系统社定每次只能参加最多5次！请耐心等待开奖吧！');"
           response.write "history.go(-1);"
           response.write "</script>"
           response.end
         else
           strsql="insert into users(uid,lotteryid,lotterynumber) values('" & trim(Request.Cookies("NC")) & "','" & lotteryid & "','" & lotterynumber & "')"
           ltconn.execute strsql
           strsql="update HY set JQ=JQ-100 where NC='" & Request.Cookies("NC") & "'"
           conn.execute strsql   
         end if
    else
           strsql="insert into users(uid,lotteryid,lotterynumber) values('" & trim(Request.Cookies("NC")) & "','" & lotteryid & "','" & lotterynumber & "')"
           ltconn.execute strsql
           strsql="update HY set JQ=JQ-100 where NC='" & Request.Cookies("NC") & "'"
           conn.execute strsql
    end if
end if
%>
<HTML>
<HEAD>

<title>Mini 城市 - 福利彩票</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
</HEAD>

<body style="font-size:9pt" text="#000000" link="#0033CC" vlink="#003399" background="images/bg.jpg" oncontextmenu="return false">
  <div align="left"></div> 
  <br><br>
  <div align=center>
    <table width=95% border="1" cellspacing="0" cellpadding="3" bordercolorlight="#000000" cellspacing="0" bordercolordark="#FFFFFF">
      <tr class=trhead>
        <td align=center>
         您本次选中的号码是：<b style="color:red"><%=trim(lotterynumber)%></b>
        </td>
      </tr>
      <tr>
        <td align=center>
感谢您参与本次社区有奖彩票竞猜活动！我们会在开奖的时候自动使用社区电子邮件通知您是否中奖！
<br>
你已经参与过我们的本期有奖彩票<b style="color:red"><%=totaltime+1%></b>次，为了保障社区居民的权益，每一个人每一期最多只允许参加<b style="color:red">5</b>次竞猜！
        </td>
      </tr>
    </table><br><input type=button value='关 闭' onclick='javascript:window.close();'>
  </div>
   <br>
</body>
</html>
<%
ltconn.close
conn.close
set rec=nothing
set rec2=nothing
set ltconn=nothing
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -