x_kehu.asp

本系统其主要宗旨是让公司管理更轻松

           <form action="?chuli=kehulist" method="post"><tr>
            <td colspan="7">
			<p style="float:left"><img src="skins/sb/1.png" width="30" />
			<b><font color="#000000" size="2">
			<%= listname %></font></b> </p>
			<p align="right">
                <input name="souname" type="text" class="nnt_input" id="souname" title="请在这里输入 公司名 联系人名 电话 EMAIL 等关键字来查询！" value="<%= request("souname") %>" />
                <input name="Submit" type="submit" class="nnt_submit" value="搜索" /> 
                </p>				</td></tr></form><tr><td colspan="7">
				
				</td>
            </tr><tr>
            <td class='td_heng'><b>公司名</b></td>
            <td class='td_heng'><b>客户类型</b></td>
            <td class='td_heng'><b>联系人</b></td>
            <td class='td_heng'><b>电话</b></td>
            <td class='td_heng'><b>EMAIL</b></td>
            <td class='td_heng'><b>提交人</b></td>
            <td class='td_heng'><b>可用操作</b></td>
           </tr>
          <% If Request.QueryString("CurPage")="" or Request.QueryString("CurPage")=0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
if request("souname")<>"" then
souselect="and k_gname like '%"&request("souname")&"%' or  k_lname like '%"&request("souname")&"%' or  k_dianhua like '%"&request("souname")&"%' or  k_email like '%"&request("souname")&"%' or  k_user like '%"&request("souname")&"%'"
end if
set drs= Server.CreateObject("adodb.recordset")
drs.open ("select * from nnt_kehu where k_gname<>'' "&selectquan&" "&souselect&" order by k_time desc "),conn,1,1
if drs.eof then
				  Response.Write("<tr><td colspan=6>没有查询到您需要的信息，请确认您要查询的信息再次输入。</td></tr>")
				  else 
				  
				  dRS.PageSize=20
	Dim TotalPages    
	TotalPages = dRS.PageCount    
    
	If CurPage>dRS.Pagecount Then     
		CurPage=dRS.Pagecount    
	end if
    
    dRS.AbsolutePage=CurPage    
    
	drs.CacheSize = dRS.PageSize    
    
	Dim Totalcount    
	Totalcount =INT(dRS.recordcount)
	do while (Not dRS.Eof) and (II<dRS.PageSize)

 %><tr  onMouseOver="javascript:bgColor='#C8E4FF'" onMouseOut="javascript:bgColor='#ffffff'">
            <td><a href="?chuli=addkehu&look=yes&editid=<%=drs("k_id")%>"><%= drs("k_gname") %>&nbsp;
                <% if drs("k_bname")<>"" then Response.Write("("&drs("k_bname")&")") %>
            </a></td>
            <td>
			<% select case drs("k_lei")
			case "0"
			Response.Write("潜在客户")
			case "1"
			Response.Write("消费客户")
			case "2"
			Response.Write("合作伙伴")
			end select  %></td>
            <td><%= drs("k_lname") %></td>
            <td><%= replace(replace(drs("k_dianhua"),",","<br>"),"，","") %></td>
            <td><%= drs("k_email") %></td>
            <td><a href="?ul=<%=ul %>&amp;chuli=<%= request("chuli") %>&amp;souname=<%= drs("k_user")%>"><%= drs("k_user") %> </a><br />
			<%= request.cookies("q_"&drs("k_zuid"))("qname") %></td>
            <td><a href="?chuli=addkehu&amp;look=yes&amp;editid=<%=drs("k_id")%>">查看</a>  <a href="x_yewu.asp?chuli=listyewu&amp;souname=<%= drs("k_gname") %>" target="_blank">业务</a></td>
          </tr><%
drs.movenext
II=II+1
loop
 end if 
%><tr><td colspan="7"><label></label></td></tr>
          <tr>
            <td colspan="7" bgcolor="#E6F0FF">
			共 <b> <font color="#FF0000">
      <% =Totalcount %>
      </font></b> 条 信息 <%= drs.PageSize %> 条/页 共 <%= TotalPages %> 页 目前为第 <%= CurPage %> 页  <a href="?ul=<%=ul %>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>" class="titlefont">首页</a> <a href="?ul=<%=ul %>&Curpage=<%=CurPage-1%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>" class="titlefont">上一页</a>
      <% if Curpage-3>1 then
ys=Curpage-3
yb=Curpage+3
else
 ys=1
yb=7
 end if
 if yb>TotalPages then yb=TotalPages
 for xxs=ys to yb
%>
      <a href=?ul=<%=ul %>&Curpage=<%=xxs%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %> class="titlefont"><% if Curpage=xxs then
	  Response.Write("<font color=#ff0000><b>"&xxs&"</b></font>")
	  else
	  Response.Write(xxs)
	  end if %></a>
      <%
 next  %>
      <a href="?ul=<%=ul %>&Curpage=<%=CurPage+1%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>" class="titlefont">下一页</a> <a href="?ul=<%=ul %>&Curpage=<%=Totalcount%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>" class="titlefont">尾页</a></td>
            <% drs.close
		 set drs=nothing %> </tr>
        </table>
		<% case ""
		set rs= Server.CreateObject("adodb.recordset")
		rs.open ("select * from nnt_kehu where k_gname<>'' "&selectquan&""),conn,1,1
		kehuzongshu=int(rs.recordcount)
		rs.close
		rs.open ("select * from nnt_kehu where k_lei=1 "&selectquan&""),conn,1,1
		xiaofeishu=int(rs.recordcount)
		rs.close
		rs.open ("select * from nnt_kehu where k_lei=2 "&selectquan&""),conn,1,1
		hezuoshu=int(rs.recordcount)
		rs.close
		rs.open ("select * from nnt_kehu where k_lei=0 "&selectquan&""),conn,1,1
		qianzaishu=int(rs.recordcount)
		rs.close
		set rs=nothing
		 %>
        <table width="100%" border="0" cellspacing="0" cellpadding="4">
          <tr>
            <td colspan="2" class="td_heng">客户中心概括</td>
          </tr>
          <tr>
            <td>客户中心总数：<a href="x_kehu.asp?chuli=kehulist"><%= kehuzongshu %> </a></td>
            <td>其中消费客户：<a href="x_kehu.asp?chuli=kehulist&amp;llei=1"><%= xiaofeishu %> </a></td>
          </tr>
          <tr>
            <td>其中合作伙伴：<a href="x_kehu.asp?chuli=kehulist&amp;llei=2"><%= hezuoshu %> </a></td>
            <td>其中潜在客户：<a href="x_kehu.asp?chuli=kehulist&amp;llei=0"><%=qianzaishu  %> </a></td>
          </tr>
          <form action="?chuli=kehulist" method="post"><tr>
            <td colspan="2">
			<p >
                <input name="souname" type="text" class="nnt_input" id="souname" title="请在这里输入 公司名 联系人名 电话 EMAIL 等关键字来查询！" value="<%= request("souname") %>" />
                <input name="Submit" type="submit" class="nnt_submit" value="搜索客户" /> 
                </p>				</td></tr></form>  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="4">
  <tr>
    <td class="td_heng">客户中心管理面板 功能介绍</td>
  </tr>
  <tr>
    <td><b>添加新客户</b></td>
  </tr>
  <tr>
    <td>在这里录入您开拓的客户,这样在您添加新业务时,可以方便的记录到客户的名下,方便管理统计.</td>
  </tr>
  <tr>
    <td><b>所有客户列表</b></td>
  </tr>
  <tr>
    <td>这里将显示您的所有客户信息,包括潜在客户资料,轻松查询.并且可以批量发送EMAIL 手机短信.</td>
  </tr>
  <tr>
    <td><b>所有消费客户列表</b></td>
  </tr>
  <tr>
    <td>列出所有消费客户,消费客户是指 已经与之有业务来往的客户.</td>
  </tr>
  <tr>
    <td><b>所有合作伙伴列表</b></td>
  </tr>
  <tr>
    <td>列出所有的合作伙伴.</td>
  </tr>
  <tr>
    <td><b>所有潜在客户库</b></td>
  </tr>
  <tr>
    <td>列出所有潜在客户,经常收集一些潜在客户,并录入系统中,对业务拓展有极大的帮助.</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
		<%  end select %></td>
        <td background="skins/list/l7.gif">&nbsp;</td>
      </tr>
      <tr>
        <td><img src="skins/list/l4.gif" width="7" height="8" /></td>
        <td background="skins/list/l5.gif"></td>
        <td><img src="skins/list/l6.gif" width="8" height="8" /></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="x_di.asp" -->