<!--#include file="Conn.asp"--><%Checklogin()%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>管理区域</title>
<link rel="stylesheet" href="css/common.css" type="text/css" />
<script language="javascript" src="system/js/jquery-1.7.2.min.js"></script>
<script type="text/javascript" src="js/js.js"></script>
<script type="text/javascript" src="system/xheditor-1.1.9/xheditor-1.1.9-zh-cn.min.js"></script>
</head>
<body class="clear">
<!--#include file="panel.asp"-->
<div id="man_zone">
<%
id = Request.QueryString("id")
Page = Request.QueryString("Page")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))
Ord=Server.UrlEnCode(Request.QueryString("Ord"))
hrefstr = "?keys="&Keys&"&Ord="&Ord&"&Page="&Page
If id<>"" And IsNumeric(id) Then
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select * From customer Where cs_belong in (Select id from employee where em_role="&Session("employee_id")&" ) and customer.id="&id,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
cs_company=TextUncode(Rs("cs_company"))
cs_name=TextUncode(Rs("cs_name"))
cs_country=TextUncode(Rs("cs_country"))
cs_tel=TextUncode(Rs("cs_tel"))
cs_email=TextUncode(Rs("cs_email"))
cs_whatsapp=TextUncode(Rs("cs_whatsapp"))
cs_wechat=TextUncode(Rs("cs_wechat"))
cs_linkedin=TextUncode(Rs("cs_linkedin"))
cs_facebook=TextUncode(Rs("cs_facebook"))
cs_alibaba=TextUncode(Rs("cs_alibaba"))
cs_address=TextUncode(Rs("cs_address"))
cs_code=TextUncode(Rs("cs_code"))
cs_deal=TextUncode(Rs("cs_deal"))
cs_addtime=Rs("cs_addtime")
cs_updatetime=Rs("cs_updatetime")
cs_from=Rs("cs_from")
cs_note=Rs("cs_note")
Else
Rs.Close:Set Rs=Nothing
Conn.Close:Set Conn=Nothing
response.write "<script>alert('客户不存在或你没权限查看！');history.back();</script>"
response.End
End If
Rs.Close:Set Rs=Nothing
Else
response.write "<script>alert('客户不存在!');history.back();</script>"
Rs.Close:Set Rs=Nothing
Conn.Close:Set Conn=Nothing
response.redirect hrefstr
End If
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
<tbody>
<tr>
<th width="8%">客户编号</th>
<td><%=cs_code%></td>
</tr>
<tr>
<th width="8%">公司名称</th>
<td><%=cs_company%></td>
</tr>
<tr>
<th width="8%">联系人</th>
<td><%=cs_name%></td>
</tr>
<tr>
<th width="8%">地区</th>
<td>
<% Set Rs=server.CreateObject("ADODB.RecordSet")
Rs.Open "Select countryCode,countryName from country where countryCode='"&cs_country&"'",conn,1,1
Do while Not Rs.bof And Not Rs.eof
%>
(+<%=Rs("countryCode")%>)<%=Rs("countryName")%>
<%
Rs.moveNext
loop
Rs.close
%>
</td>
</tr>
<tr>
<th width="8%">客户来源 </th>
<td>
<% Rs.Open "Select id,ch_name from qudao where id="&cs_from,conn,1,1
Do while Not Rs.bof And Not Rs.eof
%>
<%=Rs("ch_name")%>
<%
Rs.moveNext
loop
Rs.close
%>
</td>
</tr>
<tr >
<th rowspan="7">联系方式</th>
<td><%=cs_tel%></td>
</tr>
<tr>
<td><span class="wechat"><%=cs_wechat%></span></td>
</tr>
<tr>
<td><span class="whatsapp"><%=cs_whatsapp%></span></td>
</tr>
<tr>
<td><span class="mail"><%=cs_email%></span></td>
</tr>
<tr>
<td><span class="linkedin"><%=cs_linkedin%></span></td>
</tr>
<tr>
<td><span class="facebook"><%=cs_facebook%></span></td>
</tr>
<tr>
<td><span class="alibaba"><%=cs_alibaba%></span></td>
</tr>
<tr>
<th width="8%">地址 </th>
<td><%=cs_address%></td>
</tr>
<tr>
<th>是否成交</th>
<td>
<%If cs_deal=1 Then
Response.write "<span style='color:red;'>已经成交</span>"
elseif cs_deal=2 Then
Response.write"无响应"
else
Response.write"未成交"
End if
%>
</td>
</tr>
<tr>
<th width="8%">备注</th>
<td>
<%=HtmlUnCode(Rs("cs_note"))%>
</td>
</tr>
<tr>
<th></th>
<td><input type="button" value="返回" class="btn1" onClick="location.href='subcustomers.asp<%=hrefstr%>'" /></td>
</tr>
</tbody>
</table>
</div>
</body>
</html>
<%Conn.Close:Set Conn=Nothing%>