<%
Sub CheckUserID()
if Instr(session(CacheName&"UserID"),"userid=""0""")>0 or session(CacheName&"UserID")=Empty then Response.Write(""):response.end()
End Sub
'从Session里获取UserID
Function UserID()
Dim UserSession
Set UserSession=Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
If Session(CacheName & "UserID")="" Then UserID=0:Exit Function
UserSession.loadxml(Session(CacheName & "UserID"))
UserID = UserSession.documentElement.selectSingleNode("userinfo/@userid").text
End Function
'人才简历收藏
Sub AddResumeFav(ID)
chkFrom
Dim SeStr,UserIDStr
UserIDStr = UserID()
SeStr = Conn.Execute("Select ResumeFav From Dv_user where UserID="&UserIDStr)(0)
If IsNull(SeStr) or SeStr="" Then
Conn.Execute("Update Dv_User Set ResumeFav = '"& ID & ",' where UserID="&UserIDStr)
Else
Dim Ts
Ts = Split(SeStr,",")
if Ts(1)<>"" Then
If Instr(SeStr,","&ID&",")>0 or Instr(SeStr,ID&",")>0 Then response.Write(""):response.End()
Else
If Instr(SeStr,ID&",")>0 Then response.Write(""):response.End()
End If
Conn.Execute("Update Dv_User Set ResumeFav = '"& SeStr & ID & ",' where UserID="&UserIDStr)
End If
Response.Write("")
End Sub
'职位收藏
Sub AddJobFav(ID)
chkFrom
Dim SeStr,UserIDStr
UserIDStr = UserID()
SeStr = Conn.Execute("Select JobFav From Dv_user where UserID="&UserIDStr)(0)
If IsNull(SeStr) or SeStr="" Then
Conn.Execute("Update Dv_User Set JobFav = '"& ID & ",' where UserID="&UserIDStr)
Else
Dim Ts
Ts = Split(SeStr,",")
if Ts(1)<>"" Then
If Instr(SeStr,","&ID&",")>0 or Instr(SeStr,ID&",")>0 Then response.Write(""):response.End()
Else
If Instr(SeStr,ID&",")>0 Then response.Write(""):response.End()
End If
Conn.Execute("Update Dv_User Set JobFav = '"& SeStr & ID & ",' where UserID="&UserIDStr)
End If
Response.Write("")
End Sub
'添加申请应聘职位的UserID和职位ID
'暂时允许重复发送
Sub ApplyJob(JID)
chkFrom
Dim UserIDStr,ZDVal,IsNullMsInfo,Cuid,rs
UserIDStr = UserID()'取当前个人用户ID
set rs=Conn.Execute("select top 1 userid from dv_resume where userid="&UserIDStr)
If rs.eof and rs.bof Then
Response.Write("")
Else
ZDVal = JID&"|"&UserIDStr&"|"&Now()&"$$"
'第一步, 向个人用户字段添加信息，以便个人自己在后台查阅
'——————————————————————————————————————
IsNullMsInfo = Conn.Execute("Select ApplyPJob From Dv_User Where UserID="&UserIDStr)(0)
If IsNull(IsNullMsInfo) or IsNullMsInfo="" Then
Conn.Execute("Update Dv_User Set ApplyPJob='"&ZDVal&"' Where UserID="&UserIDStr)
Else
Conn.Execute("Update Dv_User Set ApplyPJob='"&IsNullMsInfo & ZDVal &"' Where UserID="&UserIDStr)
End If
'第二步, 向职位ID对应用的用户ID添加信息，以便企业用户查阅
'——————————————————————————————————————
Cuid = Conn.Execute("Select UserID From Dv_Job Where JobID="&JID)(0)
IsNullMsInfo = Conn.Execute("Select ApplyJob From Dv_User Where UserID="&Cuid)(0)
'向个人用户字段添加信息，以便个人自己在后台查阅
If IsNull(IsNullMsInfo) or IsNullMsInfo="" Then
Conn.Execute("Update Dv_User Set ApplyJob='"&ZDVal&"' Where UserID="&Cuid)
Else
Conn.Execute("Update Dv_User Set ApplyJob='"&IsNullMsInfo & ZDVal &"' Where UserID="&Cuid)
End If
'----------------------------------发邮件--------------------------------------------------
Dim UserName,Email,Topic,Mailbody,ZWTitle,ResumeID
ZWTitle = Conn.Execute("Select position_name From Dv_Job where JobID="&JID)(0)
Email = Conn.Execute("Select email From Dv_Job Where JobID="&JID)(0)
UserName = Conn.Execute("Select UserName From Dv_Resume Where UserID="&UserIDStr)(0)
ResumeID = Conn.Execute("Select ResumeID From Dv_Resume Where UserID="&UserIDStr)(0)
Topic = UserName&"应聘"&ZWTitle&"简历"
Mailbody = UserName&"给您发来了应聘简历，应聘职位为："&ZWTitle&"。点击查看"&UserName&"的简历"
Mailbody = Mailbody & "
-------------------------------------------------------- "
Mailbody = Mailbody & "中国路面机械网"
Call SendMail(Email,Topic,Mailbody)
'-----------------------------------------------------------------------------------------------
Response.Write("")
End If
End Sub
'发送面试通知
Sub PostMsInfo(RID,ZDVal)
chkFrom
Dim SeStr,ZDName,UserIDStr
UserIDStr = UserID()'取当前企业用户ID
'取原面试通知历史记录，以便搜索判断有无重复发送
SeStr = Conn.Execute("Select MsFav From Dv_user where UserID="&UserIDStr)(0)
If IsNull(SeStr) or SeStr="" Then '为空，也就是无有重复记录
Conn.Execute("Update Dv_User Set MsFav = '"& RID & ",' where UserID="&UserIDStr)
Else '不为空，可能存在重复记录
Dim Ts
Ts = Split(SeStr,",")
if Ts(1)<>"" Then '如果不只一条记录，则用,1,的形式判断是否有重启记录，这样更准确
If Instr(SeStr,","&RID&",")>0 or Instr(SeStr,RID&",")>0 Then response.Write(""):response.End()
Else '只一有一条记录，只能则用1,的形式判断
If Instr(SeStr,RID&",")>0 Then response.Write(""):response.End()
End If
Conn.Execute("Update Dv_User Set MsFav = '"& SeStr & RID & ",' where UserID="&UserIDStr)
End If
Dim ResumeUserID,IsNullMsInfo
'取简历用户ID
ResumeUserID = Conn.Execute("Select UserID From Dv_Resume Where ResumeID="&RID)(0)
IsNullMsInfo = Conn.Execute("Select MsInfo From Dv_User Where UserID="&ResumeUserID)(0)
'更新面试通知信息
If IsNull(IsNullMsInfo) or IsNullMsInfo="" Then
Conn.Execute("Update Dv_User Set MsInfo='"&Checkstr(ZDVal)&"' Where UserID="&ResumeUserID)
Else
Conn.Execute("Update Dv_User Set MsInfo='"&IsNullMsInfo & Checkstr(ZDVal) &"' Where UserID="&ResumeUserID)
End If
'发送邮件
'----------------------------------------------------------------------------------------------------------------------
Dim Email,Topic,Mailbody,TemR,ZWTitle,JobID
TemR = RArray(ZDVal,"|")
JobID = TemR(0)
MsDetail = HTMLEncode(Replace(TemR(2),"$$",""))
ZWTitle = Conn.Execute("Select position_name From Dv_Job where JobID="&JobID)(0)
Email = Conn.Execute("Select UserEmail From Dv_User Where UserID="&ResumeUserID)(0)
CompanyName = Conn.Execute("Select Company From Dv_User Where UserID="&UserIDStr)(0)
Topic = ZWTitle&"面试通知--["&CompanyName&"]"
Mailbody = MsDetail&"
")
fString = Replace(fString, CHR(10), " ")
fString = Replace(fString, "|||", " ")
fString = Replace(fString, "'", "''")
If InStr(Left(fString,6)," ")=0 and InStr(Left(fString,2)," ")=0 Then fString = " "&fString
If InStr(fString," ")=0 and InStr(fString," ")=0 Then fString = Replace(fString," "," ")
HTMLEncode = fString
End if
End Function
Sub SendMail(Email,Topic,Mailbody)
On Error Resume Next
Dim Obj,ErrMsg
Set Obj = Server.CreateObject("JMail.Message")
Obj.Silent = True '屏蔽例外错误，返回FALSE跟TRUE两值
Obj.Logging = True '启用邮件日志
Obj.Charset = "gb2312" '设置编码类型
Obj.MailServerUserName = "hk3000@126.com" '您的邮件服务器登录名
Obj.MailServerPassword = "19822011587028" '登录密码
Obj.ContentType = "text/html" '设置邮件类型
Obj.Priority = 1
Obj.From = "hk3000@126.com" '发件人的E-MAIL地址
Obj.FromName = "中国路面机械网"
Obj.AddRecipient Email '收件人的E-MAIL地址
Obj.Subject = Topic '主题
Obj.Body = Mailbody '邮件正文内容
If Err<>0 Then
ErrMsg = ErrMsg & "邮件发送失败!原因：" & Err.Description
Else
Obj.Send("smtp.126.com")'SMTP邮件服务器地址
Obj.ClearRecipients()
If Err<>0 Then
Response.Write("邮件发送失败!原因：" & Err.Description)
Else
Response.Write("邮件发送成功!")
End If
End If
End Sub
Function ShowSex(Val)
Select Case Val
Case 1
ShowSex = "男"
Case 0
ShowSex = "女"
Case Else
ShowSex = ""
End Select
End Function
'要求工作经验
Function ShowWorkE1(Val)
If IsNumeric(Val) Then
Select Case Cint(Val)
Case 0
ShowWorkE1 = "不要求"
Case 1
ShowWorkE1 = "一年以上"
Case 2
ShowWorkE1 = "两年以上"
Case 3
ShowWorkE1 = "三年以上"
Case 4
ShowWorkE1 = "五年以上"
Case 5
ShowWorkE1 = "十年以上"
Case Else
ShowWorkE1 = ""
End Select
Else
ShowWorkE1 = Val
End If
End Function
'职称
Function ShowWorkE(Val)
If IsNumeric(Val) Then
Select Case Cint(Val)
Case 0
ShowWorkE = "助理工程师"
Case 1
ShowWorkE = "工程师"
Case 2
ShowWorkE = "高级工程师"
Case 3
ShowWorkE = "副研究员"
Case 4
ShowWorkE = "研究员"
Case 5
ShowWorkE = "教授"
Case 6
ShowWorkE = "副高级工程师"
Case 7
ShowWorkE = "正高级工程师"
Case 8
ShowWorkE = "教授级高工"
Case 9
ShowWorkE = "研究员高工"
Case 10
ShowWorkE = "经济师"
Case 11
ShowWorkE = "讲师"
Case 12
ShowWorkE = "高级讲师"
Case 13
ShowWorkE = "副教授"
Case 14
ShowWorkE = "会计师"
Case 15
ShowWorkE = "高级会计师"
Case 16
ShowWorkE = "副高级经济师"
Case 17
ShowWorkE = "高级经济师"
Case 18
ShowWorkE = "高级实验师"
Case 19
ShowWorkE = "技师"
Case 20
ShowWorkE = "其他"
Case Else
ShowWorkE = ""
End Select
Else
ShowWorkE = Val
End If
End Function
Function ShowDegree(Val)
If IsNumeric(Val) Then
Select Case Val
Case 1
ShowDegree = "中专、高中"
Case 2
ShowDegree = "大专"
Case 3
ShowDegree = "本科"
Case 4
ShowDegree = "硕士"
Case 5
ShowDegree = "博士"
Case 6
ShowDegree = "其它"
Case Else
ShowDegree = ""
End Select
Else
ShowDegree = Val
End If
End Function
'月薪
Function ShowSalary(Val)
If IsNumeric(Val) Then
Select Case Val
Case 0
ShowSalary = "面议"
Case 1
ShowSalary = "1500以下"
Case 2
ShowSalary = "1500-2500"
Case 3
ShowSalary = "2500-4000"
Case 4
ShowSalary = "4000-8000"
Case 5
ShowSalary = "8000以上"
Case Else
ShowSalary = ""
End Select
Else
ShowSalary = Val
End If
End Function
'返回数组
Function RArray(Val,FGF)
RArray = split(Val,FGF)
End Function
'显示省市
Sub ShowSS(Val)
If IsNumeric(replace(replace(Val,"|",""),"-1","")) Then
Dim TArray:TArray=RArray(Val,"|")
response.Write("")
Else
response.Write(Val)
End If
End Sub
'防站外提交
Sub chkFrom()
Dim server1, server2,server3,server4
server1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Instr(server1,"lmjx.net")>=8 Then Exit Sub
If Cstr(server1)<>Cstr(server2) Then Response.Write("禁止从站外提交."):response.End()
End Sub
Function Checkstr(Str)
If Isnull(Str) Then
CheckStr = ""
Exit Function
End If
Str = Replace(Str,Chr(0),"")
CheckStr = Replace(Str,"'","''")
End Function
'去掉HTML标记
Function Replacehtml(Textstr)
Dim Str,re
Str=Textstr
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str, "")
Set Re=Nothing
Replacehtml=Str
End Function
%>
<%
Dim action,Rid
action = Request.QueryString("action")
If Request.QueryString("Rid")="" or Not (IsNumeric(Request.QueryString("Rid"))) Then response.Write("参数错误！"):response.End()
Rid = Request.QueryString("Rid")
Select Case action
Case "Fav"
CheckUserID()
Call AddResumeFav(Rid)
Case else
Dim SqlStr,rs
SqlStr = "select * from DV_Specialist where IsShow=1 and ResumeID="&Rid
Set rs=server.CreateObject("adodb.recordset")
rs.open SqlStr,Conn,1,1
Conn.Execute("update DV_Specialist set hits=hits+1 where IsShow=1 and ResumeID="&Rid)
End Select
%>
专家概况
<%=HTMLEncode(rs("selfIntro"))%>
<%=rs("userName")%>
社会兼职