modi.asp

=== ==ASP销售管理系统

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 2000300	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Project_ID = request("Project_ID")
Project_Name = request("Project_Name")
Project_Manager = request("Employee_ID")
Customer_ID = request("Customer_ID")
Begin_Date_Plan = request("Begin_Date_Plan")
End_Date_Plan = request("End_Date_Plan")
End_Date_Act = request("End_Date_Act")
Project_Status = request("Project_Status")
if not IsNot(Project_ID,"n") then
	response.write "项目编号丢失"
	response.end
end if
if not IsNot(Begin_Date_Plan,"d") then
	response.write "开始日期“" & Begin_Date_Plan & "”输入不正确，请按照yyyy-mm-dd格式输入"
	response.end
end if
if not IsNot(End_Date_Plan,"d") then
	response.write "计划结束日期“" & End_Date_Plan & "”输入不正确，请按照yyyy-mm-dd格式输入"
	response.end
end if
'如果项目为进行中，则实际结束日期取计划结束日期
if Project_Status = 0 then End_Date_Act = End_Date_Plan
if not IsNot(End_Date_Act,"d") then
	response.write "实际结束日期“" & End_Date_Act & "”输入不正确，请按照yyyy-mm-dd格式输入"
	response.end
end if

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "update Projects set "
sql = sql & " Project_Name = '" & Project_Name & "',"
sql = sql & " Project_Manager = " & Project_Manager & ","
sql = sql & " Customer_ID = " & Customer_ID & ","
sql = sql & " Begin_Date_Plan = '" & Begin_Date_Plan & "',"
sql = sql & " End_Date_Plan = '" & End_Date_Plan & "',"
sql = sql & " End_Date_Act = '" & End_Date_Act & "',"
sql = sql & " Project_Status = " & Project_Status
sql = sql & " where Project_ID = " & Project_ID
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing
%>
成功修改项目信息！
<script language="JavaScript" type="text/javascript">
	parent.main.location.reload();
</script>