<% call isCanUser("gr") call ShowTop(5,2,"") If request("REQUEST_METHOD") = "POST" Then Dim con_ Dim rst_ Dim strMsg if Request.form("gzdd")="" and Request.form("yqyx")="" and _ Request.form("yphy")="" and Request.form("ypzw")="" and _ Request.form("gzxz")="" then Response.Write "请填写求职信息！" else Set con_ = Server.CreateObject("ADODB.CONNECTION") Set rst_ = Server.CreateObject("ADODB.recordset") con_.Open con_qiuzh rst_.Open "select * from 求职 where 用户代号='" & session("0668_rc_user_hydh") & "' and " & _ "应聘行业='" & Request.form("yphy") & "' and " & _ "应聘职务='" & Request.form("ypzw") & "' and " & _ "工作性质='" & Request.form("gzxz") & "'" _ , con_, 1, 2 if rst_.EOF then rst_.addnew rst_("用户代号") = session("0668_rc_user_hydh") rst_("要求工作地点") = Request.form("gzdd") rst_("要求月薪") = Request.form("yqyx") rst_("应聘行业") = Request.form("yphy") rst_("应聘职务") = Request.form("ypzw") rst_("工作性质") = Request.form("gzxz") rst_("备注") = Request.form("F_8") 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 end if Else %>
要求工作地点 例如：广东茂名
要求月薪 元，请填写数字(例如：1000)
应聘行业
应聘职务
工作性质
备注
请在此处填写你对求职的其他要求

  
<% End If %>