<% call ShowTop(4,2,"") If request("REQUEST_METHOD") = "POST" Then If Request.Form("mim") <> Request.Form("qr_mim") Then Response.Write "密码与确认密码不一致，请重新输入！" Response.End End If Dim con_ Dim rst_ Dim strMsg Set con_ = Server.CreateObject("ADODB.CONNECTION") Set rst_ = Server.CreateObject("ADODB.recordset") con_.Open con_ger rst_.Open "select * from 个人 where 用户代号='" & trim(Request.form("yhdh")) & "'", con_, 1, 2 if rst_.EOF then rst_.addnew session("0668_rc_user_hydh")=trim(Request.form("yhdh")) session("0668_rc_user_type")="gr" rst_("用户代号") = trim(Request.form("yhdh")) rst_("密码") = Request.form("mim") rst_("是否保密") = Request.form("shifbm") rst_("姓名") = Request.form("xingm") rst_("性别") = Request.form("xingb") rst_("出生日期") = datevalue(Request.form("chusrq_year") & "-" & Request.form("chusrq_month") & "-" & Request.form("chusrq_day")) rst_("民族") = Request.form("minz") rst_("籍贯") = Request.form("zig") rst_("住址") = Request.form("zhuz") rst_("邮编") = Request.form("youb") rst_("住宅电话") = Request.form("zhuzdh") rst_("联系电话") = Request.form("lianxdh") rst_("寻呼机") = Request.form("xunhj") rst_("电子邮件") = Request.form("dianzyj") rst_("个人网址") = Request.form("gerwz") if Request.form("zgxx")<>"" then rst_("最高教育开始时间") = datevalue(Request.form("zgkssj_year") & "-" & Request.form("zgkssj_month") & "-" & Request.form("zgkssj_day")) rst_("最高教育结束时间") = datevalue(Request.form("zgjssj_year") & "-" & Request.form("zgjssj_month") & "-" & Request.form("zgjssj_day")) rst_("最高教育学校") = Request.form("zgxx") end if rst_("最高教育学历") = Request.form("zgxl") rst_("最高教育专业") = Request.form("zgzy") if Request.form("gzjy")<>"" then rst_("全职工作经验") = clng(Request.form("gzjy")) rst_("最近工作开始时间") = datevalue(Request.form("gzkssj_year") & "-" & Request.form("gzkssj_month") & "-" & Request.form("gzkssj_day")) rst_("最近工作结束时间") = datevalue(Request.form("gzjssj_year") & "-" & Request.form("gzjssj_month") & "-" & Request.form("gzjssj_day")) end if rst_("最近工作行业") = Request.form("gzhy") rst_("最近工作职务") = Request.form("gzzw") rst_("最近工作职称") = Request.form("gzzc") rst_("最近工作开始公司") = Request.form("gzgs") rst_("工作经历") = Request.form("gzjl") rst_("专业特长") = Request.form("zytc") rst_("兴趣爱好") = Request.form("xqah") rst_("注册日期") = FormatDateTime(Date, vbShortDate) rst_("注册时间") = FormatDateTime(Time, vbShortTime) rst_("IP") = Request.ServerVariables("REMOTE_ADDR") rst_.Update Response.Write "
个人用户注册成功

点击此处登录会员管理中心" else Response.Write "
个人用户注册失败，会员代号已经存在！" end if rst_.Close Set rst_ = Nothing con_.Close Set con_ = Nothing Else %>

基本资料
用户代号	10字节以内的数字或字母
密码	8字节以内的数字或字母
确认密码	8字节以内的数字或字母
是否保密
联系资料
姓名
性别
出生日期	年月日
民族
籍贯
住址
邮编	例如：525000
住宅电话
联系电话
寻呼机
电子邮件
个人网址
最高教育资料
最高教育开始时间	年月日
最高教育结束时间	年月日
最高教育学校
最高教育学历
最高教育专业
最近工作经验
全职工作经验	年，清填写数字(例如：2)
最近工作开始时间	年月日
最近工作结束时间	年月日
最近工作行业
最近工作职务
最近工作职称	例如：工程师
最近工作开始公司
附加资料
工作经历
专业特长
兴趣爱好	例如：足球，音乐...

<% End If %>