?? kqqt.asp
字號(hào):
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!-- #include file="../inc/pubfun_a.inc" -->
<%
if Instr(Request.ServerVariables("REMOTE_ADDR"),"172.27.229")>0 or Instr(Request.ServerVariables("REMOTE_ADDR"),"127.0.0.1")>0 then
Dim rs
set rs=server.CreateObject("ADODB.recordset")
rs.Open "Select * from kq_kqb " _
& "Where KQRQ='" & formatdatetime_activenew(now,"yyyy-mm-dd") & "' and ygbh=" & session("LoginID") ,oconn,3,2
if not rs.EOF and (rs("qtsj")="" or isnull(rs("qtsj")) or isempty(rs("qtsj"))) then
rs("qtsj")=formatdatetime_activenew(now,"hh:nn:ss")
rs.Update
end if
rs.Close
set rs=nothing
else
response.write "<script language=""vbscript"">msgbox ""『各位員工』請(qǐng)注意:"" & vbcrlf & vbcrlf & "" ★ 只能在辦公大樓的局域網(wǎng)內(nèi)才能【簽退】 !!!""</script>"
end if
oconn.close
set oconn=nothing
%>
<script language="javascript">history.back()</script>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -