checkpmember.asp

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

<%
'检查帐号、密码
if session(""&FRHRCMS&"user_type")<>"pmember" then 
response.redirect "login.asp?link="&link&""
response.end
end if
pmember_login=session(""&FRHRCMS&"user_login")
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select Member_pwd from job_Member where Member_login='"&pmember_login&"'"
rs.open sql,conn,1,1
if rs.eof then
 rs.close
 set rs=nothing
 response.redirect "login.asp?link="&link&""
 response.End
else
 if session(""&FRHRCMS&"user_pass")<>rs("Member_pwd") then
  rs.close
  set rs=nothing
  response.redirect "login.asp?link="&link&""
  response.End
 end if
end if
rs.close
set rs=nothing
%>