⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 follow.asp

📁 一个简单的客户管理系统
💻 ASP
字号:
<!--#include file="conn.asp"-->

<title>库存</title>
<style type="text/css">
<!--
.STYLE2 {font-size: 18px}
.STYLE3 {
	font-size: 18px;
	font-weight: bold;
	color: #FFFFFF;
}
a:link {
	color: #003366;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #003366;
}
a:hover {
	text-decoration: none;
	color: #003366;
}
a:active {
	text-decoration: none;
	color: #003366;
}
body {
	background-color: #ECF2FF;
	margin-left: 0px;
	margin-right: 0px;
}
.STYLE5 {
	font-size: 12px;
	color: #000055;
}
.STYLE12 {font-size: 12px}
.STYLE13 {font-size: 14px; }
.STYLE14 {font-size: 16px}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<BODY leftmargin="10" topmargin="0">
<p align="center" class="STYLE2">

<table width="100%" height="35" border="0"  background="image/top.gif" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center"><span class="STYLE3">客户列表</span></div></td>
  </tr>
</table>

<%user=session("cname")
  exec="select * from company where seller='"&user&"' order by last_date desc" 
  set rs=server.createobject("adodb.recordset")
  rs.open exec,conn,1,1  

%>
<div align="center"><br>
 <table width="661" height="58" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999" bgcolor="#CEDEFB">
        <tr>
          <td width="32" height="32" background="image/headerbg.gif"><div align="center" class="STYLE13">序号</div></td>
          <td width="141" background="image/headerbg.gif"><div align="center" class="STYLE14">单位名称</div></td>
          <td width="69" background="image/headerbg.gif"><div align="center" class="STYLE14">企业性质</div></td>
          <td width="91" background="image/headerbg.gif"><div align="center" class="STYLE14">客户类别</div></td>
          <td width="121" background="image/headerbg.gif"><div align="center" class="STYLE14">最后拜访时间</div></td>
          <td width="110" background="image/headerbg.gif"><div align="center" class="STYLE14">联系人</div></td>
          <td width="123" background="image/headerbg.gif"><div align="center" class="STYLE14">联系记录</div></td>
        </tr>
        <%
  for i=1 to rs.recordcount
      if rs.eof then 
         exit for
       end if
%>
        <tr>
          <td height="24" bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=i%></div></td>
          <td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><a href="follow_add.asp?id=<%=rs("id")%>"><%=rs("short")%></a>&nbsp;</div></td>
          <td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><a href="follow_add.asp?id=<%=rs("id")%>"><%=rs("nature")%></a>&nbsp;</div></td>
          <td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=rs("cate")%>&nbsp;</div></td>
          <td bgcolor="#FFFFFF"><div align="center"  class="STYLE13"> <%=rs("last_date")%> &nbsp;</div></td>
          <td bgcolor="#FFFFFF"><div align="center"><span class="STYLE12"><span class="STYLE13"> <%=rs("charge")%>
                      <%if rs("second")<>"" then 
	  response.write "、" 
	  response.write rs("second") 
	  end if%>
                      <%if rs("third")<>"" then 
	  response.write "、" 
	  response.write rs("third") 
	  end if%>
            &nbsp;</span></span> </div></td>
          <td bgcolor="#FFFFFF"><div align="center"><span class="STYLE12"><span class="STYLE13"> 
		  <% 
  idd=rs("id")
   
  exe="select * from follow where company_id='"&idd&"'" 
  set ds=server.createobject("adodb.recordset")
  ds.open exe,conn,1,1     
    j=0
  Do While Not ds.Eof
  j=j+1 
   ds.MoveNext
  Loop 
  response.Write j
		  %>次
            &nbsp;</span></span> </div></td>
        </tr>
        <%
		rs.movenext
next%>
      </table>
  <p>&nbsp;</p>
	        <table width="100%" height="18" border="0"  background="image/bottom.gif" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td valign="bottom"><div align="center"><span class="STYLE5">版权所有  杰尔康</span><br />
      </div></td>
    </tr>
  </table>
</BODY>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -