igamebox
/
mtb_crm_asp


			
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680
							<!--#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="js/jquery-1.7.2.min.js"></script>
<script type="text/javascript" src="js/js.js"></script>
<script type="text/javascript" src="xheditor-1.1.9/xheditor-1.1.9-zh-cn.min.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>
<div id="man_zone">
<%
Act = Request.QueryString("act")

If act = "save" Then
Set Rs = Server.CreateObject("ADODB.RecordSet")
isedit = False
id = Request.Form("id")
If id<>"" And IsNumeric(id) Then isedit = True
cs_code=TextEnCode(Request.Form("cs_code"))
cs_company=TextEnCode(Request.Form("cs_company"))
cs_name=TextEnCode(Request.Form("cs_name"))
cs_belong=Request.Form("cs_belong")
cs_country=Request.Form("cs_country")
cs_from=Request.Form("cs_from")
cs_tel=TextEnCode(Request.Form("cs_tel"))
cs_email=TextEnCode(Request.Form("cs_email"))
cs_whatsapp=TextEnCode(Request.Form("cs_whatsapp"))
cs_wechat=TextEnCode(Request.Form("cs_wechat"))
cs_linkedin=TextEnCode(Request.Form("cs_linkedin"))
cs_facebook=TextEnCode(Request.Form("cs_facebook"))
cs_alibaba=TextEnCode(Request.Form("cs_alibaba"))
cs_state=Request.Form("cs_state")
cs_deal=Request.Form("cs_deal")
no_content=HtmlEnCode(Request.Form("no_content"))
allowedit=Request.Form("allowedit")
IF allowedit<>1 Then allowedit=0


If isedit Then
	Rs.Open "Select * From customer Where id="&id,Conn,1,3
	If Not Rs.bof and Not Rs.eof Then
		Rs("cs_code") = cs_code
		Rs("cs_company") = cs_company	
		Rs("cs_name")=cs_name
		Rs("cs_belong") = cs_belong
		Rs("cs_country")=cs_country
		Rs("cs_from") = cs_from				
		Rs("cs_tel")=cs_tel
		Rs("cs_email")=cs_email
		Rs("cs_whatsapp")=cs_whatsapp
		Rs("cs_wechat")=cs_wechat
		Rs("cs_linkedin")=cs_linkedin
		Rs("cs_facebook")=cs_facebook
		Rs("cs_alibaba")=cs_alibaba

		Rs("cs_state") = cs_state
		Rs("cs_deal")=cs_deal
		Rs("cs_note")=no_content		
		Rs("allowedit")=allowedit	
		
	 	myArray=split(Rs("cs_chain"),",")
		myLen=UBound(myArray)
		Litem=myArray(myLen)		 
		 
		IF Litem+0<>cs_belong+0 Then   	
		  Rs("cs_chain")=Rs("cs_chain")&","&cs_belong
		End If

		Rs.Update:Rs.Close
		Page = Request.QueryString("Page")
		Keys=Server.UrlEnCode(Request.QueryString("Keys"))
		Response.Redirect "?keys="&Keys&"&Page="&Page&urlStr
		Set Rs=Nothing:Conn.Close:Set Conn=Nothing
	Else
		Response.write "<script>alert('不存在该客户');history.back();</script>"
		Rs.close
		Set Rs=Nothing
		Conn.close
		Set Conn=Nothing
		Response.End
	End If
End If
Conn.Close:Set Conn=Nothing

Response.End
End If 'end save


If Act = "edit" Then
id = Request.QueryString("id")
isedit = False
If id<>"" And IsNumeric(id) Then isedit=True
If isedit Then
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "Select * From customer Left Join myNote on customer.cs_code=myNote.c_code Where customer.id="&id,Conn,1,1
	If Not Rs.Bof And Not Rs.Eof Then
		cs_code=TextUnCode(Rs("cs_code"))
		cs_company=TextUnCode(Rs("cs_company"))		
		cs_name=TextUnCode(Rs("cs_name"))		
		cs_country=Rs("cs_country")
		cs_from=Rs("cs_from")			
		cs_tel=TextUnCode(Rs("cs_tel"))		
		cs_telBu=TextUnCode(Rs("cs_telBu"))				
		cs_Wechat=TextUnCode(Rs("cs_Wechat"))	
		cs_WechatBu=TextUnCode(Rs("cs_WechatBu"))			
		cs_Whatsapp=TextUnCode(Rs("cs_Whatsapp"))
		cs_WhatsappBu=TextUnCode(Rs("cs_WhatsappBu"))		
		cs_email=TextUnCode(Rs("cs_email"))
		cs_emailBu=TextUnCode(Rs("cs_emailBu"))		
		cs_linkedin=TextUnCode(Rs("cs_linkedin"))		
		cs_linkedinBu=TextUnCode(Rs("cs_linkedinBu"))				
		cs_facebook=TextUnCode(Rs("cs_facebook"))	
		cs_facebookBu=TextUnCode(Rs("cs_facebookBu"))			
		cs_alibaba=TextUnCode(Rs("cs_alibaba"))		
		cs_alibabaBu=TextUnCode(Rs("cs_alibabaBu"))			
		cs_address=TextUnCode(Rs("cs_address"))		
		cs_addtime=Rs("cs_addtime")
		cs_updatetime=Rs("cs_updatetime")
		cs_belong=Rs("cs_belong")	
		cs_state=Rs("cs_state")		
		cs_deal=Rs("cs_deal")
		cs_note=HtmlUnCode(Rs("cs_note"))
		allowedit=Rs("allowedit")
	Else
		isedit = False
	End If
	Rs.Close:Set Rs=Nothing
End If

Page = Request.QueryString("Page")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))
Ord=Server.UrlEnCode(Request.QueryString("Ord"))
hrefstr = "?keys="&Keys&"&Page="&Page&"&Ord="&Ord
%>
	<form name="form1" method="post" action="<%=hrefstr%>&act=save">
	<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%>"  class="txt1" /><input type="hidden" name="id" value="<%=id%>" /></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 ><select name="cs_belong">
						<option value="0">请选择</option>
						<%
							Set Rs1=Server.CreateObject("ADODB.RecordSet")
							Rs1.Open "Select id,em_user from employee",conn,1,1
								Do while Not Rs1.bof and Not Rs1.eof 
						%>
							<option value="<%=Rs1("id")%>"   <%If Rs1("id")=cs_belong Then Response.write "Selected=""Selected""" End If%>><%=Rs1("em_user")%></option>
						<%
								Rs1.moveNext
								loop
							Rs1.close
						%>
					</select>
				</td>
			</tr>
			<tr>
				<th width="8%">国家</th>
				<td ><select name="cs_country" >
						<option value="0">请选择</option>
						<%
							Set Rs1=Server.CreateObject("ADODB.RecordSet")
							Rs1.Open "Select id,countryCode,countryName from country",conn,1,1
								Do while Not Rs1.bof and Not Rs1.eof 
						%>
							<option value="<%=Rs1("id")%>"   <%If Rs1("id")=cs_country Then Response.write "Selected=""Selected""" End If%>><%=Rs1("countryName")%></option>
						<%
								Rs1.moveNext
								loop								
							Rs1.close
						%>
					</select>
				</td>
			</tr>
			<tr>
				<th width="8%">来源</th>
				<td ><select name="cs_from" >
						<option value="0">请选择</option>
						<%
							Set Rs1=Server.CreateObject("ADODB.RecordSet")
							Rs1.Open "Select id,ch_name from qudao",conn,1,1
								Do while Not Rs1.bof and Not Rs1.eof 
						%>
							<option value="<%=Rs1("id")%>"   <%If Rs1("id")=Cint(cs_from) Then Response.write "Selected=""Selected""" End If%>><%=Rs1("ch_name")%></option>
						<%
								Rs1.moveNext
								loop								
							Rs1.close
						%>
					</select>
				</td>
			</tr>				
			<tr>
				<th width="8%">录入时间</th>
				<td ><%=cs_addtime%></td>
			</tr>
			<tr>
				<th width="8%">更新时间</th>
				<td ><%=cs_updatetime%></td>
			</tr>
			<tr>
				<th width="8%" rowspan="7">联系方式</th>
				<td><input type="text" id="cs_tel" name="cs_tel" value="<%=cs_tel%>" class="txt5 tel" />备份:<%=cs_telbu%></td>
			</tr>
			<tr>
				<td><input type="text" id="cs_email" name="cs_email"  value="<%=cs_email%>" class="txt5 mail" />备份:<%=cs_emailBu%></td>
			</tr>	
			<tr>
				<td><input type="text" id="cs_whatsapp" name="cs_whatsapp"  value="<%=cs_whatsapp%>" class="txt5 whatsapp" />备份：<%=cs_whatsappBu%></td>		
			</tr>	
			<tr>
				<td><input type="text" id="cs_wechat" name="cs_wechat"  value="<%=cs_wechat%>" class="txt5 wechat" />备份：<%=cs_wechatBu%></td>	
			</tr>
			<tr>
				<td><input type="text" id="cs_linkedin" name="cs_linkedin" value="<%=cs_linkedin%>" class="txt5 linkedin" />备份：<%=cs_linkedinbu%></td>
			</tr>	
			<tr>
				<td><input type="text" id="cs_facebook" name="cs_facebook" value="<%=cs_facebook%>" class="txt5 facebook" />备份：<%=cs_facebookBu%></td>		
			</tr>	
			<tr>
				<td><input type="text" id="cs_alibaba" name="cs_alibaba"  value="<%=cs_alibaba%>" class="txt5 alibaba" />备份：<%=cs_alibabaBu%></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 width="8%">标签</th>
				<td >
						<%
							Rs1.Open "Select id,tagName from tagTable where customerId="&id,conn,1,1
								Do while Not Rs1.bof and Not Rs1.eof 
						%>
								<%=Rs1("tagName")%>,
						<%
								Rs1.moveNext
								loop								
							Rs1.close
							Set Rs1=Nothing
						%>				
				</td>
			</tr>						
			<tr>
				<th width="8%">状态</th>
				<td >
					<label><input type="radio" name="cs_state" value="1"<%If cs_state=1 Then Response.Write " checked=""checked""" End If%> />有效</label> 
					<label><input type="radio" name="cs_state" value="0"<%If cs_state<>1 Then Response.Write " checked=""checked""" End If%> />不再跟进</label>
				</td>
			</tr>
			<tr>
				<th width="8%">是否误报</th>
				<td >
					<label><input type="radio" name="allowedit" value="1"<%If allowedit=1 Then Response.Write " checked=""checked""" End If%> />审核通过</label> 
					<label><input type="radio" name="allowedit" value="0"<%If allowedit<>1 Then Response.Write " checked=""checked""" End If%> />一般处理</label>
				</td>
			</tr>			
			<tr>
				<th width="8%">是否成交</th>
				<td >
					<label><input type="radio" name="cs_deal" value="3"<%If cs_deal=3 Then Response.Write " checked=""checked""" End If%> />成交</label> 
					<label><input type="radio" name="cs_deal" value="2"<%If cs_deal=2 Then Response.Write " checked=""checked""" End If%> />明确需求</label>
					<label><input type="radio" name="cs_deal" value="1"<%If cs_deal=1 Then Response.Write " checked=""checked""" End If%> />背景调查</label>					
					<label><input type="radio" name="cs_deal" value="0"<%If cs_deal=0 Then Response.Write " checked=""checked""" End If%> />无响应</label>
				</td>
			</tr>
			<tr>
				<th>内容</th>
				<td ><textarea id="no_content" name="no_content" class="txt2"><%=cs_note%></textarea></td>
			</tr>
			<tr>
				<th></th>
				<td >
					<input type="submit" name="save" id="save" value="确定" class="btn1" /> <input type="reset" name="save" id="save" value="重置" class="btn1" /> <input type="button" value="返回" class="btn1" onClick="location.href='<%=hrefstr%>'" />
				</td>
			</tr>
		</tbody>
	</table>
	</form>
</div>
</body>
</html>
<%
Response.End
End If 'End Edit


If Act="postchk" Then

Keys = Server.UrlEnCode(Request.QueryString("Keys"))
Page = Request.QueryString("Page")
chkact = Request.Form("chkact")
SqlStr = ""
For i = 1 To Request.Form("chkbox").Count
	If SqlStr<>"" Then
		SqlStr = SqlStr & " Or id="&Request.Form("chkbox")(i)
	Else
		SqlStr = " Where id="&Request.Form("chkbox")(i)
	End If
Next

Select Case chkact
Case "0":SqlStr = "Update customer Set cs_state="&chkact&SqlStr
Case "1":SqlStr = "Update customer Set cs_state="&chkact&SqlStr
Case Else:SqlStr = "Delete From customer"&SqlStr
End Select

Conn.Execute(SqlStr):Conn.Close:Set Conn=Nothing
Response.Redirect "?Keys="&Keys&"&Page="&Page
Response.End
End If	'End postchk


fliterQudao=Request.QueryString("fliterQudao")
fliterDeal=Request.QueryString("fliterDeal")
fliterTeam=Request.QueryString("fliterTeam")
fliterContact=Request.QueryString("fliterContact")
fliterEmployee=Request.QueryString("fliterEmployee")


fliterStr=""

If fliterQudao<>""  Then
	fliterStr=fliterStr&" and cs_from="&Cint(fliterQudao)
	urlStr=urlStr&"&fliterQudao="&fliterQudao
End If

If fliterDeal<>"" Then
	fliterStr=fliterStr&" and cs_deal="&Cint(fliterDeal)
	urlStr=urlStr&"&fliterDeal="&fliterDeal
End If

If fliterTeam<>""  Then
	fliterStr=fliterStr&" and (cs_belong="&Cint(fliterTeam)&" or cs_belong in (select id from employee where em_role="&Cint(fliterTeam)&") )"
	urlStr=urlStr&"&fliterTeam="&fliterTeam
End If

If fliterEmployee<>""  Then
	fliterStr=fliterStr&" and cs_belong="&Cint(fliterEmployee)
	urlStr=urlStr&"&fliterEmployee="&fliterEmployee
End If

If fliterContact<>""  Then
	Select Case fliterContact
		Case "1":fliterStr=fliterStr&" and cs_tel<>''"
		Case "2":fliterStr=fliterStr&" and cs_wechat<>''"
		Case "3":fliterStr=fliterStr&" and cs_whatsapp<>''"	
		Case "4":fliterStr=fliterStr&" and cs_email<>''"
		Case "5":fliterStr=fliterStr&" and cs_linkedin<>''"	
		Case "6":fliterStr=fliterStr&" and cs_facebook<>''"	
		Case Else:fliterStr=fliterStr&" and cs_alibaba<>''"	
	End Select
	urlStr=urlStr&"&fliterContact="&fliterContact
End If

Keys=Request.QueryString("Keys")
Keyscode=TextEnCode(Keys)
Page = Request.QueryString("Page")
Ord=Request.QueryString("Ord")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))


If Ord<>"" Then
	OrdStr=Ord&","
Else
	OrdStr=""
End If


sqlStr="Select id,cs_code,cs_name,cs_country,cs_address,cs_tel,cs_email,cs_whatsapp,cs_wechat,cs_linkedin,cs_facebook,cs_addtime,cs_alibaba,cs_from,cs_deal,cs_updatetime,cs_belong,cs_note,cs_claimFrom,cs_chain,cs_dealdate From customer Where ( cs_code like '%"&Keyscode&"%' or cs_name like '%"&Keyscode&"%' or cs_Wechat like '%"&Keyscode&"%' or cs_alibaba like '%"&Keyscode&"%' or cs_telformat like '%"&Keyscode&"%' or cs_Whatsappformat like '%"&Keyscode&"%' or cs_email like '%"&Keyscode&"%' ) "&fliterStr&" Order By "&OrdStr&" cs_updatetime Desc"	


Set Rs=Server.CreateObject("ADODB.RecordSet")


hrefstr = "?keys="&Keys&urlStr
Set Rs1=Server.CreateObject("ADODB.RecordSet")

%>	
	<form id="form1" method="post" action="?act=postchk&Keys=<%=keys%>&Ord=<%=Ord%>&Page=<%=Page%>" onSubmit="return false" />
	
		<div class="fastSelect clear">
		<H1>搜索条件</H1>
		<div class="selectItem">		
		<label>来源渠道</label>
			<select name="fliterQudao" class="filterSearch">
				<option value="">请选择渠道</option>
				<%Rs.Open "Select id,ch_name from qudao",conn,1,1
				  Do while Not Rs.Bof And Not Rs.eof
				%>
				<option value="<%=Rs("id")%>"  <%if StrComp(fliterQudao,Rs("id"))=0 Then response.Write "Selected=""Selected"""%>><%=Rs("ch_name")%></option>			
				<%
				  Rs.moveNext
				  loop
				  Rs.close
				%>
			</select>	
		</div>
		<div class="selectItem">		
		<label>是否成交</label>
			<select name="fliterDeal" class="filterSearch">
				<option value="">请选择</option>
				<option value="3"  <%if StrComp(fliterDeal,"3")=0 Then response.Write "Selected=""Selected"""%>>已成交</option>					
				<option value="2"  <%if StrComp(fliterDeal,"2")=0 Then response.Write "Selected=""Selected"""%>>明确需求</option>					
				<option value="1"  <%if StrComp(fliterDeal,"1")=0 Then response.Write "Selected=""Selected"""%>>背景调查</option>	
				<option value="0"  <%if StrComp(fliterDeal,"0")=0 Then response.Write "Selected=""Selected"""%>>无响应</option>			
			</select>
		</div>
		<div class="selectItem">		
		<label>按组</label>
			<select name="fliterTeam" class="filterSearch">
				<option value="">请选择</option>
				<%Rs.Open "Select id,em_user from employee where em_role=0",conn,1,1
				  Do while Not Rs.Bof And Not Rs.eof
				%>
				<option value="<%=Rs("id")%>" <%if StrComp(fliterTeam,Rs("id"))=0 Then response.Write "Selected=""Selected"""%>><%=Rs("em_user")%>组</option>			
				<%
				  Rs.moveNext
				  loop
				  Rs.close
				%>			
			</select>
		</div>
		
		<div class="selectItem">		
		<label>业务</label>
			<select name="fliterEmployee" class="filterSearch">
				<option value="">请选择</option>
				<%Rs.Open "Select id,em_user from employee",conn,1,1
				  Do while Not Rs.Bof And Not Rs.eof
				%>
				<option value="<%=Rs("id")%>" <%if StrComp(fliterEmployee,Rs("id"))=0 Then response.Write "Selected=""Selected"""%>><%=Rs("em_user")%></option>			
				<%
				  Rs.moveNext
				  loop
				  Rs.close
				%>			
			</select>
		</div>
		
		<div class="selectItem">		
		<label>联系方式</label>
			<select name="fliterContact" class="filterSearch">
				<option value="">请选择</option>
				<option value="1" <%if StrComp(fliterContact,"1")=0 Then response.Write "Selected=""Selected"""%>>电话</option>		
				<option value="2" <%if StrComp(fliterContact,"2")=0 Then response.Write "Selected=""Selected"""%>>微信</option>	
				<option value="3" <%if StrComp(fliterContact,"3")=0 Then response.Write "Selected=""Selected"""%>>WhatsApp</option>		
				<option value="4" <%if StrComp(fliterContact,"4")=0 Then response.Write "Selected=""Selected"""%>>邮箱</option>			
				<option value="5" <%if StrComp(fliterContact,"5")=0 Then response.Write "Selected=""Selected"""%>>领英</option>		
				<option value="6" <%if StrComp(fliterContact,"6")=0 Then response.Write "Selected=""Selected"""%>>Facebook</option>			
				<option value="7" <%if StrComp(fliterContact,"7")=0 Then response.Write "Selected=""Selected"""%>>阿里巴巴</option>			
			</select>
		</div>
		<div class="inputSearch">
			<input type="text" id="keys" class="inputTxt" value="<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>" onFocus="if(this.value == '<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>'){this.value='';}" onBlur="if(this.value == ''){this.value='<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>';}" onKeyDown="if(event.keyCode==13){location.href='?Keys='+escape(document.getElementById('keys').value)+'<%=urlStr%>'}" /><input type="button" id="searchgo" class="searchgo" value="go" onClick="location.href='?Keys='+escape(document.getElementById('keys').value)+'<%=urlStr%>'" />
		</div>
	</div>
	
	
	<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
		<thead>
			<tr>
				<th width="4%"><input type="checkbox" name="chkall" id="chkall" onClick="chkboxall(this,'chkbox')" /></th>
				<th width="6%">序号</th>
				<th width="20%">客户编码</th>
				<th width="10%">联系人</th>
				<th width="10%">国家地区</th>	
				<th width="7.5%">来源</th>						
				<th width="7.5%"><a href="<%=hrefstr%><%If Ord="cs_dealdate" Then Response.Write "&Ord=cs_dealdate+Desc" Else Response.Write "&Ord=cs_dealdate"%>">是否成交</a></th>		
				<th width="10%">业务员</th>					
				<th width="10%">操作</th>
			</tr>
		</thead>
		<tbody>

<%
Rs.Open sqlStr,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
	Rs.PageSize = 18
	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)
%>
			<tr onMouseOver="this.style.background='#F7FCFF'" onMouseOut="this.style.background='#FFFFFF'">
				<td align="center"><input type="checkbox" name="chkbox" value="<%=Rs(0)%>" /></td>
				<td align="center" ><%=TempNum%></td>
				<td align="center" class="code" data-id="<%=Rs(0)%>"><%=Rs("cs_code")%><%If Rs("cs_claimFrom")>0 Then%><img src="../images/yijiao.png" class="handover"></div><%End If%></td>
				<td align="center"><%=Rs("cs_name")%></td>
				<td align="center"><%
									
										Rs1.Open "Select id,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 style='color:red;font-size:10px;'>"&Rs("cs_dealdate")&"成交</span>" 
											elseif Rs("cs_deal")=2 Then
												Response.write "明确需求" 
											elseif Rs("cs_deal")=1 Then
												Response.write "背景调查" 												
											else
												Response.write "无响应" 										
											End If%>
				</td>
				<td align="center"><%
										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>				
				<td align="center"><a href="?Keys=<%=keys%>&Page=<%=Page%><%=urlStr%>&act=edit&id=<%=Rs(0)%>" class="ico_edit ico">修改</a></td>
			</tr>
			<tr class="detail_panel code<%=Rs(0)%>__panel">
				<td colspan="2"></td>
				<td colspan="7" class="cs_detail">					
					<ul>				
						<li class="cs_detail_addtime">录入时间:<%=Rs("cs_addtime")%></li>
						<li class="cs_detail_addtime">更新时间:<%=Rs("cs_updatetime")%></li>
						<li class="cs_detail_addtime">
							流转记录：
							<%								myArray=split(Rs("cs_chain"),",")
								sqlStr="Select em_user from employee where id="&myArray(0)
								for j=1 to UBound(myArray)
									sqlStr=sqlStr&" union all Select em_user from employee where id="&myArray(j)
								next		
								Rs1.open sqlStr,conn,1,1	
							  Do while Not Rs1.bof and Not Rs1.eof
							  Response.write Rs1("em_user")&" > "
							  Rs1.moveNext
							  loop
							  Rs1.close
							%>			 
						</li>							
						<%IF Rs("cs_tel")<>"" Then%><li class="tel"><%=Rs("cs_tel")%></li><%End if%>
						<%IF Rs("cs_email")<>"" Then%><li class="mail"><%=Rs("cs_email")%></li><%End if%>
						<%IF Rs("cs_whatsapp")<>"" Then%><li class="whatsapp"><%=Rs("cs_whatsapp")%></li>	<%End if%>			
						<%IF Rs("cs_wechat")<>"" Then%><li class="wechat"><%=Rs("cs_wechat")%></li>	<%End if%>	
						<%IF Rs("cs_linkedin")<>"" Then%><li class="linkedin"><%=Rs("cs_linkedin")%></li>	<%End if%>	
						<%IF Rs("cs_facebook")<>"" Then%><li class="facebook"><%=Rs("cs_facebook")%></li>	<%End if%>		
						<%IF Rs("cs_alibaba")<>"" Then%><li class="alibaba"><%=Rs("cs_alibaba")%></li>	<%End if%>				
						<%IF Rs("cs_address")<>"" Then%><li class="address"><%=Rs("cs_address")%></li>	<%End if%>							
					</ul>
					<div class="cs_detail_note"><%=HtmlUnCode(Rs("cs_note"))%></div>
				</td>				
			</tr>
<%
		Rs.MoveNext
	Next
Else
	If Keys="" Then
%>
			<tr>
				<td align="center" colspan="9">Sorry，当前暂无信息</td>
			</tr>

<%
	Else
%>
			<tr>
				<td align="center" colspan="9"><a href="?">Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回</a></td>
			</tr>
<%
	End If
End If
%>
		</tbody>
		<tfoot>
			<tr>
				<td colspan="9">
					<div class="showpagebox">
<%
If Rs.PageCount > 1 Then
		PageName="?Keys="&Keys&"&Ord="&Ord&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

	Response.Write "<input type=""text"" id=""Pagego"" value="""&Page&""" onFocus=""if(this.value == '"&Page&"'){this.value='';}"" onBlur=""if(this.value == ''){this.value='"&Page&"';}"" onKeyUp=""this.value=this.value.replace(/\D/g,'')"" onKeyDown=""if(event.keyCode==13){location.href='"&PageName&"Page='+document.getElementById('Pagego').value}"" />"
End If
%>					</div>
					<div class="postchkbox">
						<select id="chkact" name="chkact">
							<option value="1">显示</option>
							<option value="0">隐藏</option>
							<option value="-1">删除</option>
						</select>
						<input type="button" value="执行" onClick="postchk(1)" class="btn1" />
						<input type="button" value="新增" onClick="location.href='?act=add'" class="btn1" />
					</div>
				</td>
			</tr>
		</tfoot>
	</table>
	</form>
<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>
</div>
</body>
</html>