jobsedit.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 300 行 · 第 1/2 页

    if request.Form("ViewFlagEn")=1 then
      if len(trim(request.Form("JobNameEn")))<1 or len(trim(request.Form("JobAddressCh")))<1 or len(trim(request.Form("EmolumentCh")))<1 then
      response.write ("<script language=javascript> alert('您已经选择了""英文""显示，因此英文名称、工作地点、月薪水为必填项目！');history.back(-1);</script>")
      response.end
      end if
    end if
    if not IsNumeric(trim(request.Form("JobNumber"))) then
      response.write ("<script language=javascript> alert('""职位数量""请输入数字！');history.back(-1);</script>")
      response.end
    end if
    if not (IsDate(trim(request.Form("StartDate"))) or IsDate(trim(request.Form("EndDate")))) then
      response.write ("<script language=javascript> alert('""开始日期、结束日期""为必填项目，且为日期格式！');history.back(-1);</script>")
      response.end
    end if
    if Result="Add" then
	  sql="select * from LiangJingCMS_Jobs"
      rs.open sql,conn,1,3
      rs.addnew
      rs("JobNameCh")=trim(Request.Form("JobNameCh"))
      rs("JobNameEn")=trim(Request.Form("JobNameEn"))
	  if Request.Form("ViewFlagCh")=1 then
        rs("ViewFlagCh")=Request.Form("ViewFlagCh")
	  else
        rs("ViewFlagCh")=0
	  end if
	  if Request.Form("ViewFlagEn")=1 then
        rs("ViewFlagEn")=Request.Form("ViewFlagEn")
	  else
        rs("ViewFlagEn")=0
	  end if
	  rs("JobAddressCh")=trim(Request.Form("JobAddressCh"))
	  rs("JobAddressEn")=trim(Request.Form("JobAddressEn"))
	  rs("JobNumber")=trim(Request.Form("JobNumber"))
	  rs("EmolumentCh")=trim(Request.Form("EmolumentCh"))
	  rs("EmolumentEn")=trim(Request.Form("EmolumentEn"))
	  rs("StartDate")=trim(Request.Form("StartDate"))
	  rs("EndDate")=trim(Request.Form("EndDate"))
	  rs("ResponsibilityCh")=StrReplace(Request.Form("ResponsibilityCh"))
	  rs("ResponsibilityEn")=StrReplace(Request.Form("ResponsibilityEn"))
	  rs("RequirementCh")=StrReplace(Request.Form("RequirementCh"))
	  rs("RequirementEn")=StrReplace(Request.Form("RequirementEn"))
	  rs("AddTime")=now()
	  rs("UpdateTime")=rs("AddTime")
	  rs("eEmployerCh")=trim(Request.Form("eEmployerCh"))
	  rs("eEmployerEn")=trim(Request.Form("eEmployerEn"))
	  rs("eContactCh")=trim(Request.Form("eContactCh"))
	  rs("eContactEn")=trim(Request.Form("eContactEn"))
	  rs("eTel")=trim(Request.Form("eTel"))
	  rs("eAddressCh")=trim(Request.Form("eAddressCh"))
	  rs("eAddressEn")=trim(Request.Form("eAddressEn"))
	  rs("ePostCode")=trim(Request.Form("ePostCode"))
	  rs("eEmail")=trim(Request.Form("eEmail"))
	  rs.update
	  rs.close
	  set rs=Nothing
	  set rs=server.createobject("adodb.recordset")
	  sql="select top 1 ID from LiangJingCMS_Jobs order by ID desc"
	  rs.open sql,conn,1,1
	  ID=rs("ID")
	  rs.close
	  set rs=Nothing
	  if ISHTML = 1 then
	  call htmll("/CH/","/CH/",""&JobNameChDiy&""&Separated&""&ID&"."&HTMLName&"","JobsView.asp","ID=",ID,"","")
	  call htmll("/EN/","/EN/",""&JobNameChDiy&""&Separated&""&ID&"."&HTMLName&"","JobsView.asp","ID=",ID,"","")
	  End If
	end if
	if Result="Modify" then
      sql="select * from LiangJingCMS_Jobs where ID="&ID
      rs.open sql,conn,1,3
      rs("JobNameCh")=trim(Request.Form("JobNameCh"))
      rs("JobNameEn")=trim(Request.Form("JobNameEn"))
	  if Request.Form("ViewFlagCh")=1 then
        rs("ViewFlagCh")=Request.Form("ViewFlagCh")
	  else
        rs("ViewFlagCh")=0
	  end if
	  if Request.Form("ViewFlagEn")=1 then
        rs("ViewFlagEn")=Request.Form("ViewFlagEn")
	  else
        rs("ViewFlagEn")=0
	  end if
	  rs("JobAddressCh")=trim(Request.Form("JobAddressCh"))
	  rs("JobAddressEn")=trim(Request.Form("JobAddressEn"))
	  rs("JobNumber")=trim(Request.Form("JobNumber"))
	  rs("EmolumentCh")=trim(Request.Form("EmolumentCh"))
	  rs("EmolumentEn")=trim(Request.Form("EmolumentEn"))
	  rs("StartDate")=trim(Request.Form("StartDate"))
	  rs("EndDate")=trim(Request.Form("EndDate"))
	  rs("ResponsibilityCh")=StrReplace(Request.Form("ResponsibilityCh"))
	  rs("ResponsibilityEn")=StrReplace(Request.Form("ResponsibilityEn"))
	  rs("RequirementCh")=StrReplace(Request.Form("RequirementCh"))
	  rs("RequirementEn")=StrReplace(Request.Form("RequirementEn"))
	  rs("UpdateTime")=now()
	  rs("eEmployerCh")=trim(Request.Form("eEmployerCh"))
	  rs("eEmployerEn")=trim(Request.Form("eEmployerEn"))
	  rs("eContactCh")=trim(Request.Form("eContactCh"))
	  rs("eContactEn")=trim(Request.Form("eContactEn"))
	  rs("eTel")=trim(Request.Form("eTel"))
	  rs("eAddressCh")=trim(Request.Form("eAddressCh"))
	  rs("eAddressEn")=trim(Request.Form("eAddressEn"))
	  rs("ePostCode")=trim(Request.Form("ePostCode"))
	  rs("eEmail")=trim(Request.Form("eEmail"))
	  rs.update
	  rs.close
	  set rs=Nothing
	  if ISHTML = 1 then
	  call htmll("/CH/","/CH/",""&JobNameChDiy&""&Separated&""&ID&"."&HTMLName&"","JobsView.asp","ID=",ID,"","")
	  call htmll("/EN/","/EN/",""&JobNameChDiy&""&Separated&""&ID&"."&HTMLName&"","JobsView.asp","ID=",ID,"","")
	  End If
	end if
    if ISHTML = 1 then
    response.write "<script language='javascript'>alert('设置成功，相关静态页面已更新！');location.replace('JobsList.asp');</script>"
	Else
	response.write "<script language='javascript'>alert('设置成功！');location.replace('JobsList.asp');</script>"
	End If
  else
	if Result="Modify" then
      set rs = server.createobject("adodb.recordset")
      sql="select * from LiangJingCMS_Jobs where ID="& ID
      rs.open sql,conn,1,1
	  JobNameCh=rs("JobNameCh")
	  JobNameEn=rs("JobNameEn")
	  ViewFlagCh=rs("ViewFlagCh")
	  ViewFlagEn=rs("ViewFlagEn")
	  JobAddressCh=rs("JobAddressCh")
	  JobAddressEn=rs("JobAddressEn")
	  JobNumber=rs("JobNumber")
	  EmolumentCh=rs("EmolumentCh")
	  EmolumentEn=rs("EmolumentEn")
	  ResponsibilityCh=ReStrReplace(rs("ResponsibilityCh"))
	  ResponsibilityEn=ReStrReplace(rs("ResponsibilityEn"))
	  RequirementCh=ReStrReplace(rs("RequirementCh"))
	  RequirementEn=ReStrReplace(rs("RequirementEn"))
	  StartDate=rs("StartDate")	
	  EndDate=rs("EndDate")	  
      eEmployerCh=rs("eEmployerCh")
	  eEmployerEn=rs("eEmployerEn")
	  eContactCh=rs("eContactCh")
	  eContactEn=rs("eContactEn")
	  eTel=rs("eTel")
	  eAddressCh=rs("eAddressCh")
	  eAddressEn=rs("eAddressEn")
	  ePostCode=rs("ePostCode")
	  eEmail=rs("eEmail")
	  rs.close
      set rs=nothing
	end if
  end if
end sub
%>