exit.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 26 行

<!-- #include virtual="include/DataEnvi.asp" -->       
<%
Dim objDB, StrSQL,StrSQL1
if Session("AccountID")="" then
%>
<script>
	window.close()
</script>  
<%
end if

set objDB = Server.CreateObject("ADODB.Connection")
OpenDB objDB
StrSQL  = "UPDATE t_OA_Work_Sign SET LogoutTime = getdate() WHERE AccountID = " & Session("AccountID") & " AND loginTime > '" & DateAdd("d", -1, Now) & "'"
StrSQL1 = "UPDATE t_OA_MSN_Account SET LastLoginTime = getdate(), State = '0' WHERE AccountID = " & Session("AccountID") & " "'"

objDB.Execute(StrSQL)
objDB.Execute(StrSQL1)
objDB.Close
set objDB = nothing
Session.Abandon()
%>
<script>
//opener.doReset()
window.close()
</script>