igamebox
/
mtb_crm_asp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256
							<!--#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="js/xheditor-1.1.9/xheditor-1.1.9-zh-cn.min.js"></script>
<script type="text/javascript" src="js/Hz2Py-szm-min.js"></script>
<script type="text/javascript" src="js/ySearchSelect.js"></script>
<script>
$(document).ready(function(){
$('.txt2').xheditor({
tools:'full',hoverExecDelay:-1,urlBase:'system',//urlType:'root',//plugins:allPlugin,
upLinkUrl:"upload.asp",upLinkExt:"zip,rar,txt,pdf",
upImgUrl:"upload.asp",upImgExt:"jpg,jpeg,gif,png",
upFlashUrl:"upload.asp",upFlashExt:"swf",
upMediaUrl:"upload.asp",upMediaExt:"wmv,avi,wma,mp3,mid"//,loadCSS:'css/edit.css'
});
});
</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"))

hrefstr = "?keys="&Keys&"&Page="&Page

If id<>"" And IsNumeric(id) Then 
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "Select * From customer Where cs_belong="&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=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_address=TextUncode(Rs("cs_address"))	
		cs_alibaba=TextUncode(Rs("cs_alibaba"))		
		cs_code=TextUncode(Rs("cs_code"))		
		cs_deal=TextUncode(Rs("cs_deal"))			
		cs_addtime=Rs("cs_addtime")
		cs_belongclient=Rs("cs_belongclient")		
		cs_updatetime=Rs("cs_updatetime")	
		cs_from=Rs("cs_from")
		cs_type=Rs("cs_type")		
		cs_note=HtmlUnCode(Rs("cs_note"))
		cs_claimFrom=Rs("cs_claimFrom")
		allowedit=Rs("allowedit")
	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
%>
	<form name="form1" id="form1" method="post" action="customerSave.asp<%=hrefstr%>" onSubmit="return checkInput();">
	<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
		<tbody>
			<tr>
				<th width="8%">客户编号</th>
				<td><input type="text" id="cs_code" name="cs_code" value="<%=cs_code%>" <%if cs_claimFrom<>"" Then response.write "readonly" %>  class="txt1" /><input type="hidden" name="id" value="<%=id%>" /><input type="hidden" name="cs_addtime" value="<%=cs_addtime%>" /><input type="hidden" name="Permissions" value="<%=allowedit%>" /></td>
			</tr>
			<tr>
				<th width="8%">公司名称</th>
				<td><input type="text" id="cs_company" name="cs_company" value="<%=cs_company%>" class="txt1" /></td>
			</tr>
			<tr>
				<th width="8%">联系人</th>
				<td><input type="text" id="cs_name" name="cs_name" value="<%=cs_name%>" class="txt1" /></td>
			</tr>
			<tr>
				<th width="8%">地区</th>
				<td>				
					<div class="layui-input-inline">
					<div class="layui-form-select ySearchSelect y1">
						<div class="layui-input" >
							<% Set Rs=server.CreateObject("ADODB.RecordSet")
							   Rs.Open "Select id,countryCode,countryName from country where id="&cs_country,conn,1,1
							   If Not Rs.bof and Not Rs.eof then 
									countryId=Rs("id")
									response.write Rs("countryName") 
							   Else
									response.write "请选择"							   
							   End If
							   Rs.close
							%>
						</div>

						<ul>
							<% Set Rs=server.CreateObject("ADODB.RecordSet")
							   Rs.Open "Select id,countryCode,countryName from country",conn,1,1
							   Do while Not Rs.bof And Not Rs.eof
							 %>
								<li class="on" data-c="<%=Rs("id")%>">(+<%=Rs("countryCode")%>)<%=Rs("countryName")%></li>						
							<%
							   Rs.moveNext
							   loop
							   Rs.close
							%>							
							<p>无匹配项</p>
						</ul>
						<input name="cs_country" id="cs_country" value="<%=countryId%>" type="hidden">
					</div>
				</div>
				<script>
					$(function () {
						$(".y1").ySearchSelect();  
					})
				</script>				
				</td>				
				
			</tr>
			<tr>
				<th width="8%">客户来源	</th>
				<td><Select  id="cs_from" name="cs_from">
					<option value="0">请选择来源</option>
					<% Rs.Open "Select id,ch_name from qudao where id="&cs_from,conn,1,1
					   Do while Not Rs.bof And Not Rs.eof
					 %>
						<option value="<%=Rs("id")%>" <%If cs_from=Rs("id") Then Response.write "selected=""selected""" %>><%=Rs("ch_name")%></option>						
					<%
					   Rs.moveNext
					   loop
					   Rs.close
					%>
				</Select>
				</td>
			</tr>				
			<tr >
				<th rowspan="7">联系方式</th>
				<td><input type="text" id="cs_tel" name="cs_tel" value="<%=cs_tel%>"  class="txt1 tel" placeholder="电话格式:区号+号码 如:+86 15012345678" /></td>
			</tr>
			<tr>
				<td><input type="text" id="cs_wechat" name="cs_wechat" value="<%=cs_wechat%>" class="txt1 wechat" placeholder="微信"/></td>
			</tr>	
			<tr>

				<td><input type="text" id="cs_whatsapp" name="cs_whatsapp" value="<%=cs_whatsapp%>"  class="txt1 whatsapp" placeholder="Whatsapp 格式:区号+号码 如:+86 15012345678"/></td>
			</tr>		
			<tr>
				<td><input type="text" id="cs_email" name="cs_email" value="<%=cs_email%>"  class="txt1 mail" placeholder="邮件" /></td>
			</tr>		
			<tr>

				<td><input type="text" id="cs_linkedin" name="cs_linkedin" value="<%=cs_linkedin%>"   class="txt1 linkedin" placeholder="领英链接"/></td>
			</tr>		
			<tr>
				<td><input type="text" id="cs_facebook" name="cs_facebook" value="<%=cs_facebook%>"  class="txt1 facebook" placeholder="Facebook" /></td>
			</tr>			
			<tr>
				<td><input type="text" id="cs_alibaba" name="cs_alibaba" value="<%=cs_alibaba%>" class="txt1 alibaba" placeholder="alibaba" /></td>
			</tr>		
			<tr>
				<th width="8%">地址	</th>
				<td><input type="text" id="cs_address" name="cs_address" value="<%=cs_address%>" class="txt1" /></td>
			</tr>	
			<tr>
				<th>业务类型</th>
					<td>
					<% Rs.Open "Select id,businessType from clientType",conn,1,1
					   Do while Not Rs.bof And Not Rs.eof
					 %>
						<input type="radio" name="cs_type" value="<%=Rs("id")%>" id="fortype<%=Rs("id")%>" <%If Rs("id")=cs_type Then Response.write "checked=""checked"""%>    ><label for="fortype<%=Rs("id")%>"><%=Rs("businessType")%></label>
					<%
					   Rs.moveNext
					   loop
					   Rs.close
					%>	
					</td>
			</tr>
			<tr>
				<th>跟进阶段</th>
				<td>
				<input type="radio" id="fordeal1" class="cs_deal" name="cs_deal" value="0" <%If cs_deal=0 Then Response.write"checked=""checked""" Else If cs_deal=3 Then Response.write "disabled=""disabled""" End If%>><label for="fordeal1">无响应</label>		
				<input type="radio" id="fordeal2" class="cs_deal" name="cs_deal" value="1" <%If cs_deal=1 Then Response.write"checked=""checked""" Else If cs_deal=3 Then Response.write "disabled=""disabled""" End If %>><label for="fordeal2">背景调查</label>		
				<input type="radio" id="fordeal3" class="cs_deal" name="cs_deal" value="2" <%If cs_deal=2 Then Response.write"checked=""checked""" Else If cs_deal=3 Then Response.write "disabled=""disabled""" End If %>><label for="fordeal3">明确需求</label>		
				<input type="radio" id="fordeal4" class="cs_deal" name="cs_deal" value="3" <%If cs_deal=3 Then Response.write"checked=""checked""" %>><label for="fordeal4">已成交</label>							
				</td>
			</tr>
					
			<tr>
				<th>其他</th>
				<td>
				<input type="checkbox" id="belongClient" class="cs_belongClient" name="cs_belongClient" <%if cs_belongclient=1 Then Response.write "checked=""checked"""%> value="1"><label for="belongClient">客户的客户</label>		
				</td>
			</tr>				
			<tr>
				<th>自定义标签</th>
				<td><div class="taglist">
					<% Rs.Open "Select id,tagName from tagTable where customerId="&id,conn,1,1
					   Do while Not Rs.bof And Not Rs.eof
					 %>
						<span><%=Rs("tagName")%></span>
					<%
					   Rs.moveNext
					   loop
					   Rs.close
					%>		
					</div>
					<div class="commontag">
					<i class="tag">美特柏品牌客户</i>,
					<i class="tag">OEM定制客户</i>,
					<i class="tag">小型B端客户</i>,
					<i class="tag">C端客户</i>,
					<i class="tag">贸易公司</i>，<i class="tag">档口客户</i>
					<% 	Rs.Open "select distinct tagName from tagTable where employeeId="&Session("employee_id"),conn,1,1
						Do while Not Rs.bof And Not Rs.eof
					%>
						<i class="tag"><%=TextUncode(Rs("tagName"))%></i>,
					<%
					   Rs.moveNext
					   loop
					   Rs.close
					   Set Rs=Nothing
					%>
					</div>		
					<input type="text" id="tapinput" class="txt-short" placeholder="自定义标签，按Enter添加">
					<input type="hidden" id="mytag" name="mytag" value="">
				</td>
			</tr>				
		
			<tr>
				<th width="8%">备注</th>
				<td><textarea name="cs_note" class="txt2"><%=cs_note%></textarea></td>
			</tr>				
			<tr>
				<th></th>
				<td><input type="button" name="save" id="save" value="确定" class="btn1" onclick="subform();">
				<input type="button" value="返回" class="btn1" onClick="location.href='customers.asp<%=hrefstr%>'" /></td>
			</tr>
		</tbody>
	</table>
	</form>
</div>
</body>
</html>
<%Conn.Close:Set Conn=Nothing%>