📄 jobsave.asp
字号:
<!--#include file="../conndb.asp"-->
<!--#include file="isUser.asp"-->
<html>
<head>
<title>保存招聘信息</title>
</head>
<body>
<%
Function changechr(str)
changechr = Replace(str," "," ")
changechr = Replace(changechr,Chr(13),"<br>")
changechr = Replace(changechr,"'","‘")
End Function
Dim StrAction,jid
'得到动作参数，如果为add则表示添加操作，如果为update则表示更改操作
StrAction = Request.QueryString("action")
Set rs = Server.CreateObject("ADODB.RECORDSET")
If StrAction="add" Then
'在数据库表Job中插入新招聘信息
sql="Select * from Job"
rs.Open sql,Conn,1,3
rs.AddNew
rs("UserName")= Session("user_id")
rs("Type") = Request("Type")
rs("Title") = Request("title")
rs("Sex") = Request("sex")
rs("Education") = Request("education")
rs("Age") = Request("age")
rs("WorkTime") = Request("worktime")
rs("WorkPlace") = Request("WorkPlace")
rs("JobNum") = Request("num")
rs("Comment") = changechr(Request("comment"))
rs("PostTime") = Date()
rs.Update
Response.Write "<h3>招聘信息成功保存</h3>"
Else
jid = Request.QueryString("jid")
'更改此招聘信息
sql="Select * from Job Where JobId=" &jid&" And UserName='"&Session("user_id")&"'"
rs.Open sql,Conn,1,3
rs("Type") = Request("Type")
rs("Title") = Request("title")
rs("Sex") = Request("sex")
rs("Education") = Request("education")
rs("Age") = Request("age")
rs("WorkTime") = Request("worktime")
rs("WorkPlace") = Request("WorkPlace")
rs("JobNum") = Request("num")
rs("Comment") = changechr(Request("comment"))
rs.Update
Response.Write "<h3>招聘信息成功保存</h3>"
End If
Set rs = Nothing
%>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -