<% Act = Request.QueryString("act") 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_deal="&chkact&SqlStr Case "1":SqlStr = "Update Customer Set cs_deal="&chkact&SqlStr Case "2":SqlStr = "Update Customer Set cs_deal="&chkact&SqlStr Case "3":SqlStr = "Update Customer Set cs_deal="&chkact&SqlStr Case Else:SqlStr = "Update Customer Set cs_belong="&replace(chkact,"t","")&SqlStr End Select Conn.Execute(SqlStr):Conn.Close:Set Conn=Nothing Response.Redirect "?Keys="&Keys&"&Page="&Page Response.End End If 'End postchk Keys=Request.QueryString("Keys") Keyscode=TextEnCode(Keys) Page = Request.QueryString("Page") fliterCountry=Request.QueryString("fliterCountry") fliterQudao=Request.QueryString("fliterQudao") fliterDeal=Request.QueryString("fliterDeal") fliterBusiness=Request.QueryString("fliterBusiness") fliterContact=Request.QueryString("fliterContact") fliterStr="" If fliterCountry<>"" Then fliterStr=fliterStr&" and cs_country="&Cint(fliterCountry) urlStr=urlStr&"&fliterCountry="&fliterCountry End If 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 fliterBusiness<>"" Then fliterStr=fliterStr&" and cs_type="&Cint(fliterBusiness) urlStr=urlStr&"&fliterBusiness="&fliterBusiness 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 Set Rs=Server.CreateObject("ADODB.RecordSet") Keys=Server.UrlEnCode(Keys) hrefstr = "?keys="&Keys %>

搜索条件

区域 请选择国家地区 <%Rs.Open "Select id,countryName from country",conn,1,1 Do while Not Rs.Bof And Not Rs.eof %> " <%if StrComp(fliterCountry,Rs("id"))=0 Then response.Write "Selected=""Selected"""%> ><%=Rs("countryName")%> <% Rs.moveNext loop Rs.close %>

来源渠道 请选择渠道 <%Rs.Open "Select id,ch_name from qudao",conn,1,1 Do while Not Rs.Bof And Not Rs.eof %> " <%if StrComp(fliterQudao,Rs("id"))=0 Then response.Write "Selected=""Selected"""%>><%=Rs("ch_name")%> <% Rs.moveNext loop Rs.close %>

是否成交 请选择 >无响应 >背景调查 >明确需求

客户类型 请选择 <%Rs.Open "Select id,businessType from clientType",conn,1,1 Do while Not Rs.Bof And Not Rs.eof %> " <%if StrComp(fliterBusiness,Rs("id"))=0 Then response.Write "Selected=""Selected"""%>><%=Rs("businessType")%> <% Rs.moveNext loop Rs.close %>

联系方式 请选择 >电话 >微信 >WhatsApp >邮箱 >领英 >Facebook >阿里巴巴

" 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)}" />

序号

客户编号

渠道来源

区域

客户类型

是否成交

颜色标记

录入时间

操作

<% 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 From customer Where cs_deal<>3 and DATEDIFF(day,cs_updatetime,getDate())>55 and cs_belong="&Session("employee_id")&" and (cs_code like '%"&Keyscode&"%' or cs_name like '%"&Keyscode&"%' or cs_email like '%"&Keyscode&"%' or cs_wechat like '%"&Keyscode&"%' or cs_tel like '%"&Keyscode&"%' or cs_whatsapp like '%"&Keyscode&"%') "&fliterStr&" Order By cs_state 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) %>

">

<%=TempNum%>

<%=Rs("cs_code")%>

<%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 %>

<%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 %>

<%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 %>

<%If Rs("cs_deal")=2 then Response.write "明确需求" elseif Rs("cs_deal")=1 then Response.write "背景调查" else Response.write "未成交" End IF %>

">

<%=Rs("cs_addtime")%>

修改

联系方式

<%=Rs("cs_tel")%>

"><%=Rs("cs_email")%>

<%=Rs("cs_whatsapp")%>

<%=Rs("cs_wechat")%>

<%=Rs("cs_linkedin")%>

<%=Rs("cs_facebook")%>

<%=Rs("cs_alibaba")%>

备注

<%=HtmlUnCode(Rs("cs_note"))%>

<% Rs.MoveNext Next Else If Keys="" Then %>

Sorry，当前暂无信息

<% Else %>

Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回

<% End If End If %>

<% If Rs.PageCount > 1 Then PageName="?Keys="&Keys&urlStr&"&" Pagelen=3 If Page>1 Then Response.Write "首页" Response.Write "上一页" 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 ""&i&"" Else Response.Write ""&i&"" End If Next If Page Pagelen Then Response.Write "..."&Rs.PageCount&"" Response.Write "下一页" Response.Write "尾页" End If Response.Write "" End If %>

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