kqqt.asp

OFFICE办公自动化

<!--#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 ""『各位员工』请注意："" & vbcrlf & vbcrlf & "" ★ 只能在办公大楼的局域网内才能【签退】 ！！！""</script>"
end if

oconn.close
set oconn=nothing
%>
<script language="javascript">history.back()</script>