index_manager7.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 18 行

<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
%>
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("update open_on set adddate='"&Request("adddate")&"' where id='"&Request.QueryString("id")&"'")
  Response.Write ("<script language=javascript>location.href='Index_Main.asp'</script>")
   Response.End
  'Set Rs6=Conn.Execute("Insert into m_config (affice) values ('LL')")
  %>