📄 detail.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 3000100 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Contract_ID = request("Contract_ID")
if not IsNot(Contract_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 Contracts.*,Customers.Customer_Name,Employee.Employee_Name from Contracts,Customers,Employee where "
sql = sql & " Contracts.Employee_ID = Employee.Employee_ID and Contracts.Customer_ID = Customers.Customer_ID "
sql = sql & " and Contracts.Contract_ID = " & Contract_ID
'response.write sql
set rs = conn.execute(sql)
if not rs.eof then
Contract_No = rs("Contract_No")
Customer_ID = rs("Customer_ID")
Ext_Name = rs("Ext_Name")
Customer_Name = rs("Customer_Name")
Project_ID = rs("Project_ID")
Employee_ID = rs("Employee_ID")
Employee_NAme = rs("Employee_Name")
Account = rs("Account")
Chg_Account = rs("Chg_Account")
Sign_Date = rs("Sign_Date")
Other_Cost = rs("Other_Cost")
Base_Cost = rs("Base_Cost")
Received = rs("Received")
Contract_Status = rs("Contract_Status")
End_Date = rs("End_Date")
else
response.write "没有该合同"
response.end
end if
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">
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;
}
}
</script>
</head>
<body>
<table border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
<td>合同编号：<font color="#FF0000"><%= Contract_No %></font> 客户名称：<%= Customer_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"> <font color="#FFFFFF">合同内容</font> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="pay_rec.asp?Contract_ID=<%=Contract_ID%>">收款记录</a> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="other_rec.asp?Contract_ID=<%=Contract_ID%>">外包费记录</a> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="base_rec.asp?Contract_ID=<%=Contract_ID%>">基础业务记录</a> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="chg_rec.asp?Contract_ID=<%=Contract_ID%>">合同变更记录</a> </td>
<td width="50" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td colspan="10" bgcolor="#999999" height="1"></td>
</tr>
</table>
<table bgcolor="#CCCCCC" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
<td bgcolor="#EFEFEF">合同编号</td><td bgcolor="#FFFFFF"><%= Contract_No %></td>
<td bgcolor="#EFEFEF">客户名称</td><td bgcolor="#FFFFFF"><a href="../customer/detail.asp?Customer_ID=<%= Customer_ID %>"><%= Customer_Name %></a></td>
<td bgcolor="#EFEFEF">签约人</td><td bgcolor="#FFFFFF"><a href="../employee/detail.asp?Employee_ID=<%= Employee_ID %>" target="foot"><%= Employee_Name %></a></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">金额</td><td bgcolor="#FFFFFF">￥<%= Account %></td>
<td bgcolor="#EFEFEF">变更金额</td><td bgcolor="#FFFFFF"><font color="#FF0000">￥<%= Chg_Account %></font></td>
<td bgcolor="#EFEFEF">外包费</td><td bgcolor="#FFFFFF">￥<%= Other_Cost %></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">基础业务费</td><td bgcolor="#FFFFFF">￥<%= Base_Cost %></td>
<td bgcolor="#EFEFEF">已收金额</td><td bgcolor="#FFFFFF">￥<%= Received %></td>
<td bgcolor="#EFEFEF">应收金额</td><td bgcolor="#FFFFFF">￥<%= (Account + Chg_Account - Received) %></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">业绩金额</td><td bgcolor="#FFFFFF">￥<%= (Received - Base_Cost - Other_Cost) %></td>
<td bgcolor="#EFEFEF">签约日期</td><td bgcolor="#FFFFFF"><%= Sign_Date %></td>
<td bgcolor="#EFEFEF">结束日期</td><td bgcolor="#FFFFFF">2002-12-12</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">相关项目</td><td bgcolor="#FFFFFF" colspan="2"><a href="../project/detail.asp?Project_ID=<%=Project_ID%>">查看该合同的相关项目</a></td>
<td bgcolor="#FFFFFF" colspan="3">
<%
if Contract_Status then
%>
<font color="#008800"><strong>√</strong></font> 履行完毕
<%
else
%>
<font color="#FF0000"><strong>×</strong></font> 履行中......
<%
end if
%>
<% if not Contract_Status then %>
<font color="#008800"><strong>√</strong></font>
<a href="change_contract_status.asp?Contract_ID=<%= Contract_ID %>&Contract_Status=1" onClick="return ConfirmOption(<%= Employee_ID %>,'<%= Employee_Name %>');" target="foot">更改合同状态为“履行完毕”</a>
<% Else %>
<font color="#FF0000"><strong>×</strong></font>
<a href="change_contract_status.asp?Contract_ID=<%= Contract_ID %>&Contract_Status=0" onClick="return ConfirmOption(<%= Employee_ID %>,'<%= Employee_Name %>');" target="foot">更改合同状态为“履行中......”</a>
<%end if%>
</td>
</tr>
</table>
<% If trim(Ext_Name) <> "" then %>
<a href="../upload_documents/contract_<%= Contract_ID %>.<%= Ext_Name %>" target="foot">查看合同正文</a>
<% Else %>
<a href="#" onClick="javascript:alert('合同文件尚未上传！');return false;">查看合同正文</a>
<% End If %>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -