new_exe.asp

来自「=== ==ASP销售管理系统」· ASP 代码 · 共 64 行

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 3000200	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Contract_No = request("Contract_No")
Customer_ID = request("Customer_ID")
Project_ID = request("Project_ID")
Account = request("Account")
Sign_Date = request("Sign_Date")
End_Date = request("End_Date")
Employee_ID = request("Employee_ID")
if not IsNot(Contract_No,"s") then
	response.write " 合同编号输入不正确"
	response.end
end if
if not IsNot(Customer_ID,"n") then
	response.write "客户编号丢失或不正确"
	response.end
end if
if not IsNot(Project_ID,"n") then
	response.write "项目编号丢失或不正确"
	response.end
end if
if not IsNot(Account,"n") then
	response.write "金额“" & Account & "”输入不正确"
	response.end
end if
if not IsNot(Sign_Date,"d") then
	response.write "签约日期“" & Sign_Date& "”输入不正确，请按照yyyy-mm-dd的格式输入"
	response.end
end if
if not IsNot(End_Date,"d") then
	response.write "结束日期“" & End_Date& "”输入不正确，请按照yyyy-mm-dd的格式输入"
	response.end
end if
if not IsNot(Employee_ID,"n") then
	response.write "没有指定签约人"
	response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "sp_Contract_New '" & Contract_No & "'," & Customer_ID & "," & Project_ID & "," & Employee_ID & "," & Account & ",'" & Sign_Date & "','" & End_Date & "'"
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing

'操作日志
Rec_Content = "添加新合同"
Command_Line = sql
call Op_Rec(Rec_Content,Command_Line)
%>
成功签定新合同！
<script language="JavaScript" type="text/javascript">
	parent.main.location.reload();
</script>