📄 lotterymanage.asp
字号:
<!--#include file="lotteryconn.asp"-->
<%
if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
Response.Write("对不起，您不是管理员！")
Response.End
end if
set rec=server.createobject("adodb.recordset")
rec.open "Select * From lottery order by lotterystartdate desc",ltconn,1,1
set rec2=server.createobject("adodb.recordset")
allclose=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 style="font-size:9pt" text="#000000" link="#0033CC" vlink="#003399">
<div align="left"></div>
<div align=center>彩票管理</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>
彩票编号
</td>
<td align=center>
彩票名称
</td>
<td align=center>
中奖金额
</td>
<td align=center>
参与人数
</td>
<td align=center>
开设时间
</td>
<td align=center>
目前状态
</td>
<td align=center>
操作
</td>
</tr>
<%do while not rec.eof %>
<%
strsql="select count(*) from users where lotteryid='" & trim(rec("lotteryid")) & "'"
rec2.open strsql,ltconn,1,1
%>
<tr class=trodd>
<td align=center>
 <%=rec("lotteryid")%>
</td>
<td align=center>
<%=rec("lotteryname")%>
</td>
<td align=center>
<%=rec("lotterymoney")%>元
</td>
<td align=center>
<%=rec2(0)%>
</td>
<td align=center>
<%=rec("lotterystartdate")%>
</td>
<td align=center>
<%if trim(rec("lotteryclose"))<>"1" then%>
<a href="lotteryopen.asp?lotteryid=<%=trim(rec("lotteryid"))%>" style="color:blue">开奖</a>
<%allclose=0%>
<%else%>
已经关闭
<%end if%>
</td>
<td align=center>
<a href="lotterydel.asp?lotteryid=<%=trim(rec("lotteryid"))%>" style="color:red">删除</a>
</td>
</tr>
<%
rec.movenext
rec2.close
loop
%>
</table>
</div>
<br>
<%if allclose=1 then%>
<div align=center>
<a href="lotterynew.asp" style="color:blue">开设新的一期彩票</a>
</div>
<%end if%>
<br>
</body>
</html>
<%
rec.close
ltconn.close
set rec=nothing
set rec2=nothing
set ltconn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -