?? right1.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; }
.STYLE15 {font-size: 14px; color:#FF0000; }
.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")
if session("leve")<5 then
exec="select * from company where seller='"&user&"' order by id"
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="36" height="32" background="image/headerbg.gif"><div align="center" class="STYLE14">編號</div></td>
<td width="160" background="image/headerbg.gif"><div align="center" class="STYLE14">單位名稱</div></td>
<td width="81" background="image/headerbg.gif"><div align="center" class="STYLE14">性質</div></td>
<td width="112" background="image/headerbg.gif"><div align="center" class="STYLE14">客戶類別</div></td>
<td width="174" background="image/headerbg.gif"><div align="center" class="STYLE14">最后一次拜訪時間</div> </td>
<td width="84" 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="detail.asp?id=<%=rs("id")%>"><%=rs("short")%></a> </div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><a href="detail.asp?id=<%=rs("id")%>"><%=rs("nature")%></a> </div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=rs("cate")%> </div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13">
<%
iddd=rs("id")
exed="select * from follow where company_id='"&iddd&"' order by date"
set sd=server.createobject("adodb.recordset")
sd.open exed,conn,1,1
dd=""
do while not sd.eof
dd=sd("date")
sd.movenext
loop
response.Write dd
%>
</div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=rs("tel")%> </div></td>
</tr>
<%rs.movenext
next%>
</table>
<% end if%>
<br>
<%user=session("cname")
lev=session("leve")
bran="營銷部"
exec="select * from che where branch='"&bran&"'"
set ds=server.createobject("adodb.recordset")
ds.open exec,conn,1,1
Do While Not ds.Eof
i=1
nam=ds("cname")
response.Write nam
%>的客戶
<table width="661" height="56" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999" bgcolor="#CEDEFB">
<tr>
<td width="36" height="32" background="image/headerbg.gif"><div align="center" class="STYLE13">序號</div></td>
<td width="125" background="image/headerbg.gif"><div align="center" class="STYLE14">單位名稱</div></td>
<td width="169" background="image/headerbg.gif"><div align="center" class="STYLE14">公司地址</div></td>
<td background="image/headerbg.gif"><div align="center">最新拜訪時間</div></td>
<td width="132" background="image/headerbg.gif"><div align="center" class="STYLE14">聯系人</div></td>
</tr>
<%
exec="select * from company where seller='"&nam&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
do while not rs.eof
%>
<tr>
<td height="24" bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=i%></div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=rs("short")%> </div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=rs("address")%> </div></td>
<td bgcolor="#FFFFFF"><div align="center" ><%
iddd=rs("id")
exed="select * from follow where company_id='"&iddd&"' order by date"
set sd=server.createobject("adodb.recordset")
sd.open exed,conn,1,1
dd=""
do while not sd.eof
dd=sd("date")
sd.movenext
loop
if dd<>date() then
%><div class="style13">
<%
response.Write dd
else
%><div class="STYLE15">
<%response.Write dd
end if%> </div></div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13"> <%=rs("charge")%> </div></td>
</tr>
<% i=i+1
rs.movenext
loop%>
</table>
<br>
<%
ds.MoveNext
Loop
%>
<p> </p>
</div>
<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 + -