📄 detail.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<!--#include file="../inc/trade.asp"-->
<%
Application_ID = 1000100 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Customer_ID = request("Customer_ID")
if not IsNot(Customer_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 Customers.*,Employee.Employee_Name from Customers,Employee where Customers.Customer_ID = " & Customer_ID & " and Customers.Employee_ID = Employee.Employee_ID"
set rs = conn.execute(sql)
if not rs.eof then
Customer_Name = rs("Customer_Name")
State = rs("State")
City = rs("City")
Address = rs("Address")
Zip_Code = rs("Zip_Code")
Tel = rs("Tel")
Fax = rs("Fax")
Email = rs("Email")
Homepage = rs("Homepage")
if Trim(Homepage) <> "" and LCase(Left(Homepage,7)) <> "http://" then Homepage = "http://" & Homepage
Trade_Code = rs("Trade_Code")
Contract_Status = rs("Contract_Status")
Project_Status = rs("Project_Status")
Description = rs("Description")
Employee_ID = rs("Employee_ID")
Employee_Name = rs("Employee_Name")
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" 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;
}
}
</script>
</head>
<body>
<form action="modi.asp" method="post" name="frm" target="foot">
<table border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
<td><a href="list.asp">客户管理</a> → <%=Customer_Name%> → <a href="detail.asp?Customer_ID=<%= Customer_ID %>&op=modi" onClick="return ConfirmOption(<%= Employee_ID %>,'<%= Employee_Name %>')">修改该客户资料</a></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="buy_rec.asp?Customer_ID=<%= Customer_ID %>">采购记录</a> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="pursue_rec.asp?Customer_ID=<%= Customer_ID %>">跟进记录</a> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="relapse_rec.asp?Customer_ID=<%= Customer_ID %>">回访记录</a> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="demand.asp?Customer_ID=<%= Customer_ID %>">需求表</a> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="contact_person.asp?Customer_ID=<%= Customer_ID %>">联系人</a> </td>
<td width="1" bgcolor="#FFFFFF"></td>
<td> <a href="docs.asp?Customer_ID=<%= Customer_ID %>">客户文档</a> </td>
<td width="50" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td colspan="14" bgcolor="#999999" height="1"></td>
</tr>
</table>
<%
'修改客户信息
If request("op") = "modi" then
%>
<table bgcolor="#ffffff" border=0 cellpadding=1 cellspacing=1>
<tr>
<td bgcolor="#EFEFEF">客户名称</td>
<td bgcolor="#FFFFFF">
<input type="hidden" name="Customer_ID" value="<%=Customer_ID%>">
<input name="Customer_Name" value="<%=Customer_Name%>" type="text" size="32"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">联系地址</td><td bgcolor="#FFFFFF">
<%
if Trim(State) = "" then State = "选择省份"
if Trim(City) = "" then City = "选择城市"
%>
<SELECT name="State" onChange="return chg_State(this.value);" size="1">
<option value="<%=State%>" selected><%=State%></option>
<option value="北京市">北京市</option>
<option value="天津市">天津市</option>
<option value="河北省">河北省</option>
<option value="山西省">山西省</option>
<option value="内蒙古自治区">内蒙古自治区</option>
<option value="辽宁省">辽宁省</option>
<option value="吉林省">吉林省</option>
<option value="黑龙江省">黑龙江省</option>
<option value="上海市">上海市</option>
<option value="江苏省">江苏省</option>
<option value="浙江省">浙江省</option>
<option value="安徽省">安徽省</option>
<option value="福建省">福建省</option>
<option value="江西省">江西省</option>
<option value="山东省">山东省</option>
<option value="河南省">河南省</option>
<option value="湖北省">湖北省</option>
<option value="湖南省">湖南省</option>
<option value="广东省">广东省</option>
<option value="广西壮族自治区">广西壮族自治区</option>
<option value="海南省">海南省</option>
<option value="重庆市">重庆市</option>
<option value="四川省">四川省</option>
<option value="贵州省">贵州省</option>
<option value="云南省">云南省</option>
<option value="西藏自治区">西藏自治区</option>
<option value="陕西省">陕西省</option>
<option value="甘肃省">甘肃省</option>
<option value="青海省">青海省</option>
<option value="宁夏回族自治区">宁夏回族自治区</option>
<option value="新疆维吾尔自治区">新疆维吾尔自治区</option>
<option value="香港特别行政区">香港特别行政区</option>
<option value="澳门特别行政区">澳门特别行政区</option>
<option value="台湾省">台湾省</option>
</SELECT>
<SELECT name="City" size="1">
<OPTION value="<%=City%>" selected><%=City%></OPTION>
</SELECT>
<input name="Address" value="<%= Address %>" type="text" size="20">
邮编
<input name="Zip_Code" value="<%= Zip_Code %>" type="text" size="7" maxlength=6>
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">电话</td><td bgcolor="#FFFFFF"><input name="Tel" value="<%=Tel%>" type="text" size="32"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">传真</td><td bgcolor="#FFFFFF"><input name="Fax" value="<%=Fax%>" type="text" size="16"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">电子邮件</td><td bgcolor="#FFFFFF"><input name="Email" value="<%=Email%>" type="text" size="50"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">网址</td><td bgcolor="#FFFFFF"><input name="Homepage" value="<%=Homepage%>" type="text" size="50"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">行业</td><td bgcolor="#FFFFFF">
<%
call Trade_List(Trade_Code)
%>
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">备注</td><td bgcolor="#FFFFFF"><textarea name="Description" cols="50" rows="4"><%=Description%></textarea></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" colspan="3"><%=Customer_Name%></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">联系地址</td>
<td bgcolor="#FFFFFF" colspan="3">
<%=State%><%=City%><%= Address %>（<%= Zip_Code %>）
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">电话</td><td bgcolor="#FFFFFF"><%=Tel%></td>
<td bgcolor="#EFEFEF">传真</td><td bgcolor="#FFFFFF"><%=Fax%></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">电子邮件</td><td bgcolor="#FFFFFF"><a href="mailto:<%=Email%>"><%=Email%></a></td>
<td bgcolor="#EFEFEF">网址</td><td bgcolor="#FFFFFF"><a href="<%=Homepage%>" target="_blank"><%=Homepage%></a></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">行业</td>
<td bgcolor="#FFFFFF" colspan="3">
<%=aryTrade(Trade_Code)%>
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">备注</td>
<td bgcolor="#FFFFFF" colspan="3"><%=FormatStringHTML(Description)%></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">合同状况</td><td bgcolor="#FFFFFF">
<%
if Contract_Status then
%>
<font color="#008800"><strong>√</strong></font>已签约 /
<a href="../contract/list.asp?Customer_ID=<%=Customer_ID%>">查看相关合同</a>
<%
else
%>
<font color="#FF0000"><strong>×</strong></font>尚未签约
<%
end if
%>
</td>
<td bgcolor="#EFEFEF">项目状况</td><td bgcolor="#FFFFFF">
<%
if Project_Status then
%>
<font color="#008800"><strong>√</strong></font>已有项目 /
<a href="../project/list.asp?Customer_ID=<%=Customer_ID%>">查看相关项目</a>
<%
else
%>
<font color="#FF0000"><strong>×</strong></font>尚无相关项目
<%
end if
%>
</td>
</tr>
</table>
<!-- 联系人 -->
<table border=0 cellpadding=1 cellspacing=1 width="100%">
<tr bgcolor="#FFDDDD">
<td colspan=7>客户联系人</td>
</tr>
<tr bgcolor="#EFEFEF">
<td>姓名</td>
<td>性别</td>
<td>职务</td>
<td>电话</td>
<td>传真</td>
<td>手机</td>
<td><font face="Wingdings">*</font></td>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select * from Customers_Contact_Person where Customer_ID = " & Customer_ID & " order by Contact_Person_ID DESC"
set rs = conn.execute(sql)
i = 0
while not rs.eof
Contact_Person_ID = rs("Contact_Person_ID")
ID_Pointer = Contact_Person_ID
Contact_Person_Name = rs("Contact_Person_Name")
Gender = rs("Gender")
Rank = rs("Rank")
Tel = rs("Tel")
Fax = rs("Fax")
Mobile = rs("Mobile")
Email = rs("Email")
if Gender then
Gender = "男"
else
Gender = "女"
end if
if i mod 2 = 0 then
response.write "<tr>"
else
response.write "<tr bgcolor=#EFEFEF>"
end if
%>
<td><%= Contact_Person_Name %></td>
<td><%= Gender %></td>
<td><%= Rank %></td>
<td><%= Tel %></td>
<td><%= Fax %></td>
<td><%= Mobile %></td>
<% If len(Email) > 5 then %>
<td><a href="mailto:<%= Email %>"><font face="Wingdings">*</font></a></td>
<% Else %>
<td> </td>
<% End If %>
</tr>
<%
i = i + 1
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</table>
<!-- 联系人 -->
<!-- 相关项目 -->
<table border=0 cellpadding=1 cellspacing=1 width="100%">
<tr bgcolor="#FFDDDD">
<td colspan=7>相关项目</td>
</tr>
<tr bgcolor="#EFEFEF">
<td>项目名称</td>
<td>开始日期</td>
<td>计划（工作日）</td>
<td>实际（工作日）</td>
<td>状态</td>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select * from Projects where Customer_ID = " & Customer_ID & " order by Project_ID DESC"
set rs = conn.execute(sql)
i = 0
while not rs.eof
Project_ID = rs("Project_ID")
Project_Name = rs("Project_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")
if i mod 2 = 0 then
response.write "<tr>"
else
response.write "<tr bgcolor=#EFEFEF>"
end if
%>
<td><a href="../project/detail.asp?Project_ID=<%= Project_ID %>" title="查看项目信息"><%= Project_Name %></a> </td>
<td><nobr><%=FormatDate(Begin_Date_Plan,1)%><nobr> </td>
<!--td><%=FormatDate(End_Date_Plan,1)%> </td-->
<!--td><%=FormatDate(End_Date_Act,1)%> </td-->
<td><%=workdays(Begin_Date_Plan,End_Date_Plan)%> </td>
<% If Project_Status then %>
<% If End_Date_Act = End_Date_Plan then %>
<td><%=workdays(Begin_Date_Plan,End_Date_Act)%></font> </td>
<% ElseIf End_Date_Act > End_Date_Plan then %>
<td><font color="#FF0000"><%=workdays(Begin_Date_Plan,End_Date_Act)%></font> </td>
<% Else %>
<td><font color="#008800"><%=workdays(Begin_Date_Plan,End_Date_Act)%></font> </td>
<% End If %>
<% Else %>
<td> </td>
<% End If %>
<td><nobr>
<% If Project_Status then%>
<font color="#008800"><strong>√</strong></font>
<% Else %>
<font color="#FF0000">进行中</font>
<% End If %></nobr>
</td>
</tr>
<%
i = i + 1
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</table>
<!-- 相关项目 -->
<!-- 相关合同 -->
<table border=0 cellpadding=1 cellspacing=1 width="100%">
<tr bgcolor="#FFDDDD">
<td colspan=8>相关合同</td>
</tr>
<tr bgcolor="#EFEFEF">
<td>合同编号</td>
<td>合同金额</td>
<td>变更金额</td>
<td>签约日期</td>
<td>已收金额</td>
<td>应收金额</td>
<td>签约人</td>
<td>状态</td>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select Contracts.*,Employee.Employee_Name from Contracts,Employee where Contracts.Customer_ID = " & Customer_ID & " and Contracts.Employee_ID = Employee.Employee_ID order by Contracts.Contract_ID DESC"
set rs = conn.execute(sql)
i = 0
while not rs.eof
Contract_ID = rs("Contract_ID")
Contract_No = rs("Contract_No")
Account = rs("Account")
Sign_Date = rs("Sign_Date")
Other_Cost = rs("Other_Cost")
Base_Cost = rs("Base_Cost")
Chg_Account = rs("Chg_Account")
Received = rs("Received")
Contract_Status = rs("Contract_Status")
End_Date = rs("End_Date")
Employee_ID = rs("Employee_ID")
Employee_Name = rs("Employee_Name")
if i mod 2 = 0 then
response.write "<tr>"
else
response.write "<tr bgcolor=#EFEFEF>"
end if
%>
<td><a href="../contract/detail.asp?Contract_ID=<%= Contract_ID %>"><%= Contract_No %></a></td>
<td>￥<%= Account %></td>
<td>￥<%= Chg_Account %></td>
<td><nobr><%= FormatDate(Sign_Date,1) %></nobr></td>
<td>￥<%= f_Received %></td>
<td>
<% If Account + Chg_Account - Received > 0 then %>
￥<%= (Account + Chg_Account - Received) %>
<% Else %>
<font color="#008800"><strong>√</strong></font>
<% End If %>
</td>
<td><nobr><a href="../employee/detail.asp?Employee_ID=<%= Employee_ID %>" target="foot"><%= Employee_Name %></a></nobr></td>
<% If Contract_Status then %>
<td><font color="#008800"><strong>√</strong></font></td>
<% Else %>
<td><font color="#FF0000"><strong>×</strong></font></td>
<% End If %>
</tr>
<%
i = i + 1
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</table>
<!-- 相关合同 -->
<%
End If
%>
</form>
</body>
</html>
<script language="JavaScript" type="text/javascript" src="../js/state_city.js"></script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -