📄 compsave.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
'取得基本信息
introduce = Trim(Request("introduce"))
introduce = Replace(introduce ,"'","‘")
Set rs = Server.CreateObject("ADODB.RECORDSET")
'更改此简历信息
sql="Select * from Company Where CName='" & Session("user_id") & "'"
rs.Open sql, Conn, 1, 3
rs("Company") = Request("company")
rs("Type") = Request("type")
rs("FormTime") = Request("formdate")
rs("Contactor") = Request("contactor")
If Request("emplnum") = "" Then
emplnum = 0
Else
emplnum = CInt(Request("emplnum"))
End If
rs("EmplNum") = emplnum
rs("Location") = Request("location")
rs("Telephone") = Request("telephone")
rs("Fax") = Request("fax")
rs("Email") = Request("email")
rs("Address") = Request("address")
rs("ZipCode") = Request("zipcode")
rs("Http") = Request("http")
rs("Introduce") = changechr(introduce)
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 + -