<%'检查帐号、密码
Response.Cookies(FRHRCMS)("self_link")=link
Response.Cookies(FRHRCMS)("self_path")="Company"
if Request.Cookies(FRHRCMS)("user_type")<>"cmember" then 
response.redirect "../member/login.asp"
response.end
end if
cmember_login=CheckStr(Request.Cookies(FRHRCMS)("user_login"))
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select Member_pwd,Member_enddate from job_Member where Member_login='"&cmember_login&"'"
rs.open sql,conn,1,1
if rs.eof then
 rs.close:set rs=nothing
 CloseConn
 response.redirect "../member/login.asp"
 response.End
else
 if Request.Cookies(FRHRCMS)("user_pass")<>rs("Member_pwd") then
  rs.close:set rs=nothing
  CloseConn
  response.redirect "../member/login.asp"
  response.End
 end if
 if DateDiff("h",Date(),rs("Member_enddate"))<0 then
 rs.close:set rs=nothing
  CloseConn
 Response.Write ("<script language=JavaScript>{alert('您的会员服务期限已过，暂时不能使用系统功能，请尽快联系客服人员进行升级！');top.location.href ='"&InstallDir&"index.asp';}</script>")
 response.End
 end if
end if
rs.close:set rs=nothing
%>