igamebox
/
mtb_crm_asp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156
							<!--#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%>