<%Checklogin()%> 管理区域 <% Act = Request.QueryString("act") tagName=Request.QueryString("tagName") If tagName="" or IsNull(tagName) Then response.redirect "customers.asp" End If If Act="postchk" Then Keys = Server.UrlEnCode(Request.QueryString("Keys")) chkact = replace(Request.Form("chkact"),"t","") SqlStr="("&Request.Form("chkbox")&")" updateStr = "Update Customer Set cs_updatetime='"&now()&"',cs_code=Replace(cs_code,'-','/'+(select em_code from employee where id="&chkact&")+'-'),cs_belong="&chkact&",cs_chain=cs_chain+',"&chkact&"' where id in "&SqlStr deleteTag="delete from tagTable where customerId in "&SqlStr Conn.Execute (updateStr):Conn.Execute(deleteTag):Conn.Close:Set Conn=Nothing Response.Redirect "tag.asp?tagName="&server.UrlEnCode(tagName) Response.End End If 'End postchk tagStr="" Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "select DISTINCT tagName from tagTable where employeeId="&Session("employee_id"),conn,1 Do while not Rs.bof and not Rs.eof tagStr=tagStr&""&Rs("tagName")&"," Rs.moveNext loop Rs.close %>

"><%=tagName%>

序号
客户编号
渠道来源
区域
根据阶段
录入时间
操作
<% Set Rs1=Server.CreateObject("ADODB.RecordSet") 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,cs_note From customer Where cs_belong="&Session("employee_id")&" and id in (select customerId from tagTable where tagName='"&tagName&"')" Rs.Open sqlStr,Conn,1,1 Do while Not Rs.bof and Not Rs.eof TempNum=TempNum+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 %>
<%If Rs("cs_deal")=3 then response.write "成交" elseif 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_alibaba")%>
备注
<%=HtmlUncode(Rs("cs_note"))%>
" data-em="<%=Session("employee_id")%>"> <% tagStr1=tagStr Rs1.Open "select tagName from tagTable where customerId="&Rs("id"),conn,1,1 Do while not Rs1.bof and not Rs1.eof tagStr1=replace(tagStr1,""&Rs1("tagName")&"",""&Rs1("tagName")&"") Rs1.moveNext loop Rs1.Close response.write tagStr1 %>
<% Rs.MoveNext Loop %>
<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>