📄 index_main.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
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 from m_config")
Dim tray_time,tray_switch
If Not Rs6.Eof Then
tray_switch=Rs6("tray_switch")
tray_time=Rs6("tray_time")
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 from m_config")
If Not Rs6.Eof Then
tray_switch=Rs6("tray_switch")
tray_time=Rs6("tray_time")
tray_show=Rs6("tray_show")
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}
-->
</style>
</head>
<link href="../images/css-g.css" rel="stylesheet" type="text/css">
<body>
<table width="50%" height="236" 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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -