📄 lotteryopen.asp
字号:
<!--#include file="lotteryconn.asp"-->
<%
if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
Response.Write("对不起，您不是管理员！")
Response.End
end if
lotteryid=trim(request("lotteryid"))
if lotteryid="" then
response.end
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))
set recTmp=server.createobject("adodb.recordset")
strsql="select * from lottery where lotteryclose=0 and lotteryid=" & clng(lotteryid)
'response.write strsql
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
%>
<html>
<head>
<title>青浦热线 -虚拟城市 福利彩票</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
</head>
<body bgcolor="#FFFFFF">
<br>
<div align=center>
本期彩票电脑产生号码：<b style="color:red"><%=lotterynumber%></b>
</div>
<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><%=formatnumber(totalmoney,0,-1)%>元</b>)
</td>
</tr>
<%if not rec.eof then%>
<%do while not rec.eof%>
<tr class=trodd>
<td align=center>
<%=rec("uid")%>
</td>
</tr>
<%
rec.movenext
loop
%>
<%else%>
<tr class=trodd>
<td align=center>
无人中奖
</td>
</tr>
<%end if%>
</table>
</div>
<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>
最末1尾中奖得主(奖金：<b><%=formatnumber(cdbl(totalmoney)*0.01,0,-1)%>元</b>)
</td>
</tr>
<%
rec.close
rec.open "Select distinct uid 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%>
<tr class=trodd>
<td align=center>
<%=rec("uid")%>
</td>
</tr>
<%
rec.movenext
loop
%>
<%else%>
<td align=center>
无人中奖
</td>
</tr>
<%end if%>
</table>
</div>
<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>
最末2尾中奖得主(奖金：<b><%=formatnumber(cdbl(totalmoney)*0.05,0,-1)%>元</b>)
</td>
</tr>
<%
rec.close
rec.open "Select distinct uid 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%>
<tr class=trodd>
<td align=center>
<%=rec("uid")%>
</td>
</tr>
<%
rec.movenext
loop
%>
<%else%>
<tr class=trodd>
<td align=center>
无人中奖
</td>
</tr>
<%end if%>
</table>
</div>
<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>
最末3尾中奖得主(奖金：<b><%=formatnumber(cdbl(totalmoney)*0.1,0,-1)%>元</b>)
</td>
</tr>
<%
rec.close
rec.open "Select distinct uid 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%>
<tr class=trodd>
<td align=center>
<%=rec("uid")%>
</td>
</tr>
<%
rec.movenext
loop
%>
<%else%>
<tr class=trodd>
<td align=center>
无人中奖
</td>
</tr>
<%end if%>
</table>
</div>
<br>
<div align=center>
<form name=openall method=post action="lotteryopenall.asp">
<input type=hidden name=lotterynumber value="<%=trim(lotterynumber)%>">
<input type=hidden name=lotteryid value="<%=trim(lotteryid)%>">
<input type=submit name=ok value="确认无误，开奖啦！">
<input type=button name=cancal value="重新产生中奖号码" onclick="javascript:location.replace('lotteryopen.asp?lotteryid=<%=lotteryid%>');">
</form>
</div>
<br>
</body>
</html>
<%
rec.close
ltconn.close
set rec=nothing
set ltconn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -