?? emp_edu_process.asp
字號:
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
EmpID = request.form("EmpID")
if EmpID="" then
response.write("錯誤，請返回！")
response.End()
end if
%>
<%
Set MM_editCmd = Server.CreateObject("ADODB.Command")
%>
<%
bz= request.form("備注")
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 T_BuyRecord ",MM_EmpMain_STRING,3,3
rs.addnew
rs("F_CompanyId")=EmpID
rs("F_ProductName")=cp
rs("F_Count")=count1
rs("F_Contect")=content
rs("F_Business")=session("name")
rs("F_IsOf")=isof
rs("F_SpecialNote")=bz
rs("F_Date")=startDate
rs.update
rs.close
set rs=nothing
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from T_Client where F_Id="&EmpID &" ",MM_EmpMain_STRING,3,3
if rs.eof then
else
if rs("F_Levels")="后期客戶" then
else
rs("F_Levels")="后期客戶"
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 + -