<% Dim strMenu,PageTitle,sxcrcwzk sxcrcwzk=0 strMenu = "" PagePath = "../" Set jyrcw = New Site_Class Jyrcw.SiteConfig() Jyrcw.GotoErrPage() %> <% Dim Salary,Nature,Position_b,jyrcwqzddq,jyrcwgzjy,jyrcwjntc,jyrcwzwpj Set Rs = server.CreateObject("ADODB.recordset") If Request.Form <> "" Then Salary = Jyrcw.chgStr(Trim(Request.Form("Salary"))) Nature = Jyrcw.chgStr(Trim(Request.Form("Nature"))) Position_b = Jyrcw.chgStr(Trim(Request.Form("Position_b"))) Position_s = Jyrcw.chgStr(Trim(Request.Form("Position_s"))) JobPost = Jyrcw.chgStr(Trim(Request.Form("JobPost"))) Province = Jyrcw.chgStr(Trim(Request.Form("Province"))) City = Jyrcw.chgStr(Trim(Request.Form("City"))) County = Jyrcw.chgStr(Trim(Request.Form("County"))) jyrcwgerenhy = Jyrcw.chgStr(Trim(Request.Form("jyrcwgerenhy"))) jyrcwqzddq = Jyrcw.chgStr(Trim(Request.Form("jyrcwqzddq"))) jyrcwgzjy = Jyrcw.chgStr(Trim(Request.Form("WorkExp"))) jyrcwjntc = Jyrcw.chgStr(Trim(Request.Form("jyrcwjntc"))) jyrcwzwpj = Jyrcw.chgStr(Trim(Request.Form("jyrcwzwpj"))) If Len(Salary) > 5 Then Jyrcw.ShowMsg "月薪不能超过5位数字" , "" End If If Salary = "" Or IsNull(Salary) Then Jyrcw.ShowMsg "请输入要求月薪,要求月薪只能输入数字" , "" End If If Nature = "" Or IsNull(Nature) Then Jyrcw.ShowMsg "请选择工作性质" , "" End If If Position_b = "" Or IsNull(Position_b) Or Position_s = "" Or IsNull(Position_s) Then Jyrcw.ShowMsg "请选择拟定职业" , "" End If If JobPost = "" Or IsNull(JobPost) Then Jyrcw.ShowMsg "请输入求职意向岗位" , "" End If If Province = "" Or IsNull(Province) Or City = "" Or IsNull(City) Or County = "" Or IsNull(County) Then Jyrcw.ShowMsg "请输入工作地区" , "" End If Conn.Execute("update PersonTbl set Salary = "& Salary &" , Nature = '"& Nature &"' , Position_b = '"& Position_b &"' , Position_s = '"& Position_s &"' , JobPost = '"& JobPost &"' , Province = '"& Province &"' , City = '"& City &"' , County = '"& County &"' ,jyrcwgerenhy = '"& jyrcwgerenhy &"' , jyrcwqzddq = '"& jyrcwqzddq &"' , jyrcwgzjy = '"& jyrcwgzjy &"' , jyrcwjntc = '"& left(jyrcwjntc,254) &"' , jyrcwzwpj = '"& left(jyrcwzwpj,254) &"' where PerId = "& Request.Cookies("PerId") &" and UserName = '"& Request.Cookies("UserName") &"'") if Jyrcw.jyrcwxgsh=1 then Conn.Execute("update PersonTbl set IsSh = '1' where PerId = "& Request.Cookies("PerId")) end if if Telp="" or isnull(Telp) then Jyrcw.ShowMsg "请继续完善简历相关信息" , "ChgPerInfo_4.asp" else Jyrcw.ShowMsg "资料修改成功" , "ChgPerInfo_3.asp" end if End If Rs.Open "select * from PersonTbl where PerId = "& Request.Cookies("PerId") &" and UserName = '"& Request.Cookies("UserName") &"'" , Conn , 1 , 1 If Rs.Eof Then Jyrcw.ShowMsg "请不要提交非法参数" , "../Index.asp" Else Salary = Rs("Salary") Nature = Rs("Nature") Position_b = Rs("Position_b") Position_s = Rs("Position_s") JobPost = Rs("JobPost") Province = Rs("Province") City = Rs("City") County = Rs("County") jyrcwgerenhy = Rs("jyrcwgerenhy") jyrcwqzddq = Rs("jyrcwqzddq") jyrcwgzjy=Rs("jyrcwgzjy") jyrcwjntc=Rs("jyrcwjntc") jyrcwzwpj=Rs("jyrcwzwpj") End If Rs.Close %>
  • 求职意向
<%if JobPost="" or isnull(JobPost) then%>
请继续完善简历相关的基本资料,以获得更好的求职效果!
<%end if%>
*要求月薪: 不低于 元/月(如果面议请填“0”)
*工作性质:
*拟定行业:
*拟定职业:
*求职意向岗位:
*意向工作地区: (填写您希望的工作地区)
更多工作地区:  地区之间以顿号(、)隔开
工作经验:
技能特长: 255字之内
自我评价: 255字之内