<% Set Rs=Server.CreateObject("ADODB.RecordSet") Set Rs1=Server.CreateObject("ADODB.RecordSet") Rs.Open searchStr,conn,1,3 If Not Rs.bof and Not Rs.eof Then For i=1 to Rs.recordCount If Rs.bof or Rs.eof Then Exit For %> <% Rs.moveNext Next Else %> <% End If Rs.close %>

序号	客户编号	联系人	国家	来源	跟进阶段	录入日期	所属业务员
<%=i%>	<%=Rs("cs_code")%>	<%=Rs("cs_name")%>	<%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 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 %>	<%If Rs("cs_deal")=3 Then Response.write "成交" Else Response.write "未成交"%>	<%=Rs("cs_addtime")%>	<%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 %>
	<%=Rs("cs_tel")%> <%=Rs("cs_email")%> <%=Rs("cs_whatsapp")%> <%=Rs("cs_wechat")%> <%=Rs("cs_linkedin")%> <%=Rs("cs_facebook")%> <%=Rs("cs_alibaba")%>
暂无相关记录，可录入该客户,点击录入客户数据