igamebox
/
mtb_crm_asp


			
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216
							<!--#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>
<body class="clear">
<!--#include file="panel.asp"-->
<div id="man_zone">
<%

Act = Request.QueryString("act")
Page = Request.QueryString("Page")
Set Rs=Server.CreateObject("ADODB.RecordSet")


Keys=Server.UrlEnCode(Keys)
hrefstr = "?keys="&Keys

%>	
	<form id="form1" method="post" action="?act=postchk&Keys=<%=keys%>&Page=<%=Page%>" onSubmit="return false" />
	<div class="fastSelect clear">
		<H1>异常客户</H1>
	</div>

	<div width="100%" border="0" cellpadding="3" cellspacing="1" class="table2 em<%=Session("employee_id")%>">
				<div class="theader">
				<div class="col1" ><input type="checkbox" name="chkall" id="chkall" onClick="chkboxall(this,'chkbox')" /></div>
				<div class="col2" >序号</div>
				<div class="col3">客户编号</div>
				<div class="col4">渠道来源</div>
				<div class="col5">区域</div>
				<div class="col6">客户类型</div>	
				<div class="col6">跟进阶段</div>	
				<div class="colmark">颜色标记</div>					
				<div class="col6">录入时间</div>					
				<div class="col9">操作</div>
				</div>

<%

sqlStr="Select id,cs_code,cs_from,cs_country,cs_type,cs_deal,cs_addtime,cs_tel,cs_email,cs_whatsapp,cs_wechat,cs_linkedin,cs_facebook,cs_alibaba,colortag,cs_note,cs_claimFrom From customer Where (cs_alibaba='' and (cs_code like '%阿里%' or cs_code like '%1688%') and cs_belong="&Session("employee_id")&" ) or (cs_from=8 and cs_wechat='' and cs_belong="&Session("employee_id")&") Order By colortag DESC,id Desc"

Rs.Open sqlStr ,Conn,1,1

If Not Rs.Bof And Not Rs.Eof Then
	Rs.PageSize = 20
	If Page = "" Then Page = 1
	If Page = "end" Then Page = Rs.PageCount
	If Not IsNumeric(Page) Or Page < 1 Then Page = 1
	Page = Cint(Page)
	If Page > Rs.PageCount Then Page = Rs.PageCount
	Rs.AbsolutePage = Page
	TempNum = Rs.PageSize * (Page - 1)
	
	Set Rs1=Server.CreateObject("ADODB.RecordSet")

	For i=1 To Rs.PageSize
		If Rs.Bof Or Rs.Eof Then Exit For
		TempNum=TempNum+1:classid=Rs(1)
%>
			<div class="tline color<%=Rs("colorTag")%>">
				<div class="col1" align="center" ><input type="checkbox" name="chkbox" value="<%=Rs(0)%>" /></div>
				<div class="col2" ><%=TempNum%></div>
				<div class="col3 slidepanel"><%=Rs("cs_code")%><%If Rs("cs_claimFrom")>0 Then%><img src="../images/yijiao.png" class="handover" title="来自认领"><%End If%></div>
				<div class="col4">
						<%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
				%>				
				</div>
				<div class="col5">
						<%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
				%>
				
				</div>
				<div class="col6">
						<%Rs1.Open "select businessType from clientType where id="&Rs("cs_type")&"",conn,1,1
						      IF Not Rs1.bof and Not Rs1.eof Then 
							      Response.write Rs1("businessType")
							  Else
								  Response.write "未填写"
							  End If
						  Rs1.Close
				%>				
				</div>
				<div class="col6"><%If Rs("cs_deal")=3 then
											response.write "<span style='color:red;'>成交</span>" 
										elseif	Rs("cs_deal")=2 then
											Response.write "明确需求" 
										elseif	Rs("cs_deal")=1 then
											Response.write "背景调查"											
										else
											Response.write "无响应" 										
										End IF
										%>
				</div>	
				<div class="colmark colormark">
					<ul class="colorlist" data-id="<%=Rs("id")%>">
						<li value="1" class="color1"></li>
						<li value="2" class="color2"></li>
						<li value="3" class="color3"></li>	
						<li value="4" class="color4"></li>		
						<li value="0" class="color0"></li>							
					</ul>
				</div>											
				<div class="col6"><%=Rs("cs_addtime")%></div>
				<div class="col9" ><a href="customerEdit.asp?Keys=<%=keys%>&fliterDeal=<%=fliterDeal%>&fliterBusiness=<%=fliterBusiness%>&Page=<%=Page%>&act=edit&id=<%=Rs(0)%>" class="ico_edit ico">修改</a></div>		
			</div>
			<div class="notepanel clear">
				<div class="noteItem">
					联系方式
				</div>
				<div class="lx">
					<div class="tel"><%=Rs("cs_tel")%></div>
					<div class="mail"><a href="mailto:<%=Rs("cs_email")%>"><%=Rs("cs_email")%></a></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>					
				</div>
				<div class="noteItem2">
					备注
				</div>
				<div class="notecontent">
						<%=HtmlUnCode(Rs("cs_note"))%>					
				</div>
			</div>
<%
		Rs.MoveNext
	Next
Else
	If Keys="" Then
%>
			<tr>
				<div align="center" colspan="9">Sorry，当前暂无信息</div>
			</tr>

<%
	Else
%>
			<tr>
				<div align="center" colspan="9"><a href="?">Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回</a></div>
			</tr>
<%
	End If
End If
%>


				<div colspan="9">
					<div class="showpagebox">
<%
If Rs.PageCount > 1 Then
	PageName="?Keys="&Keys&urlStr&"&"
	Pagelen=3
	If Page>1 Then
		Response.Write "<a href="""&PageName&"Page=1"">首页</a>"
		Response.Write "<a href="""&PageName&"Page="&Page-1&""">上一页</a>"
	End If

	If Pagelen*2+1 >= Rs.PageCount Then
		StartPage=1:EndPage=Rs.PageCount
	Else
		If Page<=Pagelen+1 Then
			StartPage=1
			EndPage=Pagelen*2+1
		Else
			StartPage=Page-Pagelen
			EndPage=Page+Pagelen
		End If
		If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount
	End If

	For i = StartPage To EndPage
		If i = Page Then
			Response.Write "<a class=""current"">"&i&"</a>"
		Else
			Response.Write "<a href="""&PageName&"Page="&i&""">"&i&"</a>"
		End If
	Next

	If Page<Rs.PageCount Then
		If Rs.PageCount - Page > Pagelen Then Response.Write "<a href="""&PageName&"Page="&Rs.PageCount&""">..."&Rs.PageCount&"</a>"
		Response.Write "<a href="""&PageName&"Page="&Page+1&""">下一页</a>"
		Response.Write "<a href="""&PageName&"Page="&Rs.PageCount&""">尾页</a>"
	End If

End If
%>					</div>

				</div>

	</div>
	</form>
<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>
</div>

</body>
</html>