📄 regsave.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>保存个人简历</title>
</head>
<body>
<%
Dim StrAction
'得到动作参数，如果为add则表示添加操作，如果为update则表示更改操作
StrAction = Request.QueryString("action")
'取得基本信息
Set rs = Server.CreateObject("ADODB.RECORDSET")
Set rs1 = Server.CreateObject("ADODB.RECORDSET")
If StrAction="add" Then
'判断是否存在此用户名
Set rs = Conn.Execute("Select * From Person Where UserName='"&Request("username")&"'")
If rs.EOF Then
'在数据库表Person中插入新简历
sql="Select * from Person"
rs1.Open sql,Conn,1,3
rs1.AddNew
rs1("UserName")= Request("username")
rs1("Pwd") = Request("pwd")
rs1("RealName") = Request("realname")
rs1("Sex") = Request("sex")
rs1("Birth") = Request("birth")
rs1("IDCard") = Request("idcard")
rs1("Nature") = Request("nature")
rs1("Married") = Request("married")
rs1("HuKou") = Request("hukou")
rs1("Location") = Request("location")
rs1("Education") = Request("education")
rs1("College") = Request("college")
rs1("Telephone") = Request("telephone")
rs1("Mobile") = Request("mobile")
rs1("Email") = Request("email")
rs1("Address") = Request("address")
rs1("Apptitle") = Request("apptitle")
rs1("English") = Request("english")
rs1("Computer") = Request("computer")
rs1("Main") = Request("main")
rs1("PostTime") = Date()
rs1.Update
Response.Write "<h3>个人简历成功保存</h3>"
Else
Response.Write "<Script language='JavaScript'>alert('已经存在此用户名！');history.go(-1);</script>"
End If
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 + -