一个简单的客户管理系统
源代码在线查看: a.asp
库存
.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}
-->
客户列表
exec="select * from company order by id"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
for i=1 to 220
s=rs("id")
exe="select * from follow where company_id='"&s&"' order by date desc"
set ss=server.createobject("adodb.recordset")
ss.open exe,conn,1,1
if not ss.eof then
rs("last_date")=ss("date")
rs.update
end if
ss.close
rs.movenext
next
%>
版权所有 杰尔康