logout.asp

一套基于asp的网络办公系统！功能类似于oa

<!--#INCLUDE FILE="data.asp" -->

<%
Set my_rs= Server.CreateObject("ADODB.Recordset") 
    strSql="select * from user where username='"&Session("Uname")&"'"
    my_rs.open strSql,Conn,3,3 
    
        my_rs("state")=false
        my_rs("Utime")=my_rs("Utime")-4
        my_rs.update
        my_rs.close
        set my_rs=nothing
        conn.close
        set conn=nothing
        Session("Uid")=""
        Session("Uname")=""
        Session("Upass")=""
        Session("Upart")=""
        Session("Urule")=""
        Session("Ulogin")="no"
		'application(session("isonline"))=""
		
'-----------------------------邮箱系统清除环境变量----------------------------------------
For each k in Session.Contents
Session.Contents(k)=""
next

'-----------------------------邮箱系统清除环境变量----------------------------------------
%>
<script>
top.location.href="index.htm"
</script>