logout.asp

来自「这是一个自己研发的薪酬管理系统」· ASP 代码 · 共 26 行

<%
'文件功能:注销登陆
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-13
'修改人员：房鹏
'修改时间：2003-8-19
'修改目的：写入日志
%>

<!--#include file="pub/fun.asp"-->
<!--#include file="pub/conn.asp"-->

<%
lr="<font color=green>"&now()&"</font> <font color=blue>"&showright(Session("right"))&":"&session("name")&"</font>退出登陆  IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
	call savelog("pub/login.htm",lr)
	call savelogdata(now(),session("name"),"退出登陆",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),3)

Session.abandon
response.redirect("Default.asp")
function savelogdata(when,who,action,ip,logtype)
	sql="insert wh_logs(log_time,log_who,log_action,log_ip,log_type) values('"&when&"','"&who&"','"&action&"','"&ip&"',"&logtype&")"
	conn.execute sql
end function

%>