igamebox
/
mtb_crm_asp


			
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133
							<!--#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" />
<link rel="stylesheet" href="css/alert.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>
</head>
<%	keywordsNative=Request.Form("keywords")
	keywords=replace(Request.Form("keywords"),"+","")
	keywords=replace(keywords," ","")
	keywords=replace(keywords,"-","")
	keywords=replace(keywords,")","")
	keywords=replace(keywords,"(","")
	keywords=TextEnCode(keywords)

	If keywords="" or len(keywords)<4 Then
		Response.write "<script>alert('请至少输入4位数字或文字进行查找');window.location.href='/home.php';</script>"

	End If
	
	
	searchStr="Select cs_code,cs_name,cs_country,cs_tel,cs_email,cs_whatsapp,cs_wechat,cs_linkedin,cs_facebook,cs_addtime,cs_from,cs_belong,cs_deal,cs_alibaba from customer where (cs_telformat like '%"&keywords&"%' or cs_email like '%"&keywords&"%' or cs_whatsappformat like '%"&keywords&"%' or cs_wechat like '%"&keywords&"%'  or cs_alibaba like '%"&keywords&"%' or cs_linkedin like '%"&keywords&"%' or  cs_facebook like '%"&keywords&"%' or cs_email like '%"&keywordsNative&"%'  or cs_wechat like '%"&keywordsNative&"%'  or cs_alibaba like '%"&keywordsNative&"%' or cs_linkedin like '%"&keywordsNative&"%' or  cs_facebook like '%"&keywordsNative&"%')"


%>
<body class="clear">
<!--#include file="panel.asp"-->
<div id="man_zone">
	<div class="searchForm resultSearch">
	<form method="post" action="searchResult.asp" accept-charset="UTF-8">
		<input class="keywords" name="keywords" id="keyword" placeholder="请输入电话/邮箱/微信/WhatsApp.." value="<%=keywordsNative%>" >
		<input class="searchSubmit" type="submit" value="客户检索">

	</form>
	</div>
	<table width="100%" class="resultForm">
		<tr class="tableHead">
			<td align="center" >序号</td>
			<td align="center">客户编号</td>
			<td align="center">联系人</td>		
			<td align="center">国家</td>			
			<td align="center">来源</td>				
			<td align="center">跟进阶段</td>				
			<td align="center">录入日期</td>	
			<td align="center">所属业务员</td>					
		</tr>
		<%
			Set Rs=Server.CreateObject("ADODB.RecordSet")	
			Set Rs1=Server.CreateObject("ADODB.RecordSet")			
			Rs.Open searchStr,conn,1,3
			If Not Rs.bof and Not Rs.eof Then
				For i=1 to Rs.recordCount
					If Rs.bof or Rs.eof Then Exit For
		%>
		<tr>
			<td align="center" rowspan="2"><%=i%></td>
			<td align="center"><%=Rs("cs_code")%></td>
			<td align="center"><%=Rs("cs_name")%></td>		
			<td align="center">
					<%Rs1.Open "Select countryName from country where id="&Rs("cs_country"),conn,1,1
						If Not Rs1.Bof and Not Rs1.Eof Then
							Response.write Rs1("countryName")
						Else
							Response.write "未选择"
						End If
					  Rs1.close
					%>
			</td>			
			<td align="center">
					<%Rs1.Open "Select ch_name from qudao where id="&Rs("cs_from"),conn,1,1
						If Not Rs1.Bof and Not Rs1.Eof Then
							Response.write Rs1("ch_name")
						Else
							Response.write "未选择"
						End If
					  Rs1.close
					%>
			
			</td>				
			<td align="center">
					<%If Rs("cs_deal")=3 Then Response.write "<span class=""highline"">成交</span>" Else Response.write "未成交"%>
			</td>				
			<td align="center"><%=Rs("cs_addtime")%></td>	
			<td align="center" rowspan="2">			
				<%Rs1.Open "Select em_user from employee where id="&Rs("cs_belong"),conn,1,1
					If Not Rs1.Bof and Not Rs1.Eof Then
						Response.write Rs1("em_user")
					Else
						Response.write "系统出错"
					End If
				  Rs1.close
				%>
			</td>					
		</tr>		
		<tr>	
			<td colspan="6" class="contacts">
			<div class="tel"><%=Rs("cs_tel")%></div>
			<div class="mail"><%=Rs("cs_email")%></div>		
			<div class="whatsapp"><%=Rs("cs_whatsapp")%></div>	
			<div class="wechat"><%=Rs("cs_wechat")%></div>	
			<div class="linkedin"><%=Rs("cs_linkedin")%></div>	
			<div class="facebook"><%=Rs("cs_facebook")%></div>		
			<div class="alibaba"><%=Rs("cs_alibaba")%></div>				
			</td>
		</tr>
		<%	
				Rs.moveNext
				Next
			
			Else
		%>
			<tr>
				<td colspan="8" align="center">暂无相关记录，可录入该客户,<a href="/customerAdd.asp" class="highline">点击录入客户数据</a></td>
			</tr>
		<%
			End If
			Rs.close
		%>
	</table>

</div>
<%
	Set Rs=Nothing
	Conn.close
	Set Conn=Nothing
%>	
</body>
</html>