?? advice.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>
<div align="center"><br>
<%user=session("cname")
lev=session("leve")
l=2
exec="select * from che where leve>"&l
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="595" height="58" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999" bgcolor="#CEDEFB">
<tr>
<td width="37" height="32" background="image/headerbg.gif"><div align="center" class="STYLE13">序號</div></td>
<td width="176" 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>
<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="174" 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"><a href="advice_add.asp?id=<%=rs("id")%>"><%=rs("short")%></a> </div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=rs("nature")%> </div></td>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE13"><%=rs("cate")%> </div></td>
<td bgcolor="#FFFFFF"><div align="center"><span class="STYLE12"><span 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
%>
</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 ss=server.createobject("adodb.recordset")
ss.open exe,conn,1,1
j=0
Do While Not ss.Eof
j=j+1
ss.MoveNext
Loop
response.Write j
%>次 </span></span> </div></td>
</tr>
<% i=i+1
rs.movenext
loop%>
</table><br>
<%
ds.MoveNext
Loop
%>
<p> </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 + -