<% id = Request.QueryString("id") Page = Request.QueryString("Page") Keys=Server.UrlEnCode(Request.QueryString("Keys")) hrefstr = "?keys="&Keys&"&Page="&Page If id<>"" And IsNumeric(id) Then Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From customer Where cs_belong="&Session("employee_id")&" and customer.id="&id,Conn,1,1 If Not Rs.Bof And Not Rs.Eof Then cs_company=TextUncode(Rs("cs_company")) cs_name=TextUncode(Rs("cs_name")) cs_country=Rs("cs_country") cs_tel=TextUncode(Rs("cs_tel")) cs_email=TextUncode(Rs("cs_email")) cs_whatsapp=TextUncode(Rs("cs_whatsapp")) cs_wechat=TextUncode(Rs("cs_wechat")) cs_linkedin=TextUncode(Rs("cs_linkedin")) cs_facebook=TextUncode(Rs("cs_facebook")) cs_address=TextUncode(Rs("cs_address")) cs_alibaba=TextUncode(Rs("cs_alibaba")) cs_code=TextUncode(Rs("cs_code")) cs_deal=TextUncode(Rs("cs_deal")) cs_addtime=Rs("cs_addtime") cs_belongclient=Rs("cs_belongclient") cs_updatetime=Rs("cs_updatetime") cs_from=Rs("cs_from") cs_type=Rs("cs_type") cs_note=HtmlUnCode(Rs("cs_note")) cs_claimFrom=Rs("cs_claimFrom") allowedit=Rs("allowedit") Else Rs.Close:Set Rs=Nothing Conn.Close:Set Conn=Nothing response.write "" response.End End If Rs.Close:Set Rs=Nothing Else response.write "" Rs.Close:Set Rs=Nothing Conn.Close:Set Conn=Nothing response.redirect hrefstr End If %>

客户编号	"" Then response.write "readonly" %> class="txt1" />
公司名称
联系人
地区	<% Set Rs=server.CreateObject("ADODB.RecordSet") Rs.Open "Select id,countryCode,countryName from country where id="&cs_country,conn,1,1 If Not Rs.bof and Not Rs.eof then countryId=Rs("id") response.write Rs("countryName") Else response.write "请选择" End If Rs.close %> <% Set Rs=server.CreateObject("ADODB.RecordSet") Rs.Open "Select id,countryCode,countryName from country",conn,1,1 Do while Not Rs.bof And Not Rs.eof %> ">(+<%=Rs("countryCode")%>)<%=Rs("countryName")%> <% Rs.moveNext loop Rs.close %> 无匹配项
客户来源	请选择来源 <% Rs.Open "Select id,ch_name from qudao where id="&cs_from,conn,1,1 Do while Not Rs.bof And Not Rs.eof %> " <%If cs_from=Rs("id") 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 %> " id="fortype<%=Rs("id")%>" <%If Rs("id")=cs_type Then Response.write "checked=""checked"""%> >"><%=Rs("businessType")%> <% Rs.moveNext loop Rs.close %>
跟进阶段	>无响应 >背景调查 >明确需求 >已成交
其他	value="1">客户的客户
自定义标签	<% Rs.Open "Select id,tagName from tagTable where customerId="&id,conn,1,1 Do while Not Rs.bof And Not Rs.eof %> <%=Rs("tagName")%> <% Rs.moveNext loop Rs.close %> 美特柏品牌客户, OEM定制客户, 小型B端客户, C端客户, 贸易公司，档口客户 <% Rs.Open "select distinct tagName from tagTable where employeeId="&Session("employee_id"),conn,1,1 Do while Not Rs.bof And Not Rs.eof %> <%=TextUncode(Rs("tagName"))%>, <% Rs.moveNext loop Rs.close Set Rs=Nothing %>
备注	<%=cs_note%>