<!--#include file="Conn.asp"--><%Checklogin()%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>管理区域</title>
<link rel="stylesheet" href="css/common.css" type="text/css" />
<link rel="stylesheet" href="css/alert.css" type="text/css" />
<script language="javascript" src="system/js/jquery-1.7.2.min.js"></script>
<script type="text/javascript" src="js/js.js"></script>
</head>
<body class="clear">
<!--#include file="panel.asp"-->
<div id="man_zone">
<div class="tagclound">
<h1 class="tagCloundHead">自定义标签云</h1>
<div class="tagArea">
<%Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "SELECT tagName,count(Distinct cs_code) as count from tagTable left join customer on tagTable.customerid=customer.id where employeeId="&Session("employee_id")&" GROUP BY tagName",conn,1,1
Do while Not Rs.Bof And Not Rs.eof
%>
<a href="tag.asp?tagName=<%=Server.urlEnCode(Rs("tagName"))%>" style="font-size:16px;"><%=Rs("tagName")%>(<%=Rs("count")%>)</a>
<% Rs.moveNext
loop
%>
<a href="nullTag.asp">无标签客户</a>
</div>
<%Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing%>
</div>
</div>
</body>
</html>