chklogin.asp

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

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

<%
'文件功能:验证是否已经登陆
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-11
'修改人员：
'修改时间：
'修改目的：

user_name=request("user_name")
user_pass=md5(request("user_pass"))
sql="select * from wh_employees where employee_name='"&user_name&"' and employee_pwd='"&user_pass&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
   Session("enter") = 1
   Session("name") = rs("employee_name")
   Session("right") = rs("employee_right")
   Session("dpt") = rs("dpt_id")
   session("emp") = rs("employee_id")
	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)
   response.Redirect("main.htm")
else
	lr=now()&"  IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>上的用户以<font color=blue>"&user_name&"</font>帐号登陆未成功"
    call savelog("pub/error.htm",lr)
	call savelogdata(now(),"未知","以"""&user_name&"""帐号登陆未成功",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),2)
%>
  <script language="JavaScript">
  alert("用户名或密码输入有误，请确认！")
  window.location.href="default.asp"
  </script>
<%
end if
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
%>