📄 emp_edu_process.asp
字号:
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%'本系统由5blogs.com修改为客户关系管理系统，界面来自于网络
'-----我博客:http://www.5blogs.com ，欢迎各位前来注册使用博客服务。
'你在使用中有任何问题请访问站长博客：www.5blogs.com/wxtwxt留 言!
'请保留 以上信息
EmpID = request.form("EmpID")
if EmpID="" then
response.write("erro,please to wxt ,http://www.5blogs.com/wxtwxt")
response.End()
end if
%>
<%
Set MM_editCmd = Server.CreateObject("ADODB.Command")
%>
<%
startDate = request.form("startDate")
cp= request.form("cp")
count1 = request.form("count1")
content = request.form("content")
isof = request.form("isof")
%>
<%
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from fahuo ",MM_EmpMain_STRING,3,3
rs.addnew
rs("companyid")=EmpID
rs("产品名称")=cp
rs("count")=count1
rs("联系人")=content
rs("业务交办人")=session("name")
rs("isof")=isof
rs("date")=startDate
rs.update
rs.close
set rs=nothing
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from kufu where id="&EmpID &" ",MM_EmpMain_STRING,3,3
if rs.eof then
else
if rs("客户等级")="已购买" then
else
rs("客户等级")="已购买"
rs.update
end if
end if
rs.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<script>
alert("新增资料成功!")
window.location="EmpMain_Edu_disp.asp?ID=<%=EmpID%>"
</script>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -