📄 invite_info_save.asp

📁 北京华信东方网络办公系统

💻 ASP

字号:

<%@ Language=VBScript %>
<html>
<head>
<title>招聘内容</title>
<link href="../../js/hystudio.css" rel="stylesheet" type="text/css">
<!--#include file= "../dbase.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
dim ErrorInfo
ErrorInfo=""
if request.Form("JobName")<>"" then
JobName=xuankong(request.Form("JobName"))
else
ErrorInfo="<li>请录入您所招聘工作的职位"
end if
if request.Form("JobDesire")<>"" then
JobDesire=xuankong(request.Form("JobDesire"))
else
ErrorInfo=ErrorInfo & "<li>请录入您所招聘工作的要求"
end if
if ErrorInfo<>"" then
response.Write ErrorInfo
response.Write("<br><br><p align='center'><INPUT type='button' value=' 返 回 ' onclick='self.history.go(-1);'></p>")
response.End()
end if

sql=" SELECT v_JobName, i_Amount, v_JobDesire "&_
	" FROM hxdf_job_invite "&_
	" WHERE v_JobName like '"&JobName&"'"
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,3
if rs.EOF then
	rs.addnew
end if
	if JobName <> "" then
	rs("v_JobName") = JobName
	end if	
	if request.Form("Amount") <> "" then
	rs("i_Amount") = request.Form("Amount")
	end if
	if JobDesire <> "" then
	rs("v_JobDesire") = JobDesire
	end if	
	rs.Update	
	rs.close
	if err.number<>0 then
	response.Write ("数据更新失败")
	response.End()
	else
	response.Redirect("invite_info_publish.asp")
	end if%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -