checkuser.asp

来自「嘉缘人才6.0精简 ,很好用的人才系统」· ASP 代码 · 共 65 行

<!--#include file="conn/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
user_name=request.form("user_name")
user_pass=md5(request.form("user_pass"))
'response.Write(user_pass)
if user_name<>"" and user_pass<>"" then
         set rs=server.createobject("adodb.recordset")
if request.form("user_class")="person" then
		   sql="select * from job_p_pmember where pmember_login='"&user_name&"'"
		   rs.open sql,conn,1,1
response.write(sql)
responsw.write(rs.recordcount)		   
if rs.eof then
		   rs.close
		   set rs=nothing
		   response.write("<script language=JavaScript>{alert('用户名或密码错误，请重新登录！');location.href = 'javascript:history.back()';}</script>")
		   response.end
		else
		  if user_pass<>rs("pmember_pwd") then
		   rs.close
		   set rs=nothing
		   response.write("<script language=JavaScript>{alert('用户名或密码错误，请重新登录！');location.href = 'javascript:history.back()';}</script>")
		   response.end
		  else
		   session("user_name")=rs("pmember_login")
		   session("user_class")="pmember"
		   session("user_pass")=rs("pmember_pwd")		   
		   session("user_pname")=rs("pmember_name")
		   session("lasttime")=rs("pmember_logindate")
		  end if
		  end if
		  rs.close
		  set rs=nothing
		   response.Redirect("index.asp")
else if request.form("user_class")="company" then
		  sql="select * from JOB_C_cmember where cmember_login='"&user_name&"'"
		   rs.open sql,conn,1,1
		if rs.eof then
		   rs.close
		   set rs=nothing
		   response.write("<script language=JavaScript>{alert('用户名或密码错误，请重新登录！');location.href = 'javascript:history.back()';}</script>")
		   response.end
		else
		  if user_pass<>rs("pmember_pwd") then
		   rs.close
		   set rs=nothing
		   response.write("<script language=JavaScript>{alert('用户名或密码错误，请重新登录！');location.href = 'javascript:history.back()';}</script>")
		   response.end
		  else
		   session("user_name")=rs("cmember_login")
		   session("user_class")="cmember"
		   session("user_pass")=rs("cmember_pwd")		   
		   session("user_cname")=rs("cmember_comname")
		   session("lasttime")=rs("cmember_logindate")
		  end if
		end if
		  rs.close
		  set rs=nothing
		  'response.Redirect("index.asp")
end if
end if
end if
%>