readlog.asp

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

<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_employees/Cls_wh_employees.asp" -->
<!-- #include file="fun.asp" -->

<%call checklogin()%>
<%
if session("right")<4 then
	dim lr
	lr="<font color=red>"&now()&"有"&session("name")&"试图查看日志  IP:"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
    call savelog("error.htm",lr)
	call savedatalog(now(),session("name"),"试图查看日志",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),2)
	response.redirect("../error.asp?msg=2")
end if
%>

<%
select case(request("logtype"))
	case 1
		response.write  ReadText("log.htm")
		response.write("1")
	case 2
		response.write  ReadText("login.htm")
		response.write("2")
	case 3
		response.write  ReadText("error.htm")
		response.write("3")
end select
%>