<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% vocno=Request.QueryString("vocno") flag=Request.QueryString("flag") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") classcode="115" mymenu="career" tablename="career_user" myurl="hr_user.asp?x=1" if Request.ServerVariables("REQUEST_METHOD")="POST" then bz=0 realname=trim(Request.Form("realname")) address=Request.Form("address") zip=Request.Form("zip") phone=Request.Form("phone") sex=Request.Form("sex") nd=Request.Form("nd") yf=Request.Form("yf") dd=Request.Form("dd") certcode=Request.Form("certcode") email=Request.Form("email") marry=trim(Request.Form("marry")) salary=trim(Request.Form("salary")) workyear=trim(Request.Form("workyear")) terrain=trim(Request.Form("terrain")) degree=trim(Request.Form("degree")) school=trim(Request.Form("school")) specialty=trim(Request.Form("specialty")) wantsalary=trim(Request.Form("wantsalary")) nd1=Request.Form("nd1") yf1=Request.Form("yf1") dd1=Request.Form("dd1") terrain=trim(Request.Form("terrain")) content=trim(Request.Form("content")) remark=trim(Request.Form("remark")) if bz=0 then rs.Open tablename,cn,3,3 rs.AddNew rs("keyno")=syskeyno(tablename,"keyno") rs("creadate")=Now() rs("vocno")=vocno rs("flag")="0" rs("realname")=realname rs("address")=address rs("zip")=zip rs("phone")=phone rs("sex")=sex rs("certcode")=certcode rs("email")=email birthday=nd+"-"+yf+"-"+dd if IsDate(birthday) then rs("birthday")=cdate(birthday) end if rs("marry")=marry rs("salary")=salary rs("workyear")=workyear rs("degree")=degree rs("school")=school rs("specialty")=specialty rs("wantsalary")=wantsalary gradate=nd1+"-"+yf1+"-"+dd1 if IsDate(gradate) then rs("gradate")=cdate(gradate) end if rs("terrain")=terrain rs("ipaddress")=Request.ServerVariables("Remote_HOST") rs("remark")=remark rs("content")=content rs.Update() rs.Close Response.Redirect("hr_user.asp?vocno="&vocno&"&flag=2") end if else sqltext="select keyno,title from career where state='1' and keyno="&vocno rs.Open sqltext,cn,1,1 if not rs.EOF then title=trim(rs(1)) else Response.End end if rs.Close end if %> 澳大利亚人才招聘,澳洲人才招聘-ABC环球集团,ABC Migration & Education
<% sql="select keyno,title from career where state='1' order by sortnum desc" rs.Open sql,cn,1,1 do while not rs.EOF if vocno="" then vocno=rs(0) if cstr(vocno)=cstr(rs(0)) then %>
<%=trim(rs(1))%>
<%else%>
<%=trim(rs(1))%>
<% end if rs.MoveNext loop rs.Close %>
   填写个人资料(<%=title%>)
<%if flag="2" then%>
  您的资料已被系统接受!
<%end if%>

姓名: *
性别:
出生日期:
证件号码: *
联系电话: *
通讯地址:
邮政编码:
Email:
工作年限:
户口地区:
婚姻状况:
目前年薪:
期望月薪:
毕业院校:
最高学历:
毕业时间:
毕业专业:
个人简历: 填写教育培训经历,工作经验,技术特长和自我评价等
看法要求: 填写你对此职位的看法及要求等