login.asp

嘉缘人才6.0精简 ,很好用的人才系统

<%Response.Charset = "GB2312"%>
<!--#include file="conn/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%Function isletternumber(strng)
 isletternumber = false
 Dim regEx, Match ' Create variables.
 Set regEx = New RegExp   ' Create a regular expression object (stupid, huh?)
 regEx.Pattern = "^[A-Za-z0-9]{4,20}$" ' Sets pattern.
 regEx.IgnoreCase = True   ' Set case insensitivity.
 Set Match = regEx.Execute(strng)   ' Execute search.
 if match.count then isletternumber= true
End Function
Function Usertype(LC)
Select Case LC
	Case 1:Usertype="p"
	Case 2:Usertype="c"
	Case else:Usertype=""
End Select
End Function
Action=trim(Request("Action"))
Select Case Action
	Case "unlogin"
		Call UserUnLogin()
	Case "login"
		Call UserLogin()
	Case "loginout"
		Call UserLoginout()
End Select
Conn.Close
Set Conn=Nothing
%>
<%Sub UserUnLogin()
LoginChannel=Replace(request.querystring("LoginChannel"),"'","")
if session(FRHRCMS&"user_type")<>"" then
set rs=server.createobject(FR_HR_Rs)
sql="select * from job_Member where Member_login='"&session(FRHRCMS&"user_login")&"'"
rs.open sql,conn,1,3
if not rs.eof then
Member_balance=rs("Member_balance")
Member_integral=rs("Member_integral")
Member_consumenums=rs("Member_consumenums")
Member_flag=rs("Member_flag")
Member_startdate=rs("Member_startdate")
Member_enddate=rs("Member_enddate")
end if
rs.close
set rs=nothing
%>
<table width="100%" border="0" cellpadding="2" cellspacing="0">
    <tr>
      <td align="left">欢迎<%=left(session(FRHRCMS&"user_login"),10)%>登录会员中心！</td>
    </tr>
    <tr>
      <td align="left">当前余额：<%=Member_balance%>元 <a href="<%=InstallDir%>onlinepay/index.asp" target="_blank"><font color="#FF0000">在线充值</font></a></td>
    </tr>
    <tr>
      <td align="left">当前积分：<%=Member_integral%>个积分</td>
    </tr>
	<tr>
      <td align="left">当前点数：<%=Member_consumenums%>点</td>
    </tr>
	<tr>
      <td align="left">当前状态：<%if Member_flag=1 then Response.Write("帐户状态正常")%></td>
    </tr>
	<tr>
      <td align="left">服务期：<%=Member_startdate%>到<%=Member_enddate%></td>
    </tr>
    <tr>
      <td align="center">
	  <%if session(FRHRCMS&"user_type")="member" then%>
	  <input type="button" name="Submit" value="我要找工作" class="inputs" onclick="location.href ='<%=InstallDir%>Member_Install.asp?Member_type=1';"  />
	  <input type="button" name="Submit" value="我要招人才" class="inputs" onclick="location.href ='<%=InstallDir%>Member_Install.asp?Member_type=2';"  />
	  <%end if%>
	  <%if session(FRHRCMS&"user_type")="pmember" then Userlink="person/person_index.asp"
	  if session(FRHRCMS&"user_type")="cmember" then Userlink="company/company_index.asp"%><input type="button" name="Submit" value="进入管理中心" class="inputs" onclick="location.href ='<%=SiteUrl%><%=InstallDir%><%=Userlink%>';"  />
      <input type="button" name="Submit" value="退 出" class="inputs" onclick="if(confirm('确定要退出吗？')){location.href ='<%=SiteUrl%><%=InstallDir%>login.asp?Action=loginout&LoginChannel=<%=LoginChannel%>';}" /></td>
    </tr>
</table>
<%
else
if LoginChannel=0 or LoginChannel>2 then%> 
<table width="96%" border="0" cellspacing="0" cellpadding="4">
      <tr>
      <td>用户名：
        <label>
          <input type="text" name="login" class="inputl" />
        </label></td>
    </tr>
    <tr>
      <td>密　码：
        <label>
          <input type="password" name="pwd" class="inputl" />
        </label></td>
    </tr>
    <tr>
      <td align="center">
        <input type="submit" name="Submit" value="登 录" class="inputcl" />
        <input type="reset" name="button2" value="重 置" class="inputcl" />
        <input type="button" name="button3" value="忘 密" class="inputcl" onclick="location.href ='<%=SiteUrl%><%=InstallDir%>getpassword.asp';" /></td>
    </tr>
	<tr><td align="center"><input type="button" name="reg" class="inputcl" value="免费注册通行证会员" onclick="location.href ='<%=SiteUrl%><%=InstallDir%>Register.asp?Member_type=<%=LoginChannel%>';" alt="人才、企业、院校、培训各类型会员一号通行" /></td></tr>
</table>
<%else
Select Case LoginChannel
	Case 1
		Regtype="个 人 "
	Case 2
		Regtype="企 业 "
End Select%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
    <tr>
      <td>用户名：
        <label>
          <input type="text" name="login" class="inputl" />
        </label></td>
      <td width="60" rowspan="2"><input type="submit" name="Submit4" value="登 录" class="inputcl" /></td>
    </tr>
    <tr>
      <td>密　码：
        <label>
          <input type="password" name="pwd" class="inputl" />
        </label></td>
    </tr>
    <tr>
      <td align="center"><input type="button" name="Submit23" value="<%=Regtype%>免 费 注 册" class="inputcl" onclick="location.href ='<%=SiteUrl%><%=InstallDir%>Register.asp?Member_type=<%=LoginChannel%>';" />      </td>
      <td width="60"><input type="button" name="Submit4" value="忘 密" class="inputcl" onclick="location.href ='<%=SiteUrl%><%=InstallDir%>getpassword.asp';" /></td>
    </tr>
    <tr>
      <td colspan="2" align="center">尊敬的会员，你目前进行的操作，需要“登录”后才能继续……</td>
    </tr>
</table>
<%End if
end if
End Sub%>
<%Sub UserLogin()
LoginChannel=Replace(request.querystring("LoginChannel"),"'","")
'用户登录后检测用户身份
trueIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If trueIP="" Then trueIP=Request.ServerVariables("REMOTE_ADDR")
member_login=Replace(trim(request("login")),"'","")
'if not isletternumber(member_login) then
' response.write ("<script language=JavaScript>{alert('用户名：要求为4-20个字母或数字！请重新输入。');history.back();}<//script>")
' response.End 
'end if
member_pwd=MD5(Replace(trim(request("pwd")),"'",""))
set rs=server.createobject("ADODB.Recordset")
sql="select * from job_Member where Member_login='"&member_login&"'"
rs.open sql,conn,1,3
if rs.eof then
	rs.close
	set rs=nothing
	Response.Write ("<script language=JavaScript>{alert('用户名错误，请重新登录！');history.back();}</script>")
	Response.End 
else
	If LoginChannel<>0 and cint(LoginChannel)<>cint(rs("Member_typeid")) and LoginChannel<4 then
		rs.close
		set rs=nothing
		Response.Write ("<script language=JavaScript>{alert('对不起用户类型不正确，请返"&LoginChannel&gdfgdgfd&"回首页登录！');location.href ='"&SiteUrl&InstallDir&"index.asp';}</script>")
		Response.End
	End If
	If member_pwd<>rs("Member_pwd") then
		rs.close
		set rs=nothing
		Response.Write ("<script language=JavaScript>{alert('密码错误，请重新登录！');history.back();}</script>")
		Response.End 
	Else
	Member_Auditing=rs("Member_Auditing")
	If Member_Auditing<>1 Then
		 response.write("<script>alert('您的帐号还没有通过审核，无法登录！');history.back();</script>")
		 response.End()
	End If
	Session(FRHRCMS&"LoginIP")=rs("Member_LoginIP")
	Session(FRHRCMS&"LoginTimes")=rs("Member_logindate")
	session(FRHRCMS&"user_login")=member_login
	session(FRHRCMS&"user_pass")=member_pwd
	Memberlogintype=rs("Member_typeid")
	if Memberlogintype<>0 and Memberlogintype<>"" then
		session(FRHRCMS&"user_name")=rs("Member_name")
		session(FRHRCMS&"user_type")=Usertype(Memberlogintype)&"member"
	else
		session(FRHRCMS&"user_type")="member"
	end if
	rs("Member_LoginIP")=trueIP
		If IsNumeric(rs("Member_LoginNum")) Then
			rs("Member_LoginNum")=rs("Member_LoginNum")+1
		Else
			rs("Member_LoginNum")=1
		End If
	rs("Member_logindate")=now()
	rs.Update
	End If
	rs.close
	set rs=nothing
	Response.Write ("<script language=JavaScript>{location.href = 'javascript:history.go(-1)';}</script>")
	Response.End 
end if
%>
<%End Sub%>
<%
Sub UserLoginout()
LoginChannel=Replace(request.querystring("LoginChannel"),"'","")
session(FRHRCMS&"user_type")=""
session(FRHRCMS&"user_login")=""
session(FRHRCMS&"user_truePWD")=""
session(FRHRCMS&"user_pass")=""
session(FRHRCMS&"user_name")=""

response.redirect ""&SiteUrl&InstallDir&"index.asp"
response.end
End Sub%>