login.asp

=== ==ASP销售管理系统

<!--#include file="config.asp"-->
<!--#include file="inc/functions.asp"-->
<%
'登录结果
'1 - 成功
'2 - 用户名或密码错误
'3 - 用户已被注销
Login_Result = 2	'默认用户名或密码错误

LoginName = request("LoginName")	'登录用户名
Password = request("Password")	'密码

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "sp_Employee_Login '" & LoginName & "','" & Password & "'"
'response.write sql
set rs = conn.execute(sql)
if not rs.eof then
	Employee_ID = rs("Employee_ID")
	Employee_Name = rs("Employee_Name")
	Available = rs("Available")
	if Available then
		Login_Result = 1
	else
		Login_Result = 3
	end if
else
	Login_Result = 2
end if
rs.close
set rs = nothing
conn.close
set conn = nothing

select case Login_Result
	case 1	'登录成功
		'保存员工编号为Seesion
		Session("Employee_Name") = Employee_Name
		Session("Employee_ID") = Employee_ID
		'操作日志
		Rec_Content = "登录系统"
		Command_Line = Session("Employee_ID")
		call Op_Rec(Rec_Content,Command_Line)
		response.redirect "index.asp"
	case 2	'用户名或密码错误
		response.write "用户名或密码错误"
	case 3	'用户已被注销
		response.write "员工已被删除"
end select
%>