<% id = Request.QueryString("id") Page = Request.QueryString("Page") Keys=Server.UrlEnCode(Request.QueryString("Keys")) Ord=Server.UrlEnCode(Request.QueryString("Ord")) hrefstr = "?keys="&Keys&"&Ord="&Ord&"&Page="&Page If id<>"" And IsNumeric(id) Then Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From customer Where cs_belong in (Select id from employee where em_role="&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=TextUncode(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_alibaba=TextUncode(Rs("cs_alibaba")) cs_address=TextUncode(Rs("cs_address")) cs_code=TextUncode(Rs("cs_code")) cs_deal=TextUncode(Rs("cs_deal")) cs_addtime=Rs("cs_addtime") cs_updatetime=Rs("cs_updatetime") cs_from=Rs("cs_from") cs_note=Rs("cs_note") 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 %>

客户编号	<%=cs_code%>
公司名称	<%=cs_company%>
联系人	<%=cs_name%>
地区	<% Set Rs=server.CreateObject("ADODB.RecordSet") Rs.Open "Select countryCode,countryName from country where countryCode='"&cs_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 %> <%=Rs("ch_name")%> <% Rs.moveNext loop Rs.close %>
联系方式	<%=cs_tel%>
	<%=cs_wechat%>
	<%=cs_whatsapp%>
	<%=cs_email%>
	<%=cs_linkedin%>
	<%=cs_facebook%>
	<%=cs_alibaba%>
地址	<%=cs_address%>
是否成交	<%If cs_deal=1 Then Response.write "已经成交" elseif cs_deal=2 Then Response.write"无响应" else Response.write"未成交" End if %>
备注	<%=HtmlUnCode(Rs("cs_note"))%>