www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\company_publish_updata.asp
<!--#include file="inc/conn.asp"--> <!--#include file="com_session.asp"--> <!--#include file="resultred.asp"--> <% station=Request("jobSubCatalogry") if station="" then resultred"招聘职位不能为空" end if jobtype=Request("jobtype") membertype=Request("membertype") pnumber=Request("pnumber") limitime=Request("limitime") limitmode=Request("limitmode") if limitmode<>"" then limitime=limitmode end if echomode=Request("echomode") workcontent=Request("workcontent") stipend=Request("stipend") workseat1=Request("workseat1") workseat2=Request("workseat2") workseat3=Request("workseat3") subworkseat1=Request("subworkseat1") subworkseat2=Request("subworkseat2") subworkseat3=Request("subworkseat3") agef=Request("agef") aget=Request("aget") elsedeal=Request("elsedeal") study=Request("study") specialty=Request("specialty") gender=Request("gender") seat=Request("seat") experience=Request("experience") pclevel=Request("pclevel") forlang1=Request("forlang1") forlang2=Request("forlang2") forlang3=Request("forlang3") forlevel1=Request("forlevel1") forlevel2=Request("forlevel2") forlevel3=Request("forlevel3") elseneed=Request("elseneed") Set Rs=Server.CreateObject("Adodb.RecordSet") Rs.Open "select * from job_detail",conn,3,3 Rs.AddNew Rs("ep_id")=session("ep_id") Rs("station")=station Rs("jobtype")=jobtype Rs("membertype")=membertype Rs("pnumber")=pnumber Rs("starttime")=now() Rs("limitime")=limitime Rs("echomode")=echomode Rs("workcontent")=workcontent Rs("stipend")=stipend Rs("workseat1")=workseat1 Rs("workseat2")=workseat2 Rs("workseat3")=workseat3 Rs("subworkseat1")=subworkseat1 Rs("subworkseat2")=subworkseat2 Rs("subworkseat3")=subworkseat3 Rs("agef")=agef Rs("aget")=aget Rs("elsedeal")=elsedeal Rs("study")=study Rs("specialty")=specialty Rs("gender")=gender Rs("seat")=seat Rs("experience")=experience Rs("pclevel")=pclevel Rs("forlang1")=forlang1 Rs("forlang2")=forlang2 Rs("forlang3")=forlang3 Rs("forlevel1")=forlevel1 Rs("forlevel2")=forlevel2 Rs("forlevel3")=forlevel3 Rs("elseneed")=elseneed Rs.Update Rs.Close Set Rs=nothing Set conn=nothing Response.Redirect"company_publish_manage.asp" %>