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"
 %>