<% Set Rsp=Server.CreateObject("ADODB.Recordset") Rsp.Open "Select * from employee where id="&Session("employee_id"),conn,1,1 If Not Rsp.bof and Not Rsp.eof Then em_user=TextUnCode(Rsp("em_user")) em_role=Rsp("em_role") em_code=TextUnCode(Rsp("em_code")) em_email=TextUnCode(Rsp("em_email")) em_tel=TextUnCode(Rsp("em_tel")) Else Rsp.close Set Rsp=Nothing conn.close set conn=nothing Response.redirect "/" Response.end End If Rsp.close Set Rsp=Nothing %>

<%=em_user%>

<%If em_role=0 then response.write "组长" Else Response.write "组员"%>
<%if instr(em_code,"BX")=0 Then%>
客户查找
<%End if%>
客户录入
标签云
<%if instr(em_code,"BX")=0 Then%>
静默客户
<%End if%> <%If em_role=0 Then%> <%End If%>
修改密码
退出登录
<%if instr(em_code,"BX")=0 Then%>
***注意事项***
所有业务务必全面录入客户资料,如发现有客户重复第一时间与前录入人沟通并妥善将与客户沟通的内容交接到原录入人,如故意隐瞒或者选择无视不交接,自愿接受退还客户及停止一个月官网询盘客户推送的惩罚,情节严重者按照违反公司利益进行辞退!
<%End If%>