<% 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 "组员"%>
- <%=em_tel%>
- <%=em_email%>
<%if instr(em_code,"BX")=0 Then%>
- 客户查找
<%End if%>
- 客户录入
- 我的客户
- 数据
数据看板
<%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%>