📄 index_main.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
'Set Rs6=Conn.Execute("Delete from m_config")
'Set Rs6=Conn.Execute("Insert into m_config (tray_time) values (Getdate())")
Set Rs6=Conn.Execute("Select Top 1 tray_switch,tray_time,opentime,pp from m_config")
Dim tray_time,tray_switch
If Not Rs6.Eof Then
tray_switch=Rs6("tray_switch")
tray_time=Rs6("tray_time")
opentime=rs6("opentime")
pp=rs6("pp")
End If
If DateDiff("n",tray_time,Now())>=0 And DateDiff("n",tray_time,Now())<=1446 Then
Set Rs6=Conn.Execute("Update m_config Set tray_switch=0")
Set Rs6=Conn.Execute("Select Top 1 tray_switch,tray_time,tray_show,opentime,pp from m_config")
If Not Rs6.Eof Then
tray_switch=Rs6("tray_switch")
tray_time=Rs6("tray_time")
tray_show=Rs6("tray_show")
opentime=rs6("opentime")
pp=rs6("pp")
End If
End if
Set Rs6=Nothing
%>
<script>
if(self==top){
location.href="index.asp";
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理后台</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
.style3 {color: #FF0000; font-size: 18px; }
.style4 {color: #0000CC}
body,td,th {
color: #FF0000;
}
-->
</style>
</head>
<link href="../images/css-g.css" rel="stylesheet" type="text/css">
<body>
<TABLE cellSpacing=1 width="80%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=center height=40><FORM name=form1 action=system_oper.asp?K6=K111 method=post>
系统封盘时间
<INPUT
class=input id=Envelop2 value="<%=tray_time%>" name=tray_time>系统开盘时间
<INPUT
class=input id=opentime value="<%=opentime%>" name=opentime>
<input name="pp" type="checkbox" id="pp" value="1" <%if pp=1 then%> checked <%end if%>>
充许自动开盘
<INPUT class=input type=submit value=.确认. name=Submit3>
</FORM>
<P> </P></TD>
</TR>
</TABLE>
<table width="70%" height="100" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td align="center">
<p><br>
<br>
<%If tray_switch=1 Then %>
<span class="style3">开盘中</span><br>
<input type="submit" name="Submit2" value="现在状态为开盘请点击封盘" onclick="javascript:location.href='system_oper.asp?K6=K6&switch=0'">
<span class="style1"><br>
<br>
<span class="style4">在开奖前您必须停止开盘。</span>
<%Else%>
<span class="style3">封盘中</span><br>
<br>
<input type="submit" name="Submit" value="现在状态为封盘点击开盘" onClick="javascript:location.href='system_oper.asp?K6=K6&switch=1'">
<span class="style1"><br>
<br>
<br>
上次设置时间为：<%=tray_time%></span>
<%End If%>
</p>
</tr>
</table>
<TABLE cellSpacing=1 cellPadding=2 width="100%" align=center border=1>
<TBODY>
<TR align=middle bgColor=#cccccc>
<TD width="20%" bgcolor="#FFFF00">名字</TD>
<TD width="20%" bgcolor="#FFFF00">接盘状态</TD>
<TD width="30%" bgcolor="#FFFF00">开盘/封盘</TD>
<TD width="30%" align="center" bgcolor="#FFFF00">自动封盘时间</TD>
<TD width="30%" align="center" bgcolor="#FFFF00">操作</TD>
</TR>
<%
Set Rs7=Conn.Execute("Select id,code,name,del_flag,adddate from open_on ")
do while not Rs7.Eof
%>
<form name="form2" method="post" action="index_manager7.asp?id=<%=Rs7("id")%>"> <TR align=middle bgColor=#ffffff>
<TD><%=Rs7("name")%></TD>
<TD><%
if Rs7("del_flag")="1" then
response.Write("<font color=red>开</font>")
else
response.Write("封")
end if
%></TD>
<td><a href="index_manager6.asp?id=<%=Rs7("id")%>&del_flag=1">开盘</a>/<a href="index_manager6.asp?id=<%=Rs7("id")%>&del_flag=0">封盘</a> </td>
<td align="center">
<input name="adddate" type="text" id="adddate" value="<%=Rs7("adddate")%>">
</td>
<td align="center"><input type="submit" name="Submit4" value="修改"></td>
</TR></form>
<%
Rs7.movenext
loop
%>
</TD></TR></TBODY></TABLE>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -