📄 ac3.asp

📁 1。超强文件读写锁定

💻 ASP

字号:

<!--#include file="manage/mConn.asp"-->
<%Set Rs6=Conn.Execute("select top 1 tray_time,affice,tray_switch from m_config")
	Dim affice,tray_time,tray_switch
	If Not Rs6.Eof Then
     affice=Rs6("affice")
	 tray_time=Rs6("tray_time")
	 tray_switch=Rs6("tray_switch")
	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,tray_show=1,tray_show2=1,tray_show3=0")
  %>
  <script language=javascript>
  window.parent.frames.mainFrame.location.reload();
  window.parent.frames.leftFrame.location.reload();
  </script>
  <%
  End if
if request("change")<>"" and request("change")= 1 then
  set Rs6=conn.execute("update m_rate set rate=current_rate where item_sort='特别号'")
 end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
</body>
</html>
<%response.redirect("usermain.asp")%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -