📄 resumesave.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>保存个人简历信息</title>
</head>
<body>
<%
Function changechr(str)
changechr = Replace(str," "," ")
changechr = Replace(changechr,Chr(13),"<br>")
changechr = Replace(changechr,"'","‘")
End Function
'取得基本信息
Set rs = Server.CreateObject("ADODB.RECORDSET")
'更改此简历信息
sql="Select * from Person Where UserName='" & Session("user_id") & "'"
rs.Open sql, Conn, 1, 3
rs("RealName") = Request("realname")
rs("Sex") = Request("sex")
rs("Birth") = Request("birth")
rs("IDCard") = Request("idcard")
rs("Nature") = Request("nature")
rs("Married") = Request("married")
rs("HuKou") = Request("hukou")
rs("Location") = Request("location")
rs("Education") = Request("education")
rs("College") = Request("college")
rs("Telephone") = Request("telephone")
rs("Mobile") = Request("mobile")
rs("Email") = Request("email")
rs("Address") = Request("address")
rs("Apptitle") = Request("apptitle")
rs("English") = Request("english")
rs("Computer") = Request("computer")
rs("Main") = Request("main")
rs.Update
Response.Write "<h3>个人简历成功保存</h3>"
Set rs = Nothing
%>
</body>
</html>
<Script Language="JavaScript">
alert("修改完成");
history.go(-1);
</Script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -