📄 detail.asp

📁 === ==ASP销售管理系统
💻 ASP
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 2000100'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
'操作类型
op = request("op")
Project_ID = request("Project_ID")
if not IsNot(Project_ID,"n") then
	response.write "项目编号丢失"
	response.end
end if

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select Projects.*,Customers.Customer_Name,Employee.Employee_Name from Projects,Customers,Employee "
sql = sql & " where Projects.Project_ID = " & Project_ID
sql = sql & " and Projects.Customer_ID = Customers.Customer_ID "
sql = sql & " and Projects.Project_Manager = Employee.Employee_ID "
'response.write sql
set rs = conn.execute(sql)
	Project_Name = rs("Project_Name")
	Customer_ID = rs("Customer_ID")
	Customer_Name = rs("Customer_Name")
	Project_Manager = rs("Project_Manager")
	Employee_Name = rs("Employee_Name")
	Begin_Date_Plan = rs("Begin_Date_Plan")
	End_Date_Plan = rs("End_Date_Plan")
	End_Date_Act = rs("End_Date_Act")
	Project_Status = rs("Project_Status")
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
	<title>Untitled</title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<LINK rel="stylesheet" type="text/css" href="../style.css">
	<script language="JavaScript" type="text/javascript" src="../js/functions.js"></script>
	<script language="JavaScript" type="text/javascript">
	function ConfirmOption(Employee_ID,Employee_Name){
		if(<%= Session("Employee_ID") %> == 1 || Employee_ID == <%= Session("Employee_ID") %>){			
			if(confirm('您确定要修改项目吗？')){
				return true;
			}else{
				return false;
			}
		}else{
			alert('警告！您不是该项目的项目经理，请联系 ' + Employee_Name + ' 进行修改。');
			return false;
		}
	}
	function setEndDateAct(tag){
		if(document.frm.End_Date_Act){
			if(tag){
				document.frm.End_Date_Act.value = document.frm.End_Date_Plan.value;
			}else{
				document.frm.End_Date_Act.value = "";
			}
		}
	}
	</script>
</head>
<body>
<form action="modi.asp" method="post" name="frm" id="frm" target="foot">
<input type="hidden" name="Project_ID" value="<%= Project_ID %>">
<table border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
	<td>项目名称：<%= Project_Name %></td>
	<td align="right">◆ <a href="list.asp?UseResult=yes">返回上次项目查询结果</a></td>
</tr>
</table>
<hr size=1>
<table border="0" cellpadding=0 cellspacing=0 bgcolor="#EEEEEE">
<tr>
	<td bgcolor="#000000">&nbsp;<font color="#FFFFFF">项目信息</font>&nbsp;</td>
	<td width="1" bgcolor="#FFFFFF"></td>
	<td>&nbsp;<a href="members.asp?Project_ID=<%= Project_ID %>">项目成员</a>&nbsp;</td>
	<td width="1" bgcolor="#FFFFFF"></td>
	<td>&nbsp;<a href="journal.asp?Project_ID=<%= Project_ID %>">项目日志</a>&nbsp;</td>
	<td width="1" bgcolor="#FFFFFF"></td>
	<td>&nbsp;<a href="customer_members.asp?Project_ID=<%= Project_ID %>">客户参与成员</a>&nbsp;</td>
	<td width="1" bgcolor="#FFFFFF"></td>
	<td>&nbsp;<a href="docs.asp?Project_ID=<%= Project_ID %>">项目文档</a>&nbsp;</td>
	<td width="50" bgcolor="#FFFFFF"></td>
</tr>
<tr>
	<td colspan="10" bgcolor="#999999" height="1"></td>
</tr>
</table>
<% If op = "modi" then %>
<table bgcolor="#ffffff" border=0 cellpadding=1 cellspacing=1>
<tr>
	<td bgcolor="#EFEFEF">项目名称</td><td bgcolor="#FFFFFF"><input name="Project_Name" type="text" size="32" value="<%= Project_Name %>"></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">项目经理</td><td bgcolor="#FFFFFF">
	<input name="Employee_Name" type="text" size="16" readonly onClick="return getEmployeeID();" value="<%= Employee_Name %>"><input name="Employee_ID" type="hidden" size="5" readonly onClick="return getEmployeeID();" value="<%= Project_Manager %>">
	</td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">客户名称</td><td bgcolor="#FFFFFF">
	<input name="Customer_Name" type="text" size="32" value="<%= Customer_Name %>" readonly onClick="return getCustomerID();"><input name="Customer_ID" type="hidden" size="5" value="<%= Customer_ID %>" readonly onClick="return getCustomerID();">
	</td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">开始日期</td><td bgcolor="#FFFFFF"><input name="Begin_Date_Plan" type="text" size="16" value="<%= Begin_Date_Plan %>"></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">计划结束日期</td><td bgcolor="#FFFFFF"><input name="End_Date_Plan" type="text" size="16" value="<%= End_Date_Plan %>"></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">实际结束日期</td><td bgcolor="#FFFFFF"><input name="End_Date_Act" type="text" size="16"></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">项目状态</td>
	<td>
	<% If Project_Status then %>
	<input type="radio" name="Project_Status" value="1" checked onClick="return setEndDateAct(1);"><font color="#008800">已完成</font>
	<input type="radio" name="Project_Status" value="0" onClick="return setEndDateAct(0);"><font color="#FF0000">进行中</font>
	<% Else  %>
	<input type="radio" name="Project_Status" value="0" checked onClick="return setEndDateAct(0);"><font color="#FF0000">进行中</font>
	<input type="radio" name="Project_Status" value="1" onClick="return setEndDateAct(1);"><font color="#008800">已完成</font>
	<% End If %>
	</td>
</tr>
</table>
<input type="submit" name="Submit" value="保存修改">
<% Else  %>
<table bgcolor="#CCCCCC" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
	<td bgcolor="#EFEFEF">项目名称</td><td bgcolor="#FFFFFF"><%= Project_Name %></td>
	<td bgcolor="#EFEFEF">项目经理</td><td bgcolor="#FFFFFF"><a href="../employee/detail.asp?Employee_ID=<%= Project_Manager %>" target="foot"><%= Employee_Name %></a></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">客户名称</td><td bgcolor="#FFFFFF" colspan=3><a href="../customer/detail.asp?Customer_ID=<%= Customer_ID %>"><%= Customer_Name %></a></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">开始日期</td><td bgcolor="#FFFFFF"><%= Begin_Date_Plan %></td>
	<td bgcolor="#EFEFEF">计划结束日期</td><td bgcolor="#FFFFFF"><%= End_Date_Plan %></td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">实际结束日期</td><td bgcolor="#FFFFFF"><% If Project_Status then response.write End_Date_Act %></td>
	<td bgcolor="#EFEFEF">计划用时</td><td bgcolor="#FFFFFF"><%=  workdays(Begin_Date_Plan,End_Date_Plan) %>&nbsp;个工作日</td>
</tr>
<tr>
	<td bgcolor="#EFEFEF">实际用时</td><td bgcolor="#FFFFFF"><% If Project_Status then response.write  workdays(Begin_Date_Plan,End_Date_Act) & "&nbsp;个工作日" %></td>
	<td bgcolor="#EFEFEF">项目状态</td>
	<td bgcolor="#FFFFFF">
	<% If Project_Status then %>
	<font color="#008800"><strong>√</strong>已完成</font>
	<% Else  %>
	<font color="#FF0000"><strong>×</strong>进行中......</font>
	<% End If %>
	</td>
</tr>
<tr>
	<td bgcolor="#EFEFEF"></td>
	<td bgcolor="#FFFFFF"><a href="detail.asp?Project_ID=<%= Project_ID %>&op=modi" onClick="return ConfirmOption(<%= Project_Manager %>,'<%= Employee_Name %>');">修改项目信息</a></td>
	<td bgcolor="#EFEFEF"></td>
	<td bgcolor="#FFFFFF"><a href="../contract/list.asp?Project_ID=<%= Project_ID %>">查看相关合同</a></td>
</tr>
</table>
<% End If %>
</form>
</body>
</html>
💿 文件大小 688 K
👤 上传用户 zhangpeng
📂 所属分类 *行业应用
🏷️ 相关标签

#ASP #销售 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -